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

Excel VBA编程 典型实例九九乘法表Excel VBA编程 典型实例九九乘法表 九九乘法表是小学生学习数学的一项基础知识，用户可以使用Excel创建一个九九乘法口决表。其中，在Excel中，用户除了可以利用公式来创建乘法表外，还可以使用VBA编程来制作乘法表。本例将介绍如何使用VBA代码来创建乘法表。 1练习要点 执行 l 判断语句 l 循环语句 2操作步骤： 选择选项卡，单击Visual Basic按钮，选择组中的按钮。然后，在工作表中，绘制该按钮，如图7-1所示。 绘制 选择 图7-1 绘制命令按钮 保存工作表名称为“九九乘法表”；并保存为类型。 提 示 右击绘制的“命令按钮”，执行命令，如图7-2所示。 右击 图7-2 执行命令 在对话框中，选择Caption选项，在其后的文本框中，输入“乘法表”文字，如图7-3所示。 修改 效果 图7-3 更改控件属性 右击“乘法表”控件按钮，执行命令，如图7-4所示。 执行 效果 图7-4 执行命令 在弹出的代码编辑窗口中，输入如图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 返回工作表界面窗口中，单击组中的按钮，取消该模式，如图7-6所示。 单击 图7-6 取消设计模式 若需要对控件进行重新编辑，可以再次单击按钮，即可启用该模式。 提 示 单击工作表中的“乘法表”控件按钮，即可生成乘法表，如图7-7所示。 运行结果 图7-7 生成乘法表 单击按钮后，鼠标将变成漏斗形式，表示正在运行该程序代码。 提 示 在A1单元格中，输入“九九乘法表”文字，并合并A1至I1单元格区域。然后，设置“九九乘法表”文字的字体格式，如图7-8所示。 输入 图7-8 设置标题文字 选择“九九乘法表”文字所在的单元格，在组中，设置为“方正姚体”；为18。 提 示 选择第2行至第10行单元格区域，并单击组中的下拉按钮，执行命令。然后，在弹出的对话框中，设置行高为20，如图7-9所示。 输入 执行 图7-9 设置行高 选择数据所在的数据，单击组中的下拉按钮，执行命令，如图7-10所示。 执行 图7-10 执行命令 选择A2至A10单元格区域，按住Ctrl键的同时，分别选择其他单元格数据即可进行不连续选择。 提 示 在未取消选择之前，单击组中的下拉按钮，选择“水绿色，强调文字颜色5，淡色80%”色块，如图7-11所示。 选择 图7-11 设置填充颜色 单击Office按钮，执行|命令，即可查看“九九乘法表“的制作效果。