VBA セルの色を変更する

質問

VBA（エクセル2007使用）で、セルの背景色を変更する場合についての質問です。

マクロを実行する度に、セルの背景色を変更するマクロを作成しました。

オレンジ→水色→緑→灰色→無色　　という風に変わっていくところまでは
できたのですが、これだとマクロを実行するのにセルの状態が無色か、指定した
カラーコードで塗りつぶされていないと実行できません。

下記、コードの一番最初の　Case　で　”背景色がどんな色の場合でも”という条件に
したいのですが、どのように記載したらわからずにいます。。。

----------------------------
Sub 色チェンジ()

n0 = ActiveCell.Interior.ColorIndex

Select Case n0
Case xlNone　　　’ここを”どんな色の場合でも、、、という条件にしたいです。。”
Selection.Interior.ColorIndex = 40
Case 40
Selection.Interior.ColorIndex = 34
Case 34
Selection.Interior.ColorIndex = 35
Case 35
Selection.Interior.ColorIndex = 15
Case 15
Selection.Interior.ColorIndex = xlNone
End Select

End Sub
-----------------------------------

回答No.1

keithin · ベストアンサー

Select Case activecell.interior.colorindex
Case 40
Selection.Interior.ColorIndex = 34
Case 34
Selection.Interior.ColorIndex = 35
Case 35
Selection.Interior.ColorIndex = 15
Case 15
Selection.Interior.ColorIndex = xlNone
case else
’どんな色の場合でも、、、という条件にしたいです。。”
Selection.Interior.ColorIndex = 40

End Select

お礼

keithinさん、ご回答ありがとうございます！！

昨日もVBAについて回答頂いた者です。

Case　から最初の色（オレンジ）を外して、オレンジは必ず実行するようにするんですね。
ネットからコードを探して組み立てているため、応用ができず質問ばかりして申し訳ありません。

また何か質問を上げる時があるかと思います。その際、質問を目にとめて頂けたのなら
是非お知恵を拝借させていただきたいです！！！

今回もありがとうございました！！！！