Re: [VBA ] For NEXT 問題

看板Visual_Basic作者luckid (luckid)時間8年前 (2016/11/19 10:19)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/3 (看更多)

※ 引述《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 小弟對vba所知甚少,附上程式碼僅供參考, 期能解決遇到數字則無法更改格式問題, 班門弄斧,貽笑大方,有誤請不吝指正,感謝. Sub test() Dim lastR lastR = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastR If Cells(i, "d") <> "" And Cells(i, "e") <> "" Then Cells(i, 1) = "'" & Cells(i, 1) With Cells(i, 1).Characters(Cells(i, "d"), Cells(i, "e")) .Font.ColorIndex = 3 .Font.Bold = True End With End If Next End Sub 原本是想更改完格式後,去掉開頭的'符號, 但發現去掉之後,原本改完顏色的部份就會消失, 想不到辦法可解決,不好意思,若有前輩願意指點一二,小弟不勝感激. 在EXCEL2007, 儲存格格式為數字的情形下, 同一儲存格內的個別數字好像無法修改為不同格式, 試著改過幾次又都跳回來. 另外就是不知為何,範圍以外的A欄儲存格也會被更動格式,變成紅色, 無奈之下只好新增if以避免此問題. -- https://www.youtube.com/watch?v=B_CMmbFexbM