VBAで特定の文字以降の文字列の色の変更をしたい
エクセルで特定の複数の特定の文字の色を変更したいです。
複数の文字列の色の変更の仕方については調べたのですが
変更したい文字列が複数でそれぞれ色指定が異なります。
内、ひとつは 『セル内の"→"以降の文字列』 を指定して
文字色を赤に変更したいのです。
変更したい文字列 『★とYY』を青に変えるのは下記で
できました。
(1) 『セル内の"→"以降の文字列』 を指定して文字色を赤に変更
(2) 範囲指定を開いているシート全体にする
という部分を加えたいです。
よろしくお願いいたします。
Sub Sumple()
Dim myReg As Object
Dim Match As Variant
Dim r As Range
Dim st As String
Set myReg = CreateObject("VBScript.Regexp")
myReg.Pattern = "★|YY"
myReg.Global = True
For Each r In Range("A1:C10") ' ←範囲はActiveSheetにしたい
st = r.Value
If myReg.Test(st) Then
For Each Match In myReg.Execute(st)
r.Characters(Start:=Match.Firstindex + 1, Length:=Match.Length).Font.ColorIndex = -3394816
' フォントカラーを青
Next
End If
Next
Set myReg = Nothing
End Sub
お礼
無事に変更することができました！ ありがとうございます！