“九九乘法表”都不会做，还敢说精通excel？( 二 ) _知识经验

3.在“开发工具”选项卡中点击“查看代码”命令，对该按钮的Click事件编写如下代码：
Private Sub CommandButton1_Click()
Range(“B1:J1”).Value = https://www.i8ku.com/2021/Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ‘设置上表头
Range(“B1:J1”).Copy
Range(“A2:A10”).PasteSpecial Transpose:=True ‘转置粘贴，设置左表头
Application.CutCopyMode = False ‘取消复制状态
k = “=R1C&” & Chr(34) & “×” & Chr(34) & “&RC1&” & Chr(34) & “=” & Chr(34) & “&R1C*RC1” ‘形成公式
For r = 2 To 10
For c = 2 To r
Cells(r, c).FormulaR1C1 = k ‘填写公式
Next
Next
Cells(1, 1).Select ‘光标定位
End Sub
这段代码在单击“方法4”按钮时将被执行。
这段代码首先向B1:J1单元格依次填充数值1-9，将B1:J1区域的数据复制后转置粘贴到A2:A10单元格区域，然后取消复制状态，得到表格上的上表头和左表头。接着生成一个计算公式送给变量k，并用双重循环结构将公式填充到2-10行的下三角区域，变量k的值为“=R1C & “×” & RC1 &”=” &R1C*RC1”，其中，RC1表示当前第1列单元格，R1C表示当前列第1行单元格。程序用函数“Chr(34) ”返回双引号“””,以实现双引号的嵌套。
方法⑤
最后再介绍一种用VBA制作九九乘法表的方法。
1.与方法一中步骤1一致。
2.与方法四中步骤2一致，将控件的Caption属性设置为“方法5” 。
3.在“开发工具”选项卡中点击“查看代码”命令，对该按钮的Click事件编写如下代码：
Private Sub CommandButton1_Click()
【“九九乘法表”都不会做，还敢说精通excel？】For r = 1 To 9 ‘按行循环
Cells(r + 1, 1) = r ‘填写左表头
For c = 1 To r ‘按列循环
Cells(1, c + 1) = c ‘填写上表头
s = c & “×” & r & “=” & c * r ‘形成等式字符串
Cells(r + 1, c + 1).FormulaR1C1 = s ‘填写等式字符串
Next
Next
End Sub
这段代码在单击“方法5”按钮时将被执行。
此程序采用的是双重循环结构。外层循环让变量r从1到9进行变化，每次循环先在r+1行、低1列单元格处填写左表头，再用内层循环让变量c从1到r进行变化。每次内层循环先在第1行、c+1列单元格处填写上表头，再生成一个等式字符串送给变量s，并将s的值填写到r+1行、c+1列单元格。

“九九乘法表”都不会做，还敢说精通excel？( 二 )

推荐阅读

玉兰花什么时候开花一年开几次花

南果梨为什么不红南果梨什么季节最好吃

稻田改种茶树注意事项

麻辣烫配方的家常做法怎样做麻辣烫

低速电动汽车如何选购，应该注意的事项有哪些？

迎客松的寓意及分类介绍迎客松是什么松树品种图片

狗能吃鸡肉吗

夏季中暑如何处理应该吃什么药

希玛安全鞋多少钱

江南的面食，也能让北方人和广东人垂涎三尺

海鲜疙瘩汤怎么做海鲜疙瘩汤做法

紫土豆的功效与作用紫土豆的功效与作用及营养价值

银杏果需要烤多长时间银杏果需要烤多久

冬笋可以和胡萝卜一起煮吗（冬笋能不能和胡萝卜一起煮）

关于西湖景点的对联

洋快餐里检出大量丙烯酰胺，我们消费者该怎么办？

小红头虾怎么做小红头虾简单又好吃的做法

红玉珠养殖方法红玉珠养护的技巧

紫砂花货壶的装饰

3dm僵尸世界大战怎么联机