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

jsl073

jsl073
個人積分：268分
文章編號：82947976

268分

樓主

2021-09-10 13:11

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

2021-09-10 13:11 發佈

文章關鍵字 excel vba- 顏色搜尋文字寫法

misser

misser
個人積分：395分
文章編號：83127798

395分

2樓

2021-10-01 12:48

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

執行結果：