ダブルクリックでセルの色を変える

ExcelVBA

セルをダブルクリックするごとに色を変えたい。 そんなときはイベントプロシージャを使います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B7:H12")) Is Nothing Then Exit Sub '指定した範囲だけ処理する
        Select Case Target.Interior.Color
            Case RGB(255, 255, 255)
                Target.Interior.Color = RGB(235, 121, 136)  '白だったら赤に
            Case RGB(235, 121, 136)
                Target.Interior.Color = RGB(155, 250, 102)  '赤だったら緑に
            Case Else
                Target.Interior.Color = RGB(255, 255, 255)  '他の色だったら白に
        End Select
    Cancel = True  'ダブルクリックイベントをキャンセルする
End Sub

ダブルクリックした回数を数えて処理を変えるわけではないんですね。