[問題] excel VBA迴圈(已解決謝謝

看板Programming作者 (po)時間6年前 (2017/12/29 22:33), 6年前編輯推噓1(1推 0噓 23→)
留言24則, 3人參與, 6年前最新討論串1/1
各位前輩好， 小弟正在初學階段就卡關了 正在研究*程式交易平台開發方法與實務 這本書 其中迴圈部分有個練習題 ( 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
→
12/29 23:27, 6年前 , 1F
你要不要解釋一下你怎樣失敗
12/29 23:27, 1F
→
12/29 23:28, 6年前 , 2F
不然for each x in y之簡單的
12/29 23:28, 2F
→
12/29 23:29, 6年前 , 3F
隨便寫也沒問題 頂多改一兩次
12/29 23:29, 3F
→
12/29 23:29, 6年前 , 4F
(你不解釋就是得到這種假屁答案)
12/29 23:29, 4F
→
12/30 01:10, 6年前 , 5F
因為我不太確定該不該設變數
12/30 01:10, 5F
→
12/30 01:10, 6年前 , 6F
我的寫法是for each range in worksheet
12/30 01:10, 6F
→
12/30 01:10, 6年前 , 7F
s(“表1”)
12/30 01:10, 7F
→
12/30 01:10, 6年前 , 8F
但是就是這裡無法然後我又不知道怎麼寫
12/30 01:10, 8F
→
12/30 01:11, 6年前 , 9F
懇請先進們求救
12/30 01:11, 9F
→
12/30 01:14, 6年前 , 10F
附上
12/30 01:14, 10F
→
12/30 01:14, 6年前 , 11F
完整的我的錯誤寫法：
12/30 01:14, 11F
※ 編輯: ppoo1215 (111.251.195.157), 12/30/2017 01:23:02 ※ 編輯: ppoo1215 (111.251.195.157), 12/30/2017 01:24:14
→
12/30 05:10, 6年前 , 12F
感覺順序怪怪
12/30 05:10, 12F
→
12/30 10:37, 6年前 , 13F
我把 with 寫在 for each下面還是失敗
12/30 10:37, 13F
→
12/30 12:00, 6年前 , 14F
既然你用了for each x 那迴圈裏面就要
12/30 12:00, 14F
→
12/30 12:01, 6年前 , 15F
用到這個x 不然就沒意義了
12/30 12:01, 15F
→
12/30 12:01, 6年前 , 16F
現在沒office好用 不過依照經驗
12/30 12:01, 16F
→
12/30 12:01, 6年前 , 17F
應該是改成 x.columnwidth=1
12/30 12:01, 17F
→
12/30 12:02, 6年前 , 18F
然後把with和end with都拿掉
12/30 12:02, 18F
→
12/30 12:05, 6年前 , 19F
另外你for each要取出column
12/30 12:05, 19F
→
12/30 12:05, 6年前 , 20F
所以應該是worksheets(1).columns
12/30 12:05, 20F
→
12/30 12:05, 6年前 , 21F
你書上都沒有範例嗎
12/30 12:05, 21F
謝謝上面大大的回覆，目前照著寫出 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
→
12/30 20:10, 6年前 , 22F
不是for each x in ... 嗎 怎麼變成as
12/30 20:10, 22F
→
12/30 20:59, 6年前 , 23F
啊抱歉筆誤，我在excel裡寫in
12/30 20:59, 23F
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
推
12/31 13:37, 6年前 , 24F
有成功就好 (y)
12/31 13:37, 24F
‣ 更多 ppoo1215 的文章
文章代碼(AID): #1QHb8xYE (Programming)