完成まで、もう一息

Sub Syori()
    Dim i
    For i = 2 To 20000
        If A列のセルのフォント色が赤だったら Then
            Range("B" & i) = 1
        End If
    Next i
End Sub

そして四苦八苦しながらも、なんとか上記のコードを作成しました。

「ほら！もう完成に近いじゃないか、あと一息だよ。
あとはIfステートメントの条件を記述すれば、プログラムの完成だ」

八木くんが、星くんの背中をバンと叩きます。

「ゲホッ…！サンキュー。でも"セルのフォント色が赤だったら"なんて…
どうやって記述すればいいのか、見当もつかないよ…」

星くんがムセながらそういうと、

八木くんが、ニヤニヤしながら答えます。

「とっておきの"方法"～～～？？」

星くんは真顔で、八木くんの顔をのぞき込みました。

第8話「星くん、VBAプログラムを完成させる！」に続く

文・イラスト ／ 武藤 玄