第4回 VBA 補足事項 〜ネスト構造〜

第4回 VBA 補足事項〜ネスト構造〜

プログラミング

2022.03.132023.12.24

第4回VBA学習では繰り返し処理を学びました。

そこでは1回だけの繰り返し処理を記述するだけでしたが、他にもネストというやり方もあります。

簡単にいうと繰り返し処理の中に繰り返し処理を書くことができるという意味です。

言葉だけでは分かりにくいと思いますので、今回は九九の表を作成していきたいと思います。

九九の表を作る
1. ForNext文の例
2. DoLoop文の例
まとめ

九九の表を作る

九九の表を作るための条件を定義します。

計算範囲は1〜9までとします。

列から計算するパターンと行から計算するパターンの両方にチャレンジしてみましょう。

必ずステップ機能を使用して動きを確認してください。

ステップ機能を忘れてしまった人はこちらの記事を確認してください。

第2回 VBA 補足事項〜ステップイン、コメントアウト、エディタ設定〜

ステップイン、コメントアウト、エディタ設定を詳しく説明しています。ステップイン、コメントアウトを上手く使ってプログラミングに役立てよう。

では、作成してみましょう！

例文は最後に確認するようにしてください。

ForNext文の例

Sub ForNext_EX1()
    Dim i As Long, j As Long
        For i = 1 To 9
            For j = 1 To 9
                Cells( i , j ).Value = i * j
            Next j
        Next i
End Sub

Sub ForNext_EX2()
    Dim i As Long, j As Long
        For i = 1 To 9
            For j = 1 To 9
                Cells( j , i ).Value = i * j
            Next j
        Next i
End Sub

DoLoop文の例

Sub DoLoop_EX1()
    Dim i As Long, j As Long
    i = 1
    j = 1
        Do While i <= 9
            Do Until j > 9
                Cells( i , j ).Value = i * j
                j = j + 1
            Loop
            i = i + 1
            j = 1
        Loop
End Sub

Sub DoLoop_EX2()
    Dim i As Long, j As Long
    i = 1
    j = 1
        Do
            Do
                Cells( i , j ).Value = i * j
                j = j + 1
                If j = 10 Then 
                    j = 1
                    Exit Do
                End If
            Loop
            i = i + 1
            If i = 10 Then Exit Do
        Loop
End Sub