[VBA ] For NEXT 問題

[oysteromele (蚵仔煎不要蚵仔)]

=============================原本的寫法=============================
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
→ waiter337: 我可以執行說0,0 是否有原檔
→ waiter337: 另外一件事,a欄一定得用文字型態喔,數字就算改了顏色
→ waiter337: 也會被自動修正成黑色
→ waiter337: 就算是格式改成文字也沒用喔,一定要在數字前面加上 '號
→ waiter337: http://imgur.com/a/pBMtZ
→ oysteromele: 我的 D欄 有非數字符號  所以無法執行  感謝W大大
→ MOONRAKER: 不要拼字串了 cells(r, c)不是簡單有效
→ waiter337: 那可能要用分辨是否為文字的方式 如果是文字 則會跳過
→ waiter337: 該行
→ waiter337: 是數字就做下去 不過我忘了那個函數-m-
推 tsongs: cells(r, c)好用太多 但錄製巨集不會這樣顯示
→ tsongs: Range("A10") =Me.cells(10,1) 可以直接用變數
→ tsongs: 花時間學會不煩惱
→ oysteromele: 改成以上高手提供方法.我剛學不到5天XD
→ waiter337: 5天可以這樣 感覺頗有天分=,= 看來我不是學這個的料XD
→ MOONRAKER: 五天通常還學不會 & 接字串 :|