用for ...next实现九九乘法表

工具/原料

  • Excel软件

方法/步骤

  1. 1

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

    1、初始数据为空；

  2. 2

    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. 3

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

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

  4. 4

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

  5. 5

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

  6. 6

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

  7. 7

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

    END

注意事项

  • 注意for...next的语法
  • 注意实现99乘法表的表格属性值何时为空
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。