|
For Nextについて、予想外の動きをしたので質問します。
(実際は、テキストボックスの順次書き出しなのですが)
Private Sub CommandButton1_Click()
Dim r As Range
Dim cnt As Long
cnt = 0
For i = 1 To 6
For Each r In Sheets("Sheet1").Range("A1:F6").Columns(i)
cnt = cnt + 1
r.Value = cnt 'Me.Controls("textbox" & cnt).Value
Next r
Next i
End Sub
上記コードを実行すると
1 7 13 19 25 31
2 8 14 20 26 32
3 9 15 21 27 33
4 10 16 22 28 34
5 11 17 23 29 35
6 12 18 24 30 36
の結果が得られると思ったのですが、
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
の結果が得られます。
なぜ、cntがうまく加算されないのか、分かりません。
F8でステップ毎の動きをデバッグ確認したら、
For i = 1 To 6
の所に行きません。
どこがまずいのでしょか。
|
|