作者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/cn.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