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

看板Programming作者 (po)時間7年前 (2017/12/29 22:33), 7年前編輯推噓1(1023)
留言24則, 3人參與, 7年前最新討論串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, 7年前 , 1F
你要不要解釋一下你怎樣失敗
12/29 23:27, 1F

12/29 23:28, 7年前 , 2F
不然for each x in y之簡單的
12/29 23:28, 2F

12/29 23:29, 7年前 , 3F
隨便寫也沒問題 頂多改一兩次
12/29 23:29, 3F

12/29 23:29, 7年前 , 4F
(你不解釋就是得到這種假屁答案)
12/29 23:29, 4F

12/30 01:10, 7年前 , 5F
因為我不太確定該不該設變數
12/30 01:10, 5F

12/30 01:10, 7年前 , 6F
我的寫法是for each range in worksheet
12/30 01:10, 6F

12/30 01:10, 7年前 , 7F
s(“表1”)
12/30 01:10, 7F

12/30 01:10, 7年前 , 8F
但是就是這裡無法然後我又不知道怎麼寫
12/30 01:10, 8F

12/30 01:11, 7年前 , 9F
懇請先進們求救
12/30 01:11, 9F

12/30 01:14, 7年前 , 10F
附上
12/30 01:14, 10F

12/30 01:14, 7年前 , 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, 7年前 , 12F
感覺順序怪怪
12/30 05:10, 12F

12/30 10:37, 7年前 , 13F
我把 with 寫在 for each下面還是失敗
12/30 10:37, 13F

12/30 12:00, 7年前 , 14F
既然你用了for each x 那迴圈裏面就要
12/30 12:00, 14F

12/30 12:01, 7年前 , 15F
用到這個x 不然就沒意義了
12/30 12:01, 15F

12/30 12:01, 7年前 , 16F
現在沒office好用 不過依照經驗
12/30 12:01, 16F

12/30 12:01, 7年前 , 17F
應該是改成 x.columnwidth=1
12/30 12:01, 17F

12/30 12:02, 7年前 , 18F
然後把with和end with都拿掉
12/30 12:02, 18F

12/30 12:05, 7年前 , 19F
另外你for each要取出column
12/30 12:05, 19F

12/30 12:05, 7年前 , 20F
所以應該是worksheets(1).columns
12/30 12:05, 20F

12/30 12:05, 7年前 , 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, 7年前 , 22F
不是for each x in ... 嗎 怎麼變成as
12/30 20:10, 22F

12/30 20:59, 7年前 , 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, 7年前 , 24F
有成功就好 (y)
12/31 13:37, 24F
文章代碼(AID): #1QHb8xYE (Programming)
文章代碼(AID): #1QHb8xYE (Programming)