快速输入九九表

快速输入九九表

假期到了，想自己做精美的九九表给小孩用，很多数据要一个个手动打很麻烦，下面教你一键生成。

新建空白表，快捷键“Alt+F11”，打开VB编辑器，“插入”-“模块”；

在新模块编辑栏中输入以下代码后按“F5”在表格中就会生成九九表；

Sub 制作九九表()

Dim a%, b%

For a = 1 To 9 '选择从第1行开始

For b = 1 To 9 '选择从第1列开始

If b > a Then

Sheet1.Cells(a, b) = ""

Else

Sheet1.Cells(a, b) = a & "X" & b & "=" & a * b

End If

Next

Next

End Sub

在生成的表中，根据自己想要的效果进行美化就OK啦。