選択範囲のセル内の文字列の一部を赤色に変更するマクロ

Question

マクロ初心者です

例えば、下記１行ずつは、それぞれ１つのセルに入っています
11・11
6・ 4
12・ 4
0・12

この表の「・」の後ろを赤文字にしたいです
初心者なので、マクロの記録から拾いながらしようと思ったのですが、うまくできません

作ったのはこちらです

Sub 赤文字へ変更()
'
' 赤文字へ変更 Macro
'

'
Range("B2").Select
With ActiveCell.Characters(Start:=4, Length:=2).Font
.Color = -16776961
End With
Range("B3").Select
End Sub

上記はを１行目しか変わらなくて、ネットから色々見て下記を作ってみたところできませんでした
Dim i As Long
For Each r In Selection
With ActiveCell.Characters(Start:=4, Length:=2).Font
.Color = -16776961
End With
End Sub

発生している問題・エラーメッセージ

エラーメッセージ
コンパイルエラー
function または変数が必要です。

すみませんが、何が足りないかを教えていただけますでしょうか？
よろしくお願いいたします。

Answer 1

Option Explicit

Sub test()
    Dim i As Long
    Dim r As Range

    For Each r In Selection
        i = InStr(r.Value, "・")
        
        If i > 0 Then
            r.Characters(Start:=i + 1, Length:=2).Font.Color = vbRed
        End If
    Next
End Sub

こちらは、これで
コンパイルエラーは出ません。
動作確認はしていません。

function または変数が必要です。

のエラーは、関数を呼び出そうとしているが、
そのような関数はないというときに出るエラーのようなので、
Selectionが関数ではないかと認識されているようです。
なんでそんなことになるか今一つわかりません。

まっさらなモジュールに、コピペでなく、
手入力で書いてみたらどうなりますか？

ちなみに、

ツール→オプション→全般

で、エラートラップとコンパイルの設定はどのようになってますでしょうか？

Comments

[mokahanakabu]

貼り付けて実行したら、うまく実行できました
ありがとうございました
大変助かりました。

Answer 2

Dim i As Long
Dim r As Range

For Each r In Selection
  With r.Characters(Start:=4, Length:=2).Font
    .Color = -16776961
  End With
Next r

修正点は下記です。

・rを宣言する
・With内でrを使う
・Forに対するNextを書く

Comments

[mokahanakabu]

ご回答いただきありがとうございます。
そのまま貼り付けて、マクロ実行をしたのですが、
最初のエラーメッセージと同様に
コンパイルエラー
function または変数が必要です
と出てしまいます
どうしたらよいでしょうか？

[meg_]

回答のコードは実行部分のコードですので、Sub()の中に書いて実行してください。

例えば、Sub test() と End Sub で回答のコードを挟んでください。

[mokahanakabu]

ありがとうございます
実行してみます

[mokahanakabu]

たびたびすみません
下記を貼り付けて実行してみましたがまただめでした
なにがいけないかわかれば教えていただけませんでしょうか？

Sub 赤文字へ変更()
'
' 赤文字へ変更 Macro
'

'
Sub test()
Dim i As Long
Dim r As Range

For Each r In Selection
With r.Characters(Start:=4, Length:=2).Font
.Color = -16776961
End With
Next r
End Sub

[mokahanakabu]

たびたびすみません
下記の通り、貼り付けてみました
途中で止まってしまって、Selectionのところが青色になっています。
エラーコメントは元と一緒です
なにか間違っていますでしょうか？

Sub test()
Dim i As Long
Dim r As Range

For Each r In Selection
With r.Characters(Start:=4, Length:=2).Font
.Color = -16776961
End With
Next r
End Sub

[meg_]

上記コードでエラーは出ませんでした。
新しいエクセルブックで試してもエラーが出ますでしょうか？

[mokahanakabu]

新しいエクセルデータを開けて実行してみました（エクセルは2013）
コンパイルエラー
function または変数が必要です　とエラーで終わってしまいます

表は下記に罫線も入っている状態です
最初のセルは、B2にあります
上から下まで選択して、マクロを実行しました

11・11
6・ 4
12・ 4
0・12
1・ 2
0・ 3
6・ 4
6・ 4
6・ 4
6・ 4
6・ 4
6・ 4
6・ 4
6・ 4

[meg_]

マクロ画面の｢デバッグ｣-｢VBAProjectのコンパイル｣をクリックして、エラーは出ますか？
出なければ、まずは一つのセルを選択してマクロを実行してみてください。

[mokahanakabu]

返信がおそくなりすみません
ご指示どおりにクリックしたのですが、エラーが出て同じようなコメントが出てしまします

[meg_]

コンパイルエラーが出るのは文法上のエラーがあるのだと思います。
状況確認のためにエラーが出ている画面を質問にアップしてもらえませんか？(マクロ作成画面(VBE全体が映るように))

[mokahanakabu]

わかりました
再度質問にあげてみます
よろしくお願いします

[mokahanakabu]

meg_様、勉強になりました
親身なご対応ありがとうございました