作者ppoo1215 (po)
看板Programming
标题[问题] excel VBA 关於回圈
时间Fri Dec 29 22:33:29 2017
各位前辈好，
小弟正在初学阶段就卡关了
正在研究*程式交易平台开发方法与实务
这本书
其中回圈部分有个练习题
( for each 物件变数 in 物件集合)
题目是：
将工作表1所有栏宽设定成1
但是我怎麽都没有头绪
尝试了许久还是失败
所以希望可以在这边得到解惑
先谢谢了
抱歉 附上我的想法：
dim x as range
with worksheet(表1).range
for each x in worksheets(表1)
.columnwidth=1
end for
end with
但是完全跑不出来QAQ
想请问这样是哪边的概念错误了
(用with是因为 我去网路上查如何设定栏宽的 ， 然後好像编译的时候那个for那边是错
的但我不知道怎麽写才好
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.251.195.157
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Programming/M.1514558011.A.88E.html
1F：→ MOONRAKER: 你要不要解释一下你怎样失败218.161.46.90 12/29 23:27
2F：→ MOONRAKER: 不然for each x in y之简单的218.161.46.90 12/29 23:28
3F：→ MOONRAKER: 随便写也没问题 顶多改一两次218.161.46.90 12/29 23:29
4F：→ MOONRAKER: (你不解释就是得到这种假屁答案)218.161.46.90 12/29 23:29
5F：→ ppoo1215: 因为我不太确定该不该设变数111.251.195.157 12/30 01:10
6F：→ ppoo1215: 我的写法是for each range in worksheet111.251.195.157 12/30 01:10
7F：→ ppoo1215: s(“表1”)111.251.195.157 12/30 01:10
8F：→ ppoo1215: 但是就是这里无法然後我又不知道怎麽写111.251.195.157 12/30 01:10
9F：→ ppoo1215: 恳请先进们求救111.251.195.157 12/30 01:11
10F：→ ppoo1215: 附上111.251.195.157 12/30 01:14
11F：→ ppoo1215: 完整的我的错误写法：111.251.195.157 12/30 01:14
※ 编辑: ppoo1215 (111.251.195.157), 12/30/2017 01:23:02
※ 编辑: ppoo1215 (111.251.195.157), 12/30/2017 01:24:14
12F：→ Expsun: 感觉顺序怪怪 211.74.11.131 12/30 05:10
13F：→ ppoo1215: 我把 with 写在 for each下面还是失败111.251.195.157 12/30 10:37
14F：→ MOONRAKER: 既然你用了for each x 那回圈里面就要220.135.118.23 12/30 12:00
15F：→ MOONRAKER: 用到这个x 不然就没意义了220.135.118.23 12/30 12:01
16F：→ MOONRAKER: 现在没office好用 不过依照经验220.135.118.23 12/30 12:01
17F：→ MOONRAKER: 应该是改成 x.columnwidth=1220.135.118.23 12/30 12:01
18F：→ MOONRAKER: 然後把with和end with都拿掉220.135.118.23 12/30 12:02
19F：→ MOONRAKER: 另外你for each要取出column 220.135.118.23 12/30 12:05
20F：→ MOONRAKER: 所以应该是worksheets(1).columns 220.135.118.23 12/30 12:05
21F：→ MOONRAKER: 你书上都没有范例吗 220.135.118.23 12/30 12:05
谢谢上面大大的回覆，目前照着写出
dim x as range
for each x as worksheet(1).columns
x.columnwidth=1
next
但是还是失败…
我在想是不是宣告就怪怪的了？
然後叙述句也不对
(没错 书上的范例太简单 完全没用)
※ 编辑: ppoo1215 (111.251.195.157), 12/30/2017 17:31:20
22F：→ MOONRAKER: 不是for each x in ... 吗 怎麽变成as 220.135.118.23 12/30 20:10
23F：→ ppoo1215: 啊抱歉笔误，我在excel里写in111.251.195.157 12/30 20:59
to M大
经过您指导後已经成功了
谢谢您QAQ
※ 编辑: ppoo1215 (111.251.195.157), 12/30/2017 21:59:35
※ 编辑: ppoo1215 (111.251.195.157), 12/30/2017 22:36:50
24F：推 MOONRAKER: 有成功就好 (y) 218.161.46.90 12/31 13:37