vba九九乘法表代码

昨天因贪玩了一下，一天都和同事在外面玩，计划就是这一天让自己啥也不做，一天玩下来，觉得好累，原来玩也是很累的。既然在外面放松了一天了，今天就把昨天的九九乘法表的制作方法给补上来。事实上九九乘法表的制作不是重点，重点是通过制作这个乘法表，能明白了EXCEL中绝对引用是咋回事，这才是重点。废话不多说，回到正题

在我们日常工作中如果你经常使用函数公式来处理数据据，那么绝对引用是必不可少的用到它。如果要想弄明白绝对引用是什么？用EXCEL来做个乘法表来说明它的含义。目前我只想到了五种方法。

第一种方法：原始方法

第一步：打开你的excel，在B1至J1单元格区域使用快速填充，输入数字1-9，输完后再次利用快速填充在A2至A10单元格输入数字1-9，结果如下图所示：

第二步：在B2单元格内输入公式：=$A2*B$1，并且进行向下填充、向右填充，结果如下图所示：

说明：这里是关键由于使用了快速填充，向下时是“行变列不变”，而向右拖拽时是“列变行不变”

第四步：将B2单元格公式修改为： =B$1&"X"&$A2&"="&$A2*B$1，

然后分别向下，向右填充，结果如下图所示：

这里要先说明一下，为什么公式要更新为B$1&"X"&$A2&"="&$A2*B$1。因为，为了得到九九乘法口诀表的效果，我们必须把乘数和被乘数在单元格内显示出来，所以上面的公式是将文本和数值连接起来了，这样一来一能想要显示的结果了

第五步：选中整个结果表中的右上角区域，然后将字体颜色修改为白色，同样，我把A列和第一行右键单击选择“隐藏”，结果就和九九乘法口诀表一模一样啦如下图所示：

第二种方法：公式法

前面四步如同原始方法的前四步，关键是第五步

第五步：利用IF函数，将不必要部分进行空值设置。

=IF(B$1>$A2,"",$A2&"X"&B$1&"="&$A2*B$1)

如下图

第三种方法：A1输入公式：=COLUMN(A1)&"X"&ROW(A1)&"="&ROW(A1)*COLUMN(A1)，下拉并右拉。即可。其他方法，类似于第一种方法设置。

第四种方法：VBA代码

开始也是同第一种，先输入1-9，接着点击开发工具选项卡→Visual Basic进入VBA窗口，在工程管理器处双击相应的工作表，输入如下代码

Public Sub 九九乘法表()

Dim i, j

For i = 1 To 9

For j = 1 To 9

If i >= j Then Cells(i + 1, j + 1) = i & "x" & j & "=" & i * j

Next j

Next i

End Sub

点击运行，然后回到工作表处，九九乘法表已经制作完毕。效果图如下

第五种方法，主要用模拟运算表功能(这个功能是我在工作中无意中发现的)。

先在C2：K2输入1-9，在B3：B11输入1-9，然后在B2输入=IF($A1>B$1,"",A$1&"x"&B$1&"="&$A1*B$1)，公式理解同方法1，接着选中B2：K11单元格，点击数据选项卡→模拟分析→模拟运算表，在弹出的窗口中的引用行的单元格点A1单元格，在引用列的单元格点B1单元格，点击确定即可。这里注意乘法表内的任意单元格不能单独删除，要删除只能全部一起删除。效果如下