2007基础:打造“九九乘法表”
运行Excel 2007后,点击切换到“宏”选项下,点击“宏”选项组中中的“查看宏”打开宏对话框,在“宏名”下输入一个名称(比如“乘法表”),点击“创建”按钮进入编辑状态(如图1)。
图1 Excel宏
然后清空右边窗格中的代码,并在其中输入如下代码:
Sub 九九表()
Dim i As Byte, j As Byte, msg As String
For i = 1 To 9 ‘定义相乘的一个数字变量
msg = msg & Chr(10)
For j = 1 To I ‘定义另一个数字变量
msg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _
& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") &
‘完成两个数字相乘运行,如相乘的结果小于10的话则在中间加“地”字
Space(3)
Next
Next
MsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题
End Sub
然后按下Alt+Q组合键关闭并返回Excel中,好了,按下Alt+F8组合键再次打开宏对话框,点击“运行”按钮看看,是不是立即出现了我们熟悉的“九九乘法表”?(如图2)
图2 Excel中的九九乘法表