[問題] excel VBA 關於迴圈

[ppoo1215 (po)]

各位前輩好，
小弟正在初學階段就卡關了

正在研究*程式交易平台開發方法與實務
這本書

其中迴圈部分有個練習題
( 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://www.ptt.cc/bbs/Programming/M.1514558011.A.88E.html
→ MOONRAKER: 你要不要解釋一下你怎樣失敗
→ MOONRAKER: 不然for each x in y之簡單的
→ MOONRAKER: 隨便寫也沒問題 頂多改一兩次
→ MOONRAKER: (你不解釋就是得到這種假屁答案)
→ ppoo1215: 因為我不太確定該不該設變數
→ ppoo1215: 我的寫法是for each range in worksheet
→ ppoo1215: s(“表1”)
→ ppoo1215: 但是就是這裡無法然後我又不知道怎麼寫
→ ppoo1215: 懇請先進們求救
→ ppoo1215: 附上
→ ppoo1215: 完整的我的錯誤寫法：
※ 編輯: ppoo1215 (111.251.195.157), 12/30/2017 01:23:02
※ 編輯: ppoo1215 (111.251.195.157), 12/30/2017 01:24:14
→ Expsun: 感覺順序怪怪
→ ppoo1215: 我把 with 寫在 for each下面還是失敗
→ MOONRAKER: 既然你用了for each x 那迴圈裏面就要
→ MOONRAKER: 用到這個x 不然就沒意義了
→ MOONRAKER: 現在沒office好用 不過依照經驗
→ MOONRAKER: 應該是改成 x.columnwidth=1
→ MOONRAKER: 然後把with和end with都拿掉
→ MOONRAKER: 另外你for each要取出column
→ MOONRAKER: 所以應該是worksheets(1).columns
→ MOONRAKER: 你書上都沒有範例嗎
謝謝上面大大的回覆，目前照著寫出
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
→ MOONRAKER: 不是for each x in ... 嗎 怎麼變成as
→ ppoo1215: 啊抱歉筆誤，我在excel裡寫in
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
推 MOONRAKER: 有成功就好 (y)