条件付き書式のマクロについて

質問

すみませんが、教えてください。下記の内容をマクロで動作する方法を教えていただけますか？

下記のような表がありＡ列のNo.が200以上続きます。
Ｎｏ．1が、第1を選択した時、それ以外の第２～第5順位の数値には、対象外という意味で網掛けをします。
同様に、No.2が、第2を選択した時、それ以外の順位の数値に、同じ色で網掛けをします。
同様に、No.3以降、第1から第5のいずれかを選択した場合、他の順位の数値には、
対象外ということで網掛けがされます。
選択の条件は、どれか一つの順位を選択した時に、他の順位の数値に網掛けがされるという
単純なものです。

条件付書式でのマクロを考えたのですが、、うまくいきません。。お知恵をお返しくだささい。
宜しくお願い致します。

No 第1 第2 第3 第4 第5
1 A 23 A 64 A45 A58 A11
2 A0 9 A15 A28 A66 A35
3 A14 A18 A09 A53 A72
4 A42 A13 A07 A33 A81
5 A38 A65 A17 A25 A71

回答No.1

tom04 · ベストアンサー

こんにちは！

＞どれか一つの順位を選択した時・・・

とありますが、あるセルをダブルクリックした場合にしてみてはどうでしょうか？
一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてセルをダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
Dim i As Long
If Intersect(Target, Range("B:F")) Is Nothing Then Exit Sub
i = Target.Row
If Target <> "" And i > 1 Then
Cancel = True
Range(Cells(i, "B"), Cells(i, "F")).Interior.ColorIndex = 3 '←「赤」にしています。
Target.Interior.ColorIndex = xlNone
End If
End Sub 'この行まで

※　セルの色は「赤」にしていますが、他の色にしたい場合は「カラーインデックス」で検索してみてください。

※　条件付き書式が設定してある場合はマクロでは色変更できませんので、条件付き書式は削除しておいてください。

こんな感じではどうでしょうか？m(_ _)m

お礼

早速に、ありがとうございました。なるほどです、おっしゃる通りです。
大変助かりました。いつも感謝しております。