用VBA制作九九乘法表

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

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

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