ページ

2014年9月16日火曜日

マクロでFor~Nextを使う

Excel2013のマクロでFor~Nextを使ってみます。For~Nextを使うと、指定回数を繰り返し処理を行うことができます。構文は

For カウンタの変数 = 初期値 To 繰り返す回数
    繰り返す処理
Next

になります。使用例です。
変数 i が1から10になるまで繰返すコードです。Cellsで行位置i に i の値を表示させます。
(カウンタの変数は i とか j をよく使います)

Sub MyFor()
    Dim i As Long
  
    For i = 1 To 10
        Cells(i, 2) = i
    Next
End Sub
マクロでFor~Nextを使ってみます
実行結果です。1から10の行位置に、i の値の1から10が表示されました。
1から10の行位置に、i の値の1から10が表示
Stepを使うと、カウンタ変数にプラスする値を変更できます。下の場合 Step 2 とすることで、プラス2ずつ増加します。

Sub MyFor()
    Dim i As Long
   
    For i = 1 To 10 Step 2
        Cells(i, 2) = i
    Next
End Sub
Stepを使うと、カウンタ変数にプラスする値を変更できます
実行結果です。1からプラス2の行位置に、i の値の1からプラス2の値が表示されました。
1からプラス2の行位置に、i の値の1からプラス2の値が表示