Excelのマクロについて

マクロを独学で学んでいるところですが、下記のような場合は、どのように書いたら良いでしょうか？
1.「A1」から「T1」まで100を上限とした数値が入力されています。
2.一方、「A2」には100までを上限とした数値が一つ入力されています。
3.上記2の「A2」の数値が上記1「A1」から「T1」の中に入力されている数値と同じ場合、「A1」から「T1」の該当する数値（例えば、「Ｄ１」）を色付け（みどりのコード　0　176　80）するときの「式」を教えてください。
下記のとおり作成しましたが、再三再四、エラー表示で解決できません。
Sub マクロ研修()
Sheets("点数表").Select
Range("A1:T12").Select
If Range("A2") = ("A1:T1") Then
End If
Range("A1:T2).Interior.Color = RGB(0, 176, 80)

End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/06/14 04:58

コードのミスなのか質問時に手打ちしてのミスなのか悩みましたけど。

Sub マクロ研修()
Dim r As Range

With Sheets("点数表")
.Select
For Each .Range("A1:T1")
If .Range("A2").Value = r.Value Then r.Interior.Color = RGB(0, 176, 80)
Next
End With
End Sub

この回答へのお礼

早速のご回答ありがとうございます。
ご教示に従い試行してみたところ「For Each.Range（Ａ1：Ｔ1）」の部分が、構文エラーとなります。マニュアルと照らし合わせて挑戦しているのですが、なかなか結果が出ません。再度、ご教示ください。宜しくお願いいたします。

お礼日時：2022/06/14 07:53

No.2 回答者： めぐみん_ 回答日時： 2022/06/14 07:59

No.1のお礼について

＞For Each.Range（Ａ1：Ｔ1）

（）は全角文字ですし他にもミスがあります。
けど私も抜けてますね。

For Each r In .Range("A1:T1")

です。
寝ぼけてた？

この回答へのお礼

再度のご教示ありがとうございました。
お示しいただいたとおり書き込みしたところ、望んだ結果を得られました。
只今、勉強中で初歩の初歩を繰り返し行っています。
再び躓きましたらご質問をさせていただきたいと存じます。
その時もよろしくお願いいたします。ありがとうございました。

お礼日時：2022/06/14 09:03