怎样用EXCEL生成99乘法表?

发布网友发布时间：2022-04-24 23:56

共1个回答

热心网友时间：2023-10-15 13:06

做九九乘法表，多种思路造就多种方法生成，1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表2、在a13到a21输入1-9b13输入=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 StringFor 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)NextNextMsgBox msg, 64, "九九表" ‘显示在窗口右上角的标题End Sub