難易度:★☆☆(かんたん)

※当校のExcel VBAコースを補足する内容となっています。


九九の表を作成するプログラムで、繰り返し処理の中にさらに繰り返し処理が入る、「多重ループ」を学びます。
とてもよく使われる処理ですが、多くのプログラミング初心者がつまづきやすいポイントになっています。

「列」と「行」があるExcelのセル操作には、2回繰り返しを行う「2重ループ」は必須の処理です。
まずは処理の流れがイメージできるようになりましょう。

繰り返し処理を行う「For文」を2回使います。

九九の表

9×9よりもっと大きな数字でやってみましょう。


Sub 九九の表()
    Dim i, j As Long
    Const w_Max = 1000
    
    Application.ScreenUpdating = False
    
    Range(Cells(1, 1), Cells(w_Max, w_Max)) = ""
    
    For j = 1 To w_Max
        For i = 1 To w_Max
            Cells(i, j) = i * j
        Next i
    Next j

    Application.ScreenUpdating = True
End Sub