あなたは、ループのカウンタ変数に別の増分を指定するために、Excel VBAのステップキーワードを使用することができます。

1.コマンドボタン

ワークシート上で、次のコード行を追加します。

Dim i As Integer

For i = 1 To 6 Step 2

Cells(i, 1).Value = 100

Next i

あなたはシート上のコマンドボタンをクリックすると、結果：

Positive Step

説明のための：次へとの間のコード行は、三回実行されます。 I = 1のために、Excel VBAは、次に私は、それが2で、Iを増加し、ステートメントの背面にジャンプに到達すると、ExcelのVBAは、行1および列1の交点のセルに値100を入力します。 iが3 =ため、エクセルVBA等行3列1、の交点のセルに値100に入射

2.コマンドボタン

ワークシート上で、次のコード行を追加します。

Dim j As Integer

For j = 8 To 3 Step -1

Cells(6, j).Value = 50

Next j

あなたはシート上のコマンドボタンをクリックすると、結果：

Negative Step

説明のための：次へとの間のコード行を6回実行されます。 ExcelのVBAは次Jに到達したとき、J = 8の場合、ExcelのVBAは、それは1とJを減少し、ステートメントの背面にジャンプし、列6および列8の交点のセルに値50を入力します。 J = 7の場合、エクセルVBA等行6及び7列の交点にセルに値50に入射