我要投稿
  • 您当前的位置:365bet官方 -> 技术教程 -> 办公软件教程 -> 教程内容
  • [ 收藏本页教程 ]
  • 多种办法用EXCEL软件生成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的话则在中间加“地”字
    Next
    MsgBox msg, 64, "九九表"  ‘显示在窗口右上角的标题
    End Sub

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.ct131.com All Rights Reserved.365bet官方 版权所有