指定した条件に当てはまった場合に背景色の変更を行いたい

前提・実現したいこと

指定したセル内（H5:H3000）の背景が「水色」の場合に、その下のセル背景が「紫色」で、なおかつその下も更に「紫色」が続いている場合、
1番上だけ「紫色」のままで他の「紫色」は「無色」にする　というマクロを組みたいです。

今朝初めてVBAに触った初心者（他のプログラムも知らない）のためご回答を全て理解できるか不安ですが、
なんとか解決したいと思っておりますので、ご助力の程よろしくお願いいたします。

例
H10：水色　　⇒　H10：水色
H11：無色　　⇒　H11：無色
H12：水色　　⇒　H12：水色
H13：紫色　　⇒　H13：紫色
H14：水色　　⇒　H14：水色
H15：紫色　　⇒　H15：紫色
H16：紫色　　⇒　H16：無色　←変更される
H17：紫色　　⇒　H17：無色　←変更される
H18：無色　　⇒　H18：無色
H19：紫色　　⇒　H19：紫色

発生している問題・エラーメッセージ

インターネットで検索を行い、コードを組み合わせてみましたが動作せずの状況です。

該当のソースコード

Sub セルの背景色を変更()

    Dim MyRange As Range

    '範囲指定
    For Each MyRange In Range("H5:H3000")

            'H列に水色があれば下のセルを参照する
            If RGB(0, 255, 255)
　　　　　　　　　ActiveCell.Offset(1, 0).Select

            '下のセルが紫なら更に下のセルを参照し、無色に変更する
　　　　　           If RGB(148, 0, 211)
　　　　　　　　　　　　　　ActiveCell.Offset(1, 0).Select
　　                　　　MyRange.Interior.Color = xlNone
　　　　　　　　　　　End If
　　　　　　　End If       
       
    Next

End Sub

補足情報（FW/ツールのバージョンなど）

Excel 2019を使用しています。

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

回答1件

ベストアンサー

コードを組み合わせてみましたが動作せずの状況です。

コンパイルエラー位は解決してからにしましょうよ。

次の次のセルのようにオフセットでの相対処理になっていますが、
次の次のセルの色を変えたら、そのセルに到達した時に条件が変わってしまいますよね。

なので、編集するかどうかの条件を記録するようにして処理します。

VBA
1  Dim ModifyFlg As Boolean, i As Integer
2  
3  ModifyFlg = False
4  For i = 5 To 3000
5      If ModifyFlg Then
6        If Range("H" & i).Interior.Color = RGB(148, 0, 211) Then
7          Range("H" & i).Interior.Color = xlNone
8        Else
9          ModifyFlg = False  'セルが紫で無い場合はモードリセット
10        End If
11      End If
12
13      'セルが紫で前のセルが水色の場合
14      If Range("H" & i).Interior.Color = RGB(148, 0, 211) And Range("H" & i - 1).Interior.Color = RGB(0, 255, 255) Then
15        ModifyFlg = True 'モードをセット
16      End If
17  Next