Excel VBA(8) – 生成99乘法表

今天再教一个 VBA 的经典案例：自动生成 99 乘法口诀表。

这个案例主要是帮助大家理解和掌握 for 循环语句的应用，代码非常简单。

效果：

点击按钮，即可生成 99 乘法口诀表。

方法：

1. 按 Alt F11 打开 VBE，输入以下代码：

Sub 乘法表()

Dim i As Byte, j As Byte, s As Byte '声明变量 i,j,s

For i = 1 To 9 'i为1到9的自然数

For j = i To 9 'j为1到9的自然数

s = j * i 's为i,j相乘的结果

Cells(j, i) = i & "x" & j & "=" & s '单元格第 j 行 i 列的值为相应的乘法公式，变量和符号之间用 & 连接

Next j

Next i

End Sub

2. 回到 Excel 创建按钮，修改文字，将其宏指定为上述“乘法表”，完成！

3. 心血来潮，我再加一段清空代码，新建一个“清空”按钮指定这个新宏

Sub 乘法表()

Dim i As Byte, j As Byte, s As Byte '声明变量 i,j,s

For i = 1 To 9 'i为1到9的自然数

For j = i To 9 'j为1到9的自然数

s = j * i 's为i,j相乘的结果

Cells(j, i) = i & "x" & j & "=" & s '单元格第 j 行 i 列的值为相应的乘法公式，变量和符号之间用 & 连接

Next j

Next i

End Sub

Sub 清空()

Range("A1:I9").Clear

End Sub

想要从零系统学习Excel，查看本站上方“视频教程”获取最新秋叶Office三合一办公应用课程！

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格入库表自动录入入库时间(excel表格制作教程入门)
• Excel表格三种方法实现多条件查找(excel表格三位数变成两位数)
• Excel表格制作可以自动更新的删除重复项(excel表格制作教程入门视频免费)
• Excel表格中高级筛选的优点以及常用方法介绍(excel表格中怎么换行)
• Excel表格把数据按类别快速拆分到不同工作表或工作簿(excel表格把同类型排在一起)
• Excel表格中最强大求和函数______DSUM函数(excel表格中怎么插行)
• Excel表格制作双层嵌套柱形图、更加直观的显示数据的关系(excel表格制作入门视频教程全集)
• 如何查询最后一个符合条件的数据你知道吗？(如何获得最后一个碎片)
• 你知道如何设置Excel表格中的公式不能被修改吗？(你知道如何设置页面为横向显示吗)
• SUMPRODUCT函数之轻松搞定实时动态统计不重复个数(sumproduct多条件求和怎么使用)