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

ダブルクリックで色を設定した下記のVBAで色付けされた表があります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Target.Column) = 1 And Target.Text <> "" Then
With Target.Interior
If .Color = RGB(0, 112, 192) Then
.ColorIndex = xlNone
Else
.Color = RGB(0, 112, 192)
End If
Cancel = True
End With
End If
End Sub

これに加えて更にRGB(0, 112, 192)→RGB(252, 9, 0)→RGB(255, 255, 119)→色なしに変える方法を教えていただきたいです。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2022/12/24 16:50

こんばんは。

試していませんが、下記の様にしてどうでしょうか？

If .Color = RGB(0, 112, 192) Then
.ColorIndex = xlNone
Else
.Color = RGB(0, 112, 192)
End If

↓

If .Color = RGB(0, 112, 192) Then
.Color = RGB(252, 9, 0)
ElseIf .Color = RGB(252, 9, 0) Then
.Color = RGB(255, 255, 119)
ElseIf .Color = RGB(255, 255, 119) Then
.ColorIndex = xlNone
Else
.Color = RGB(0, 112, 192)
End If

この回答へのお礼

ありがとうございました。
思い通りの動作が得られました。

お礼日時：2022/12/24 17:11