本文总共594个字,阅读需2分钟,全文加载时间:2.663s,本站办公入门专栏收录该内容! 字体大小:

文章导读:今天再教一个 VBA 的经典案例:自动生成 99 乘法口诀表。 这个案例主要是帮助大家理解和掌握 for 循环语句的应用,代码非常简单。 效果: 点击按钮,即可生成 99 乘法口诀表。 方法: 1. 按 Alt F11 打开 V……各位看官请向下阅读:

今天再教一个 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三合一办公应用课程!

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

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

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注