VBA 3重ループ 独学勉強中

Sub 年月日()
Dim b As Long
Dim a As Long
Dim c As Long
Dim t As Long
Dim f As Long
b = 1
c = 1
For a = 1 To 3
For t = 1 To 3
For f = 1 To 3
Cells(c, 1) = a
Cells(c, 2) = b
Cells(c, 3) = f
c = c + 1
Next f
b = b + 1
Next t
Next a
End Sub
上期の aが2に桁上がりするとｔが1に戻らず４になってしまいます　　aが桁上がりしたときに　tの値を1に戻したいのですがわからないので教えてほしい。予定では最終行が　3　3　3になるようにしたいのですが　これだと　3　9　3になってしまいます
1 1 1 ------ 1 1 1
1 1 2 ------ 1 1 2
1 1 3 ------ 1 1 3
1 2 1 ------ 1 2 1
1 2 2 ------ 1 2 2
1 2 3 ------ 1 2 3
1 3 1 ------ 1 3 1
1 3 2 ------ 1 3 2
1 3 3 ------ 1 3 3
2 4 1 ------ 2 1 1
2 4 2 ------ 2 1 2
2 4 3 ------ 2 1 3
2 5 1 ------ 2 2 1
2 5 2 ------ 2 2 2
2 5 3 ------ 2 2 3
2 6 1 ------ 2 3 1
2 6 2 ------ 2 3 2
2 6 3 ------ 2 3 3
3 7 1 ------ 3 1 1
3 7 2 ------ 3 1 2
3 7 3 ------ 3 1 3
3 8 1 ------ 3 2 1
3 8 2 ------ 3 2 2
3 8 3 ------ 3 2 3
3 9 1 ------ 3 3 1
3 9 2 ------ 3 3 2
3 9 3 ------ 3 3 3

現在 ------ こちらを作りたい

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2022/02/01 22:02

こんばんは

下記では、ダメでしょうか？

Sub 年月日()
Dim a As Long
Dim t As Long
Dim f As Long
Dim c As Long
c = 1
For a = 1 To 3
For t = 1 To 3
For f = 1 To 3
Cells(c, 1) = a
Cells(c, 2) = t
Cells(c, 3) = f
c = c + 1
Next f
Next t
Next a
End Sub

この回答へのお礼

出来ました。２重ループまでは本や投稿で書けたのですが３重ループは色々考えたのですが歯抜けになったりエラーのが大量発生
　助かりました　教えていただいた構文をこれからステップインでじっくり見て勉強させてもらいます

お礼日時：2022/02/01 22:49