excelvba怎么写乘法口诀表(ExcelVBA8)
今天再教一个 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
,
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com