九九乘法表居中c语言,excel图文教程：九九乘法表的制作方法，你会哪种？

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()