オフィス・ブール ロゴ
【レスキュー連絡先】
代表 : 末永 尚登
TEL: 070-4087-0025 FAX:095-893-6090

【 VBAパーツ 】

11.特定キーワードをカラーフォント表示

複数セル内の文字列で、特定の文字列(キーワード)が見つかれば、その文字を指定の色で表示させるというサンプルです。
RangeオブジェクトのCharactersプロパティを使って、文字位置を求めています。

Public Sub ColorKeyword(tgRange As Range, KeyWord As String)
'特定文字列のフォントを青色にする

    Dim rC As Range
    Dim startPos As Long
    Dim hitPos As Long
    Dim kwLength As String
    
    
    kwLength = Len(KeyWord)
    For Each rC In tgRange
        startPos = 1
        Do
            hitPos = InStr(startPos, rC.Value, KeyWord)
            If hitPos > 0 Then
                rC.Characters(Start:=hitPos, Length:=kwLength).Font.ColorIndex = 5   'Blue
                startPos = startPos + kwLength
            Else
                Exit Do
            End If
        Loop
    Next
    
End Sub
Public Sub Sample()
'実行例

    Call ColorKeyword(Range("A1:B1"), "test")

End Sub


 


オフィス・ブール ロゴ 所在地:長崎県長崎市  代表:末永尚登
E-mail: suenaga@officeboole.com   TEL: 070-4087-0025  FAX: 095-893-6090