VBA基本 Lesson9

問題1

Sub Lesson9_1()

    Dim i As Long, A As Long

    For i = 2 To 11

        A = A + Cells(i, 2)

    Next i

    MsgBox A

End Sub

問題2

Sub Lesson9_2()

    Dim i As Long, A As Long

    For i = 2 To 11

        If Cells(i, 1) = "田中" Then

            A = A + 1

        End If

    Next i

    MsgBox A

End SubSub

問題と実行結果 Lesson9

VBA Basic Lesson9

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

フォローする