セルの色による条件分岐

セルの色がカラーインデックスが34又は36番の時の処理を実行したく、以下のIf文を作成しました。

    If Cells(i, 3).Interior.Color = 34 Or Cells(i, 3).Interior.Color = 36 Then
　　　～処理～
　　EndIF

ところがCells(i,3)の色が34（水色）でも36（薄黄）でも処理が実行されません。
色が間違えている場合があるので、

Cells(i,3).Interior.ColorIndex = 34

で色を付けて再度確認しましたが、同様でした。

IF分で分岐する時はカラーインデックスではなく、「RGB」の番号で無いと反応しないのでしょうか？
原因、修正点などご教授いただければ幸いです。
よろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

Interior.ColorをInterior.ColorIndexにすれば良いかと思います。

vba
1If Cells(i, 3).Interior.ColorIndex = 34 Or Cells(i, 3).Interior.ColorIndex = 36 Then
2    '処理
3EndIF

投稿2020/11/27 13:31

総合スコア10736

2020/11/27 23:24

Index忘れてました！まったく気づきませんでした・・・ありがとうございました！

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

関連した質問