While 条件式
    処理
Wend
| 条件式 | 
ステートメントの継続条件を指定する式 この式の評価が true である間、ループが実行される  | 
Option Explicit
Sub main()
  Dim counter As Integer
  
  counter = 0
  While counter < 3
    counter = counter + 1
    Debug.Print (counter & "回目のループです")
  Wend
  
  '実行後、イミディエイト ウインドウに
  '以下の出力があります
  '
  '1回目のループです
  '2回目のループです
  '3回目のループです
End Sub
このサイトはリンクフリーです。リンクを貼る際に連絡は不要です。
© EXCEL VBA リファレンス all rights reserved.