Excel VBA----之用for ...next实现九九乘法表

1、功能：用for ...next实现九九乘法表。

1、初始数据为空；

2、在VBE中编写代码；

Sub ForEach99()

Dim a%, b%

For a = 1 To 9

    For b = 1 To 9

        If b > a Then

            Sheet3.Cells(a, b) = ""

        Else

            Sheet3.Cells(a, b) = a & "*" & b & "=" & a * b

        End If

    Next

Next

End Sub

3、设置断点，并按F8可以进行调试，在调试过程中，打开本地窗口，可以查看到变量的值的变化情况；

4、打开Excel界面，随着调试工作的进行，相应地，Excel表格的数据也在逐步发生变化。

4、点击插入--形状，选择一个圆形形状；

5、在刚刚选择的形状中右键，点击指定宏，指定刚刚定义的宏ForEach99，并点击确定。

6、运行宏，得到如下运行结果，即9*9九九乘法表。

7、综上所述，利用for....next可以实现99乘法表的功能。