EXCEL生成九九乘法表的四种方法

excel 教程 - 十二月 29, 2009 - 来源:单点日志 - No Comments -

家家都有一个孩子,上学了总要背九九乘法口诀,自己做张口诀表还是很需要的,格式可以自己设计打印出来比商店买的强多了,这里介绍下四种方法,不建议采用宏方法,打印效果差,只在学习,其他的比较易用.

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.用VB宏来生成

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



无觅相关文章插件,快速提升流量

《EXCEL生成九九乘法表的四种方法》由单点日志原创提供!
转载请注明:http://spoint.babyshoot.cn/archives/2009/12/excel-2.html

No Comments│赶紧发话! »

发表评论

您必须登录后才能发表评论。
8