Excel VBA编程 典型实例——九九乘法表

Excel VBA 编程 典型实例——九九乘法表

九九乘法表是小学生学习数学的一项基础知识，用户可以使用Excel 创建一个九九乘法口决表。其中，在Excel 中，用户除了可以利用公式来创建乘法表外，还可以使用VBA 编程来制作乘法表。本例将介绍如何使用VBA 代码来创建乘法表。

1．练习要点

● 判断语句

● 循环语句

2．操作步骤：

（1）选择【开发工具】选项卡，单击Visual Basic 按钮，选择【ActiveX 控件】组中的【命令按钮（ActiveX 控件）】按钮。然后，在工作表中，绘制该按钮，如图7-1所示。

图7-1 绘制命令按钮

提 示 保存工作表名称为“九九乘法表”；并保存为【Excel

启用宏的工作簿（*.xlsm ）】类型。

（2）右击绘制的“命令按钮”，执行【属性】命令，如图7-2所示。

选择

绘制

图7-2 执行【属性】命令

（3）在【属性】对话框中，选择Caption 选项，在其后的文本框中，输入“乘法表”文字，如图7-3所示。

图7-3 更改控件属性

（4）右击“乘法表”控件按钮，执行【查看代码】命令，如图7-4所示。

图7-4 执行【查看代码】命令

（5）在弹出的代码编辑窗口中，输入如图7-5所示的代码。

图7-5 输入代码

其中，在代码编辑窗口中输入的代码如下： Private Sub CommandButton1_Click() Dim i As Integer, m As Integer, num As Integer Dim Target As Range For i = 1 To 9

右击

效果 修改 执行 效果

输入

For m = 1 To 9

num = i * m

If i <= m Then

With Worksheets("Sheet1")

.Cells(m + 1, i).Value = i & "×" & m & " = " & num

.Columns("a:i").EntireColumn.AutoFit

End With

End If

Next

Next

End Sub

（6）返回工作表界面窗口中，单击【控件】组中的【设计模式】按钮，取消该模式，如图7-6所示。

单击

图7-6 取消设计模式

若需要对控件进行重新编辑，可以再次单击【设计模式】按钮，即可启用该模式。

提示

（7）单击工作表中的“乘法表”控件按钮，即可生成乘法表，如图7-7所示。

运行结果

图7-7 生成乘法表

单击【乘法表】按钮后，鼠标将变成漏斗形式，表示正在运行该程序代码。

提示

（8）在A1单元格中，输入“九九乘法表”文字，并合并A1至I1单元格区域。然后，设置“九九乘法表”文字的字体格式，如图7-8所示。

图7-8 设置标题文字

提示选择“九九乘法表”文字所在的单元格，在【字体】组中，设置【字体】为“方正姚体”；【字号】为18。

（9）选择第2行至第10行单元格区域，并单击【单元格】组中的【格式】下拉按钮，执行【行高】命令。然后，在弹出的【行高】对话框中，设置行高为20，如图7-9所示。

图7-9 设置行高

（10）选择数据所在的数据，单击【字体】组中的【边框】下拉按钮，执行【所有框线】命令，如图7-10所示。

图7-10 执行【所有框线】命令

提示选择A2至A10单元格区域，按住Ctrl键的同时，分别选择其他单元格数据即可进行不连续选择。

输入

执行

输入

执行

（11）在未取消选择之前，单击【字体】组中的【填充颜色】下拉按钮，选择“水绿色，强调文字颜色5，淡色80%”色块，如图7-11所示。

选择

图7-11 设置填充颜色

（12）单击Office按钮，执行【打印】|【打印预览】命令，即可查看“九九乘法表“的制作效果。