excel vba-搜尋文字且改變顏色的寫法

假設A1儲存格裡有一段文字"希望疫情遠離台灣,人人平安喜樂",
如果想寫個巨集,當搜尋到"平安"這二個字時,將這二個字變成紅色,
請問應該如何寫?
還請高手不吝告知小弟,謝謝幫忙~
jsl073 wrote:
假設A1儲存格裡有一(恕刪)


簡單做一個,給您參考囉,
Sub test()

Range("A1").Select
For i = 1 To Len(Range("A1"))
If Mid(Range("A1"), i, 2) = "平安" Then
Range("A1").Characters(Start:=i, Length:=2).Font.Color = RGB(255, 0, 0)
i = i + 1
End If
Next i
End Sub


執行結果:


希望能幫到您!
Der,misser1
misser wrote:
簡單做一個,給您參考(恕刪)


太棒了!!
終於找到有人告知寫法了,
感激不盡~~
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!