作者oysteromele (蚵仔煎不要蚵仔)
看板Visual_Basic
標題[VBA ] For NEXT 問題
時間Sun Nov 6 14:29:39 2016
=============================原本的寫法=============================
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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1478413781.A.187.html
1F：→ waiter337: 我可以執行說0,0 是否有原檔 11/06 22:25
2F：→ waiter337: 另外一件事,a欄一定得用文字型態喔,數字就算改了顏色 11/06 22:25
3F：→ waiter337: 也會被自動修正成黑色 11/06 22:25
4F：→ waiter337: 就算是格式改成文字也沒用喔,一定要在數字前面加上 '號 11/06 22:32
6F：→ oysteromele: 我的 D欄 有非數字符號 所以無法執行 感謝W大大 11/06 23:19
7F：→ MOONRAKER: 不要拼字串了 cells(r, c)不是簡單有效 11/07 09:49
8F：→ waiter337: 那可能要用分辨是否為文字的方式 如果是文字 則會跳過 11/09 03:28
9F：→ waiter337: 該行 11/09 03:28
10F：→ waiter337: 是數字就做下去 不過我忘了那個函數-m- 11/09 03:28
11F：推 tsongs: cells(r, c)好用太多 但錄製巨集不會這樣顯示 11/09 08:32
12F：→ tsongs: Range("A10") =Me.cells(10,1) 可以直接用變數 11/09 08:34
13F：→ tsongs: 花時間學會不煩惱 11/09 08:34
14F：→ oysteromele: 改成以上高手提供方法.我剛學不到5天XD 11/09 21:40
15F：→ waiter337: 5天可以這樣 感覺頗有天分=,= 看來我不是學這個的料XD 11/10 07:24
16F：→ MOONRAKER: 五天通常還學不會 & 接字串 :| 11/10 10:19