2021.12.09
カテゴリ：ブログ
セルをダブルクリックしたら色を変えられる１回目は緑２回目は赤３回目は元のセルの色
対象シートのシートタブを右クリックして「コードの表示」を選択し、現れた画面の右側のエリアに次のコードをコピーしてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Interior.ColorIndex
Case 10
Target.Interior.ColorIndex = 3
Case 3
Target.Interior.ColorIndex = xlNone
Case Else
Target.Interior.ColorIndex = 10
End Select
Cancel = True
End Sub