Excel VBA：指定範囲内の特定文字だけに対してフォント等変更するコード

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell_font.html

こちらのwebsiteを参考に書き換えた。

「数字だけをヒラギノ角ゴ W6」にして目立たせるコード。

元の書式：色-自動、フォントサイズ-7
変更後の書式：フォント名-ヒラギノ角ゴ W6

#.Nameあたりに書き加えれば、数字だけ色を変えたり大きくしたり、いろいろできそう。

Sub mojiiro()

Dim myRng As Range
Dim myStr As String
Dim i As Integer

'----元の書式に設定する
For Each myRng In Selection
    With myRng.Font
        .ColorIndex = xlColorIndexAutomatic
        .Size = 7
End With

'----セルの文字列を1文字ずつ順番に調べる
For i = 1 To Len(myRng)
    myStr = Mid(myRng.Value, i, 1)
    '----数字があったら書式を変更する
    If myStr Like "[0-9]" Then
        With myRng.Characters(Start:=i, Length:=1).Font
        .Name = "ヒラギノ角ゴシック W6"
        End With
    End If
Next i

Next myRng
End Sub