Excel(エクセル) VBA入門：繰り返し処理(For〜Next,Do〜Loop)

繰り返し処理

For〜Next　　　topへ

• 繰り返す回数が決まっている場合、指定回数ステートメントを実行します。
  1. C1からC10までにA1*B1の計算結果を入力する。

     • Sub rei1() Dim myCnt As Long 　　For myCnt = 1 To 10 　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　Next myCnt End Sub

     • 実行結果
       
  2. 増減値に「2」を設定して1行置きに計算結果を入力する

     • Sub rei1() 　Dim myCnt As Long 　　For myCnt = 1 To 10 Step 2 　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　Next myCnt End Sub

     • 実行結果
       
  3. カウンタ(myCnt)が5になったら、途中でループを抜ける。

     • Sub rei1() 　Dim myCnt As Long 　　For myCnt = 1 To 10 　　　　If myCnt = 5 Then Exit For 　　　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　Next myCnt End Sub

     • 実行結果
       

For Each In〜Next　　　topへ

• オブジェクトを繰り返し処理します。
  1. セル範囲を繰り返し処理します。
     セル範囲(C1:C10)に(2つ左列のセルの値)*(1つ左列のセルの値)を入力します。

     • Sub rei1() 　Dim myRng As Range 　Dim c As Range 　Set myRng = Range("C1:C10") 　　For Each c In myRng 　　　　c.Value = c.Offset(0, -2).Value * c.Offset(0, -1).Value 　　Next c End Sub

     • 実行結果
       

Do〜Loop　　　topへ

• ループ条件を満たしている間は繰り返す。Do While
  ループ条件が満たされるまで繰り返す。Do Until
• 抜け出す条件が適当でない時、無限ループに入り終了できなくなります。
  • [Esc]キーを押すと、コードの実行が中断できます。
    タイミングが悪く中断できない時は[Esc]キーを押し続けます。
    • [CTRL]+[Break(Pause)](DOS-V機)または[CTRL]+[STOP](NECの98シリーズ)でも中断できます。
  1. myCntが5以下の時は繰り返し実行する。

     • Sub rei1() 　Dim myCnt As Long 　myCnt = 1 　　Do While myCnt <= 5 　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　　　myCnt = myCnt + 1 　　Loop End Sub

       • 実行後に条件判断する時はLOOPの後ろにWhileを書きます
         この例では「myCnt < 6」となります。
         

         Sub rei1() 　Dim myCnt As Long 　myCnt = 1 　　Do 　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　　　myCnt = myCnt + 1 　　Loop While myCnt < 6 End Sub

     • 実行結果
       
  2. myCntが5を超えたら繰り返しを抜け出す。

     • Sub rei1() 　Dim myCnt As Long 　myCnt = 1 　　Do Until myCnt > 5 　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　　　myCnt = myCnt + 1 　　Loop End Sub

     • 実行結果
       
  3. IF文で抜け出す条件を書き込む（myCntが5を超えたら繰り返しを抜け出す）

     • Sub rei1() 　Dim myCnt As Long 　myCnt = 1 　　Do 　　　　Cells(myCnt, 3).Value = Cells(myCnt, 1).Value * Cells(myCnt, 2).Value 　　　　myCnt = myCnt + 1 　　　　If myCnt > 5 Then Exit Do 　　Loop End Sub

     • 実行結果
       

スポンサードリンク

PageViewCounter
　
　Since2006/2/27