VBA ダブルクリックするたびにセルの色が順番に変わる

エクセルのＡ1：Ａ5の範囲でセルをダブルクリックするたびに（色なし→赤→青→緑→黄色）に変化させる方法があれば教えていただきたいです。
宜しくお願いします。

No.2 回答者： enunokokoro 回答日時： 2019/04/19 19:11

No.1の回答者です。

書き忘れていましたが、コピーしたコードを記載する場所ですが、
設定をするシートタブを右クリックして、表示されたメニューから
[コードの表示]を選択しコードを貼り付けます。

No.1 回答者： enunokokoro 回答日時： 2019/04/19 19:06

こちら↓で対応できると思います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
　Select Case Target.Interior.ColorIndex
　Case Is = xlNone
　　Target.Interior.ColorIndex = 3
　Case Is = 3
　　Target.Interior.ColorIndex = 5
　Case Is = 5
　　Target.Interior.ColorIndex = 4
　Case Is = 4
　　Target.Interior.ColorIndex = 6
　Case Is = 6　' 黄色だった場合に塗りつぶしなしに戻す
　　Target.Interior.ColorIndex = xlNone
　End Select
Cancel = True
End Sub

塗りつぶしなしに戻さないなら
　Case Is = 6　' 黄色だった場合に塗りつぶしなしに戻す
　　Target.Interior.ColorIndex = xlNone
の部分を削除してください。