Excel スタンダード 問題 9 – 11

次の図のように、A列の文字列に半角がある場合、該当するセルの文字色を赤色に変更したい。このとき、【 1 】【 2 】に入る適切な内容を答えなさい。

Sub Test()

    Dim i As Long

    i = 1

    Do While Cells(i, 1) <> ""

        If Cells(i, 1) =【 1 】(Cells(i, 1),【 2 】) Then

            Cells(i, 1).Font.ColorIndex = 3

        End If

        i = i + 1

    Loop

End Sub

正解を見る