HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > 条件に一致したセルに対して、1つおきに処理を施す(フラグを使用)

即効テクニック

セル操作関連のテクニック

条件に一致したセルに対して、1つおきに処理を施す(フラグを使用)

(Excel 97/2000)
サンプルマクロは、アクティヴシートのA列で"OK"と記述されているものを上から順に調べ、1つおきに背景色を黄色にする処理を施します。フラグを使用したサンプルです。
Sub Sample()

Dim myRow As Long
Dim myFlag As Boolean

    For myRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        With Cells(myRow, 1)
            If .Value = "OK" Then
                If myFlag Then .Interior.Color = RGB(255, 255, 0)
                myFlag = Not myFlag
            End If
        End With
    Next

End Sub