Excel VBA编程 典型实例——九九乘法表
-
Excel VBA
编程
典型实例——九九乘法表
九九乘法表
是小学生学习数学的一项基础知识，用户可以使用
Excel
创
建一个九九
乘法口决表。其中，在
Excel
< br>中，用户除了可以利用公式来创建乘法表外，还可以
使用
VBA
编程来制作乘法表。本例将介绍如何使用
VBA
代码来创建乘法表。
1
．练习要点
执行
判断语句
循环语句
2
．操作步骤：
（
1
）选择【开发工具】选项卡，单击
Visual Basic
按钮，选择【
ActiveX<
/p>
控件】组中
的【命令按钮（
Active
X
控件）
】按钮。然后，在工作表中，绘制该按钮，如图
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<
/p>
所示的代码。
输入
图
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(
.Cells(m + 1, i).Value = i
&
.Columns(
End
With
End
If
Next
Next
End Sub
（
6
）返回工作表界面窗口中，单击【
控件】组中的【设计模式】按钮，取消该模
式，如图
7-6
所示。
单击
图
7-6
取消设计模式
若需要对控件进行重新编辑，可以再次单击【设计模式】按钮
，即可启用该模式。
提
示
（
7
）单击工作表中的“乘法表”控件按钮
，即可生成乘法表，如图
7-7
所示。
运行结果
图
7-7
生成乘法表
单击【乘法表】按钮后，鼠标将变成漏斗形式，表示正在运行
该程序代码。
提
示
（
8
）在
A1
单元格中，输入“九九乘法表”文字，并合并
A1
< br>至
I1
单元格区域。然
后，设置
“九九乘法表”文字的字体格式，如图
7-8
所示。