vba九九乘法表代码_EXCEL循环语句FORNEXT中的嵌套（九
九乘法表）
这节我们⽤VBA来做个九九乘法表：
这感觉好酸爽啊！
VBA代码如下：
Sub 九九乘法表()
Dim num1%
Dim num2%
For num1 = 1 To 9
For num2 = 1 To 9
If num2 > num1 Then
Exit For
Else
Cells(num1, num2) = num2 & "x" & num1 & "= " & num1 * num2
End If
Next num2
Next num1
End Sub
我们来剖析下具体的过程：
1、九九乘法表⼀共有两个变量相乘，所以我们定义两个变量num1，num2；
excel函数乘法怎么用Sub 九九乘法表()
Dim num1%
Dim num2%
……
End Sub
2、两个变量都从1循环到9，所以需要两个FOR NEXT 语句
Sub 九九乘法表()
Dim num1%
Dim num2%
For num1 = 1 To 9
For num2 = 1 To 9
……
Next num2
Next num1
End Sub
这⾥⼀定要注意顺序，⾥外层的关系，我们可以⽤msgbox观察下两个变量的循环规律。
⾸先循环最⾥⾯的num2，num2从1循环到9，然后再循环num1，num1循环⼀次，num2要循环9次。
3、要把循环的这些内容放到单元格⾥，怎么操作呢？我们可以把两个变量当成是1⾏1列，1⾏2列，1⾏3列……所以：
Sub 九九乘法表()
Dim num1%
Dim num2%
For num1 = 1 To 9
For num2 = 1 To 9
Cells(num1, num2) = num2 & "x" & num1 & "= " & num1 * num2
Next num2
Next num1
End Sub
运⾏后发现是这样的：
4、为了规范，单元格为⽩⾊的部分是不需要的，⽽单元格底⾊为⽩⾊的都是num2⼤于num1的部分，
所以来个判断语句，假如num2 > num1，退出FOR，这⾥的for是指num2的循环，否否则就Cells(num1, num2) = num2 & "x" & num1 & "= " & num1 * num2。
Sub 九九乘法表()
Dim num1%
Dim num2%
For num1 = 1 To 9
For num2 = 1 To 9
If num2 > num1 Then
Exit For
Else
Cells(num1, num2) = num2 & "x" & num1 & "= " & num1 * num2
End If
Next num2
Next num1
End Sub
6、上⾯有个判断语句，我们是不是可以⽤IFF代替呢？我也是初学VBA，⽤这种思路去学习也许能对所学知识加深了解。
Sub 函数法()
Dim num1%
Dim num2%
For num1 = 1 To 9
For num2 = 1 To 9
Cells(num1, num2) = VBA.IIf(num2 > num1, "", num2 & "x" & num1 & "= " & num1 * num2)
Next num2
Next num1
End Sub
这样写是不是更加简洁呢？
这节的分享就到这⾥，本节知识点，声明变量为整型的简便表达，for next⾥的循环以及运⾏的次序，判断语句IF else ，退出语句exit ，VBA函数IFF。
转⾃：宏Office