VBA基本　Lesson7

問題と実行結果　Lesson7

問題1

Sub Lesson7_1_3()

    Dim i As Long

    For i = 2 To 21

        Select Case Left(Cells(i, "A"), 1)

        Case "R"

            If Cells(i, "B") <> "○" Then

                Cells(i, "E") = "間違い"

            End If

        Case "G"

            If Cells(i, "C") <> "○" Then

                Cells(i, "E") = "間違い"

            End If

        Case "B"

            If Cells(i, "D") <> "○" Then

                Cells(i, "E") = "間違い"

            End If


        End Select

    Next i

End Sub

※使用している内容は、「Office TANAKA」VBA Basic セミナー受講資料から許可を得て引用しております。
田中先生ありがとうございます。