For ... To ... Next

simoom

(July 25, 2008 11:12 PM) | 個別ページ

Sub test()

    Dim i As Integer

    'iが1から3になるまで繰り返す(3回)
    For i = 1 To 3
        MsgBox i
    Next i

End Sub