做99-99的乘法表，很多想法创造很多方法生成。
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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
