用VBA制作九九乘法表

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】！

3、会弹出模块编辑窗口，在其窗口中输入如下代码：Sub 九九乘法表制作1()Dim a!, b!For a = 1 To 9 For b = 1 To 9 If b > a Then Sheet7.Cells(a, b) = "" Else Sheet7.Cells(a, b) = b & "×" & a & "=" & a * b End If NextNextEnd Sub

4、在VBA界面，同时按下CTRL+F11，返回工作表。在工作表界面，点击【开发工具】菜单下的【插入】，选择一【表单按钮】，在空白单元格处，拉出一【按钮】，在同时弹出的【指定宏】窗口，选取编辑的代码，点击【确定】。

5、将按钮重命名为【乘法表】！

6、点击【乘法表】按钮，九九乘法表，瞬间OK！