我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加
我以前写过一篇关于九九乘法表的文章，那时候是用函数公式做的，有兴趣的同学可以阅读下：《九九乘法表》今天我们用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 num2Next num1End Sub
我们来剖析下具体的过程：1、九九乘法表一共有两个变量相乘，所以我们定义两个变量num1，num2；Sub 九九乘法表()Dim num1%Dim num2%……End Sub2、两个变量都从1循环到9，所以需要两个For Next 语句Sub 九九乘法表()Dim num1%Dim num2%For num1 = 1 To 9    For num2 = 1 To 9  ……    Next num2Next num1End 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 num2Next num1End 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 num2Next num1End Sub
6、上面有个判断语句，我们是不是可以用IIF代替呢？
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 num2Next num1End Sub
这样写是不是更加简洁呢？
本节知识点：声明变量的数据类型为整型的简洁表达，For-Next嵌套循环以及运行的次序，判断语句IF ，退出For循环结构语句Exit For，VBA函数IIF。
本节的分享就到这里，百看不如一练，动手试试才有体会。
想学习更多，请在电脑端打开网址：www.mihong.top  
鼓励一下，赞完再走

在excel中使用vba制作九九乘法表，如何进行具体操作的呢?今天，学习啦小编就教大家在Excel中使用vba函数制作九九乘法表的操作技巧。
Excel中使用vba函数制作九九乘法表的操作步骤如下：
首先我们打开一个excel工作样表作为例子。
在开发工具标签面板下打开vba编辑窗口，或者使用alt+f11快捷键打开vba编辑窗口。
点击插入一个新的模块，并定义模块sub Jiujiu()。
接下来在jiujiu模块中输入以下
Sub nine9()
Dim i As Byte, j As Byte, s As Byte
For i = 1 To 9
For j = i To 9
s = j * i
Cells(j, i) = i & "*" & j & "=" & s
Next j
Next i
End Sub
代码。
详细解释一下，dim是定义i、j、s三个变量的数据类型为字节。
然后for是循环语句，定义i的取值是从1到9。
同样在顺序执行下，j定义的取值是从i到9
用数学的方法表示则是当i=1时，j=1。
cells函数是excel函数，作用是返回指定的行列，括号内的取值为I,J。对应Excel表格中的行列。后面的=号为输出在excel表格中的数据。
我们可以看修改一下变量与定量相加的结果。我们将i值加上10，其他保持不变，得出的结果是一个错误的公式。
next是顺序执行，以本例中next j举例，则是对j值i to 9进行重复取值，并输出到excel表格中，如果将next i 与next j呼唤，我们可以得到一个错误引用的结果。
大家可以多试验一下，这个例子中每个函数与参数的配合，以及运行的规律来加深印象，我们可以看到本例代码所得到的结果是正确的。

小时候，相信大家都背过九九乘法口诀。据说这个在春秋战国已经存在，源远流长。
顺序语句，条件语句和循环语句在任何编程语言中都离不开。所以很多入门示例都是要求做一个这样的口诀表。因为需要用循环语句。
在Access vba中，也可以非常方便创建 这样的口诀表，详细源码：
Private Sub 大九九_Click()
Dim i, j As Integer
For i = 1 To 9
For j = 1 To 8
Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & ";"
Next j
Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & Chr(13) & Chr(10)
Next i
End Sub
Private Sub 小九九_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 8
Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & ";"
Next j
Me.Text0 = Me.Text0 & i & "*" & j & "=" & i * j & Chr(13) & Chr(10)
Next i
End Sub
大九九乘法口诀表
小九九乘法口诀表

大家周末好，本节将以制作九九乘法表为例，来巩固循环结构和判断结构的嵌套应用。下面先演示下最后的效果。
实现九九乘法表的代码相对简单，但涉及结构嵌套很典型，希望通过整个实例可以帮助理解程序结构嵌套。
首先要说明一点没有介绍过的知识，即单元格的cells(行号，列号)属性表示方法，参数分别行号和列号。且列号以数字表示而非字母。比如表示第B列第5行的单元格，为cells(5，2)，数字方便使用变量作为参数。而之前提过的单元格range属性，则是常规的range('b5')来表示。
那么下面我们就分步骤来看下如何实现九九乘法表？
1、双循环嵌套
首先分析九九乘法表，实质是一组1至9的数字与另一组1至9的数字，分别两两相乘，并得到相乘的结果。
由于两组数的值均是从1到9，可以联想到，利用for...next循环让两个变量分别从1至9，通过双循环嵌套来实现数字两两相乘。
如下图所示，立即窗口打印的字符是 i, 'X', j, '='; i * j。即参数i 、字符X 、参数j 、字符=、 i和j相乘的结果。
2、判断结构嵌套
上一步利用双循环嵌套，实现了1-9内的数值两两相乘，最后的表达式也有了雏形，但是在得到的表达式中有重复相乘的情况。比如i=1、j=9时，结果是1X9=9。而i=9、j=1时结果9X1=9，两者保留其一即可。需要设定判断条件去掉重复表达式。
分析九九乘法表可以发现一个规律，即被乘数都是大于或等于乘数的时候才显示的。据此就可以设定当i>=j为条件，在第二个for循环中嵌套if...then语句，(通常书写时要缩进)符合i>=j时才在立即窗口中显示。
3、单元格中显示结果
经过上面两步后，已经获得需要的表达式，现在需要在单元格中显示，就利用单元格cells属性，使用i和j两个变量值分别作为行号和列号的参数，即Cells(i, j) = i & 'X' & j & '=' & i * j 。
这里变量不需要英文引号，而固定的字符都需要用英文引号括起来，字符与变量之间都需要用连接符&连接，注意变量与&之间需要有空格。比如当i=1，j=2时，结果就是cells(1，2)单元格中显示1X2=2。
下面让我们看下完整的代码，可以自行推演一下代码的运行(示例中加入了表单控件，指定宏，点击即可生成九九乘法表。)
注意代码中注意结构开始和结束对应，判断结构if与end if对应，循环结构for与next对应完整，同时next循环的两个变量嵌套不要颠倒位置，比如for j循环以next  j结尾。
Cells(i, j) = i & 'X' & j & '=' & i * j 其中变量不需要英文引号，而固定的字符都需要用英文引号括起来，字符与变量之间都需要用连接符&连接，变量与连接符&之间需要有空格。
示例涉及了循环和判断结构的相互嵌套，希望有助于学习程序控制结构，对于指定的数值的乘法表可以当作课后作业，有问题可以给我留言，祝大家学习愉快。
Live and Learn