Excel九九乘法表的做法

对于刚学VBA的网友，会感到很多东西难以理解。其实Excel基本语句就3种，顺序，条件和循环。都是按这种结构去写的。我们用一个九九乘法表来演示一下循环语句在Excel中的应用。这样的九九乘法表，在Excel表格中，我们是如何实现的，方法多种：
1、手动输入所有的数字，毕竟值不大，口算即可，但相信也没有谁会这么做【输入次数81次】；2、在每个单元格内输入乘法运算式，如B2：=B1 * A2，但这个方法更麻烦了【输入次数81次】；3、在输入值的首行或者首列输入公式，如B2：=$B$1 * A2；C3： =$C$1 * A2，一直到 J9，然后选中这一行向下拓展，虽然比方法二简单些，但还不够简便【输入次数9次】；4、用锁定行值或者列值进行计算，在B2输入：=B$1 * $A2。（这里基本算是属于较快的运算办法，但是细心的您应该发现了，当计算完所有值后，所有的格式都发生了变化，如边框都变成了 B2 的样式了，所以做法还是需要改进）

1499762322482558.gif

5、一般公式操作流程的再次优化：选中 B2:J10 区域，然后再输入：=B$1 * $A2，按 Ctrl + Enter （计算出来的值可以单独修改，每个单元格的样式也没有发生变化。）

1499762379141316.gif

6、使用数组公式运算：选择区域 B2:J10 ，输入 =A2:A10*B1:J1，然后按 Ctrl + Shift + Enter（数组公式计算出来的值，不能单个修改，变动一个单元格的值，按 Ctrl + Shift + Enter 时其他单元格内的值会同时变动）

1499762400103878.gif

现在再看看另一种九九乘法表：
那么对于这个样子的表格，似乎想到的可行方法是：先用上面的公式计算出全部的数据，然后按着 Ctrl 键选择不需要的区域，再一起删除。但这样看起来就觉得麻烦，是否能有简单快速的办法呢？
办法肯定是有的，这里只要找到运算逻辑，就能知晓选择用怎样的公式去解决这个问题。在样表②中，空出来的部分都是属于右上半边的，有数值的部分属于左下半边，每个非空的单元格所对应的行的值与列的值相比较时会发现，列值总比行值要小。所以呢，加入一个判断语句，当列值小于或等于行值时，就计算其乘积，否则让其显示为空。一般公式的解决办法——公式：=IF(B$1

我们只需要用到 For 循环即可；对于九九乘法表样表

则需要加一个 If 判断语句。[/ol]PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
Cells.ClearContents
Cells(1,1)="X"
Fori=1To9
Cells(i+1,1)=i
Cells(1,i+1)=i
Forj=1To9
'以下代码为九九乘法表-样表①的运算逻辑
'Cells(i+1,j+1)=i*j
'以下代码为九九乘法表-样表②的运算逻辑
Ifj