作者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/m.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