#6 繰り返し処理をやってみよう！【Excelマクロ講座】
繰り返し処理「For～Next」を使ってみる
Sub 繰り返し処理()
'変数宣言
Dim i As Integer
'繰り返し処理
For i = 0 To 3
'変数iの中を確認
MsgBox i
Next i
End Sub
【解説】
Dim i As Integer
繰り返し処理で使うために変数を宣言（カウンター変数）
変数名は「i」 データ型は整数型
For i = 0 To 3
For … 繰り返し処理が始まりますよという合図
i… 繰り返す”回数”を入れていくための変数
0 to 3… 0から3まで順番にiに代入していくよ（つまり繰り返す回数！）
Next i … 繰り返し処理はここまでだよという合図（Nextの後ろのiは省略可）
・カウンター変数は何でも良いけどiがよく使われる
・For 変数 = 値 To 値 から Next の間に繰り返したい処理を書く
ヒント：変数を使ったセルの操作はcells()を使おう！
～～～シンキングタイム～～～
答え！
Sub 答え()
For i = 1 To 3
Cells(i, 1).Value = i
Next i
End Sub★point
カウンター変数はカウンターとしての役割だけでなく色々利用できる！
Cells()の行や.Valueもカウンター変数iで指定すれば順番に入力していってくれる！
他にもやり方は色々あるので参考までに！
ヒント：
シートの追加：Worksheets.Add
※挿入されたシートが自動でアクティブシート（作業中のシート）になる
シートの名前：ActiveSheet.Name = "名前"
文字列と変数の結合： & や + を使う
～～～シンキングタイム～～～
答え！
Sub 答え()
For i = 1 To 3
Worksheets.Add
ActiveSheet.Name = "シート" & i
Next
End Subもっとシンプルに書くと
Sub 答え()
For i = 1 To 3
Worksheets.Add.Name = "シート" & i
Next
End Subとも書ける！
色々試してみよう！
他の繰り返し処理
Do While ～ Loop
条件式が一致している間処理を繰り返してくれる！
例えば…
Sub 繰り返し処理2()
'変数を宣言して代入
Dim n
n = 1
'3じゃない間=3が出るまで ループ開始
Do While Cells(n, 1).Value <> 3
Cells(n, 2).Value = "○"
'次の行へ
n = n + 1
Loop
End Sub【解説】
Dim n
as～を省略するとバリアント型変数（どんなデータでも格納できる）に！
n=1
値を入れておかないと0のまま。次の Cells(n,1).value でエラーになってしまうので代入を忘れず！
Do While Cells(n, 1).Value <> 3
「 Cells(n, 1).Value <> 3」で値が3以外の時
※＜＞は「～ではない」という演算子（空白ではない、などに使える！）
Cells(n, 2).Value = "○"
B列に○を入力していく
n = n + 1
nを1増やす
これを忘れるとnの値が変わらず無限ループに！（要注意！）
※もし無限ループして画面が固まった場合は「Esc」キーでマクロを強制終了しよう！
memo：
Do…Loop には全部で4パターンある
★条件式が前にくるか後ろに来るか
処理をする前に条件をチェックするか、処理をしてからチェックするかの違い
①Do While 条件
処理
Loop
②Do
処理
Loop While 条件
★条件が正しくない間繰り返す処理の場合
③Do Until 条件
処理
Loop
④Do
処理
LoopUntil 条件
なので上記の例なら
Do While Cells(n, 1).Value <> 3
↓
Do Until Cells(n, 1).Value = 3とも書ける！
つまり…
繰り返す回数が決まっているなら
For Next
繰り返す条件が決まっているなら
Do…Loop
これを頭の片隅に置いておこう！
ここまでお疲れさまでした！
次回：
条件分岐でできることの幅が広がる！
ifを使って複雑な処理に挑戦しよう！
