九九乘法表excel公式

　　1、打开文件夹下的Excel工作簿Excel03xls，在Sheet1工作表中完成以下 *** 作：

　2、在B1:J1区域内依次输入数字1～9，A2:A10区域内依次输入数字1～9。

　3、然后在单元格B2内输入一个公式，通过拖曳填充产生一个具有下三角矩阵结构的乘法九九表。

　4、完成以上 *** 作后将该工作簿以原文件名保存到考生文件夹下。

　5、 *** 作提示：在一个工作表的B1:J1区域内依次输入1～9，A2:A10区域内依次输入1～9；

　6、在B2单元格内输入一个条件函数公式“=IF(B$1

Private

Sub Mul()

Dim a, b, c As Integer

Text1Text = ""

For a = 1 To 9

For b = 1 To a

c = b a

Text1Text = Text1Text & b & "" & a & "=" & c & ";"

Next b

Text1Text = Text1Text & Chr(13) & Chr(10)

Next a

End Sub

Private Sub Command1_Click()

For i = 1 To 9

For j = 1 To i

Print j; ""; i; "="; i j;

Next j

Print

Next i

End Sub

1在工作表的单元格输入数据，如图所示

2在B2单元格中输入公式"=IF(AND($A2<>"",B$1<>"",B$1<=$A2),$A2&"×"&B$1&"="&$A2B$1,"")"，如图所示。确认公式无误后按回车键确认

3拖动B2单元格的填充柄至k2单元格，如图所示

4再拖动K2单元格的填充柄到K10单元格，如图所示

5再将第1列和第一行数据隐藏（不是删除），调整大小，加上边框，预览后的效果如图所示

Private Sub Command1_Click()

   Cls

   Print ""

   For j = 9 To 1 Step -1

      For i = 1 To j

         Print Tab(i  15 - 14); i; ""; j; "="; j  i;

      Next i

      Print

   Next j

End Sub

Private Sub Command2_Click()

   Cls

   Print ""

   For j = 1 To 9

      For i = 1 To j

         Print Tab(i  15 + 120 - j  15); i; ""; j; "="; j  i;

      Next i

      Print

   Next j

End Sub

Private Sub Command3_Click()

   Cls

   Print ""

   For j = 1 To 9

      For i = 1 To j

         Print Tab(i  15 - 14); i; ""; j; "="; j  i;

      Next i

      Print

   Next j

End Sub

Private Sub Command4_Click()

   Cls

   Print ""

   For j = 9 To 1 Step -1

      For i = 1 To j

         Print Tab(i  15 + 120 - j  15); i; ""; j; "="; j  i;

      Next i

      Print

   Next j

End Sub