For Nextで一定間隔の数値を繰り返す
For NextとStep 2で奇数だけを順番に足し、繰り返し回数を制御します。
実行前に確認
- Step 0は終了しないループの原因になります。ループ内部でカウンターnを直接書き換えないようにします。
- Excel実機での動作は未確認です。コピーした練習用ブックで試してください。
1サンプルコード
Option Explicit
Sub Example7016()
Dim n As Long
Dim total As Long
For n = 1 To 9 Step 2
total = total + n
Next n
MsgBox "奇数の合計：" & total
End Sub図で見るFor Nextで一定間隔の数値を繰り返すの流れ
イメージ図For NextとStep 2で奇数だけを順番に足し、繰り返し回数を制御します。
入力・開始時
nを1から9までStep 2で進める
実行する処理
1・3・5・7・9をtotalへ加算
結果
奇数の合計：25
セルの値や既存のファイルを変更しない例です。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
デスクトップ版Excelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］を選び、空のモジュールの先頭にこの例全体を貼り付けます。
- 2
書き換えは不要です。まず例の値のままで試し、値や変数名を変える場合は同じ名前の箇所も揃えます。
- 3
Example7016のSub内にカーソルを置き、F5キーで実行します。
- 4
1＋3＋5＋7＋9の合計25が表示されます。