如何在EXCELL中自动生成九九表

如何在EXCELL中自动生成九九表

1.在一个工作表区域内(B12:J12)，依次输入1～9.(A13:A21)区域内依次输入1～9。然后在单元格B13内输入一个公式，通过拖曳填充产生具有上三角矩阵结构的九九乘法表。

　　2.在a13到a21输入1～9；的b13输入：“=IF(B$12<=$A13,B$12*$A13,"")”（不包含引号）；然后拖拉即可。

　　3.在b2单元格输入如下公式：

　　=IF(AND($A2<>"",B$1<>"",B$1<=$A2),B$1&"×"&$A2&"="&B$1*$A2,"")

　　a1单元格的公式如下：

　　=IF(AND(ROW()<10,COLUMN()<10,COLUMN()<=ROW()),ROW()&"×"&COLUMN()&"="&ROW()*COLUMN(),"")

　　4.Sub 九九表()。

　　Dim i As Byte, j As Byte, msg As String

　　For i = 1 To 9　 ‘定义相乘的一个数字变量

　　msg = msg & Chr(10)

　　For j = 1 To I ‘定义另一个数字变量

　　msg = msg & WorksheetFunction.Text(j, "[DBNum1][$-804]0") & WorksheetFunction.Text(i, "[DBNum1][$-804]0") & VBA.IIf(i * j > 9, "", "得") _

　　& WorksheetFunction.Text(i * j, "[DBNum1][$-804]0") &

　　‘完成两个数字相乘运行，如相乘的结果小于10的话则在中间加“地”字

　　Space(3)

　　Next

　　Next

　　MsgBox msg, 64, "九九表"　 ‘显示在窗口右上角的标题

　　End Sub