ブラッシュアップしたコード

「だろう？ここまでの部分を反映させて、お前の作ったプログラムを書き換えると…こんな具合になるよ」

Sub CorrectCode()
    Dim i As Long
    Dim j As Long
    Dim Hantei As Boolean
    
    '変数の値を初期化する
    Hantei = False
    
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row
            If Cells(i, 1) = Cells(j, 3) Then
                '変数に"True"を代入する
                Hantei = True
                Exit For
            End If
        Next j
        
        If Hantei Then
            '変数の値を"False"に戻す
            Hantei = False
        Else
            'セルの背景色を変える（チェックする）
            Cells(i, 1).Interior.ColorIndex = 6
        End If
    Next i
End Sub

「Boolean型の変数Hanteiは、そもそも初期値で"False"が格納されているんだけど、
プロシージャの最初で明示的に"Hantei = False"と代入するのは、この先のメンテナンスを考えたときわかりやすいからこれでいい。
どうだい星？ブラッシュアップできたろう？」

星くんはうつむいたまま、何か考え込んでいます。

「…さっき、八木が説明したのと全く同じことを、岬さんもいってたよ…」 「岬って…。おまえのアシストについた子だろう？」 「うん…。なんかVBAの資格試験を受けるんだっていって、自分で勉強してるみたいなんだよ」 「ほう…」

八木くんが興味シンシンといった感じで、星くんの話に身を乗り出しました。

第24回「運用するシーンをイメージしよう」に続く
文・イラスト ／ 武藤 玄