蒲公英联盟提供ghost win10,ghost win7,xp,装机纯净版,64位旗舰版,绿色软件,免费软件下载基地!

当前位置:主页 > 教程 > 软件教程 > Excel教程 >

依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式

来源:蒲公英系统┆发布时间:2019-04-19 13:11┆点击:

做九九乘法表,多种思路造就多种方法生成,

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, "九九表"  ‘显示在窗口右上角的标题

尚未注册畅言帐号,请到后台注册