【Excel】クリックで色のオンオフを切替える方法

ルイカともうします。
今回は、セルをクリックしただけで表の色を付けたり消したりする方法をご紹介いたします。
VBAを使用しますが、簡単な内容ですので、ぜひご覧くださいね。
VBAのコードは、この概要欄の一番下にあります。
Excelは2021で解説しています。
【使用素材】
Microsoft Excel
www.amazon.co....
音声
VOICEVOX: 四国めたん
voicevox.hiros...
音楽
BGMer: bgmer.net
イラスト
イラストAC: www.ac-illust....
いらすとや: www.irasutoya....
その他フリー素材サイト
#excel
#ハイライト
#色
#行
#クリック
'******************* 今回のVBAです *********************
Sub 行の色付け(対象 As Range)
Dim 行 As Long
Dim 列 As Long
行 = 対象.Row
列 = 9
With ActiveSheet
If .Cells(行, 列).Value = "" Then
.Cells(行, 列).Value = 1
Else
.Cells(行, 列).ClearContents
End If
End With
End Sub
'******************* ワークシートに記述するVBAです *********************
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B3:G12")) Is Nothing Then
Exit Sub
End If
If Range("K2").Value = "" Then
Exit Sub
End If
Call 行の色付け(Target)
Cancel = True
End Sub