曜日だけを赤字にするマクロの例 Excel VBA できること vba 曜日

Sub 曜日だけを赤字にするよ()
Application.ScreenUpdating = False
Dim myRng As Range
Dim myStr As String
Dim i As Integer
Dim a As Long
On Error Resume Next
For Each myRng In Selection
For i = 1 To Len(myRng)
myStr = Mid(myRng.Value, i, 3)
If myStr Like "[月|火|水|木|金|土|日]曜日" Then
With myRng.Characters(Start:=i, Length:=3).Font
.ColorIndex = 3
End With
End If
Next i
Next myRng
Application.ScreenUpdating = True
End Sub
・・・・・・・・・・・・・・・・・
詳しい説明はnoteにあります。よかったらみてください
https://note.com/makotoym/n/nfcc6ba06...
・・・・・・・・・・・・・・・・・
利用しているExcel：
Microsoft® Excel® for Microsoft 365 MSO
(バージョン 2311 ビルド 16.0.17029.20028) 64 ビット

動画編集アプリ：
Microsoft　Clipchamp

注意事項：
このやり方は、動画公開時点での情報です。
今後のExcel機能追加や変更などで、やり方が異なる場合や
関数の仕組みが変更される場合があります。
ご自分の環境にあったやり方で調整してください。

補足：
なるべくYouTubeに公開されていない動画を作ります。
こんなこと教えてほしい等、ご要望がありましたら
お気軽のコメントください。参考にします。