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

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

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

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

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





	

ビジネス統計スペシャリスト



エクセル分析 一般 公式テキスト発売中









VBAエキスパート



ExcelVBAベーシック公式テキスト発売中







日本初上陸！AIで学ぶ「デジタルマーケティング戦略」