検索文字列のフォントを太字にする

前回CharactersオブジェクトのFont.Colorに値を設定
し、検索文字列のフォント色を変更を行いました。

CharactersオブジェクトのFont.BoldをTrueにすると、
検索文字列を太字にすることができます。

サンプルではA1～A5セルの各セルに
まずInStr関数で検索を行います。

そして対象文字列が存在する場合は、
Charactersオブジェクトの第1引数に開始位置、
第2引数に対象文字列の長さを指定し、
そのFont.BoldプロパティにTrueを設定し、
文字を太字に変更しています。

Sub 検索文字列を太字に()
    Dim strWord As String   '検索文字列
    Dim intLen  As Integer  '検索文字列の長さ
    Dim intLeft As Integer  '検索文字列開始位置
    
    strWord = "GANASYS"
    intLen = Len(strWord)
    
    For i = 1 To 5
        '文字列が検索された場合の開始位置を取得
        intLeft = InStr(Cells(i, 1).Value, strWord)
        
        If intLeft <> 0 Then
            '検索文字列を太字にする。
            Cells(i, 1).Characters(intLeft, intLen).Font.Bold = True
        End If
    Next
End Sub

結果は以下のようになります。