もどる

 Do...Loop ステートメント
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

もどる


(c) Copyright 2005 VBAを基礎から解説 VBA World All rights reserved.
E-Mail:info@vba-world.com
 一連のステートメントを繰り返すフロー制御ステートメントです。繰り返す回数が分かっていないときに使います。
 「Do...Loop ステートメント」にはいろいろな使い方がありますが、ここでは基本的な使い方を紹介します。その他はヘルプを参照してください。
 構文解説

 次に「Do...Loop ステートメント」構文の例を示す。

例1 Private Sub CommandButton1_Click()
 Dim i As Integer

 Do While i < 10
  i = i + 1
 Loop

 MsgBox i

End Sub

例2 Private Sub CommandButton1_Click()
 Dim i As Integer

 Do
  i = i + 1
  If i >= 10 Then Exit Do
 Loop

 MsgBox t

End Sub

解説 Do...Loop間を10回繰り返す。例1と例2の実行結果は同じとなる。