[VBA ] For NEXT 問題

看板Visual_Basic作者 (蚵仔煎不要蚵仔)時間8年前 (2016/11/06 14:29), 編輯推噓1(1015)
留言16則, 4人參與, 最新討論串1/3 (看更多)
=============================原本的寫法============================= Sub tghh() Range("A2").Characters(Range("D2"), Range("E2")).Font.ColorIndex = 3 Range("A3").Characters(Range("D3"), Range("E3")).Font.ColorIndex = 3 Range("A4").Characters(Range("D4"), Range("E4")).Font.ColorIndex = 3 Range("A5").Characters(Range("D5"), Range("E5")).Font.ColorIndex = 3 Range("A6").Characters(Range("D6"), Range("E6")).Font.ColorIndex = 3 Range("A7").Characters(Range("D7"), Range("E7")).Font.ColorIndex = 3 Range("A8").Characters(Range("D8"), Range("E8")).Font.ColorIndex = 3 End Sub ===================For Next的版本無法執行==================== Sub tghh() For I = 2 To 10 Step 1 Range("A" & I).Characters(Range("D" & I), Range("E" & I)).Font.ColorIndex = 3 Next I End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.164.1.3 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1478413781.A.187.html

11/06 22:25, , 1F
我可以執行說0,0 是否有原檔
11/06 22:25, 1F

11/06 22:25, , 2F
另外一件事,a欄一定得用文字型態喔,數字就算改了顏色
11/06 22:25, 2F

11/06 22:25, , 3F
也會被自動修正成黑色
11/06 22:25, 3F

11/06 22:32, , 4F
就算是格式改成文字也沒用喔,一定要在數字前面加上 '號
11/06 22:32, 4F

11/06 22:34, , 5F

11/06 23:19, , 6F
我的 D欄 有非數字符號 所以無法執行 感謝W大大
11/06 23:19, 6F

11/07 09:49, , 7F
不要拼字串了 cells(r, c)不是簡單有效
11/07 09:49, 7F

11/09 03:28, , 8F
那可能要用分辨是否為文字的方式 如果是文字 則會跳過
11/09 03:28, 8F

11/09 03:28, , 9F
該行
11/09 03:28, 9F

11/09 03:28, , 10F
是數字就做下去 不過我忘了那個函數-m-
11/09 03:28, 10F

11/09 08:32, , 11F
cells(r, c)好用太多 但錄製巨集不會這樣顯示
11/09 08:32, 11F

11/09 08:34, , 12F
Range("A10") =Me.cells(10,1) 可以直接用變數
11/09 08:34, 12F

11/09 08:34, , 13F
花時間學會不煩惱
11/09 08:34, 13F

11/09 21:40, , 14F
改成以上高手提供方法.我剛學不到5天XD
11/09 21:40, 14F

11/10 07:24, , 15F
5天可以這樣 感覺頗有天分=,= 看來我不是學這個的料XD
11/10 07:24, 15F

11/10 10:19, , 16F
五天通常還學不會 & 接字串 :|
11/10 10:19, 16F
文章代碼(AID): #1O7itL67 (Visual_Basic)
討論串 (同標題文章)
文章代碼(AID): #1O7itL67 (Visual_Basic)