零基础自学VBA（一）

学习内容：IF/IIF循环嵌套

（1）IF语法
IF command1 then*（如果command1成立，那么执行command2）*
command2
elseif command3 then*（如果command1不成立，但是command3成立，那么 执行command4）*
command4
elseif … …（循环嵌套）
else
command5 （如果判断command1、command3等都不成立，那么执行command5）
End If （最后别忘记补上 endif）

示例如下：判断分数的等级

Sub 判断函数()
If Sheet1.Range("b1") > 100 Then
MsgBox ("数据错误")
ElseIf Sheet1.Range("b1") >= 90 Then
Sheet1.Range("b2") = "优秀"
ElseIf Sheet1.Range("b1") >= 80 Then
Sheet1.Range("b2") = "良好"
ElseIf Sheet1.Range("b1") >= 60 Then
Sheet1.Range("b2") = "及格"
Else: Sheet1.Range("b2") = "不及格"
End If
End Sub

（2）IIF语法
IIf(expr, truepart, falsepart)
expr ：要计算的表达式。
truepart： expr 为 True 时返回的值或表达式。
falsepart： expr 为 False 时返回的值或表达式。
含义：如果表达式成立，那么函数返回truepart的内容，如果不成立则返回falsepart内容。
（3）IIF的循环嵌套语法
IIF(expr1, truepart1, IIF(expr2, truepart2, IIF(expr2, truepart3,falsepart)))
（如果表达式1成立，那么输出truepart1的结果，如果不成立，那么接着判断表达式2，成立则输出truepart2，若不成立，那么继续判断表达式3，成立输出truepart3,不成立则输出falsepart的结果）
示例：判断分数的等级

Sub 判断函数2()
Cells(3, 2) = IIf(Cells(1, 2) >= 90, "优秀", IIf(Cells(1, 2) >= 80, "良好", IIf(Cells(1, 2) >= 60, "及格", "不及格")))
End Sub

**

学习过程中的思考及解答：

**
1、VBA中表达单元格的方式
（1）sheet1.range(“a1”)
选择表格1（sheet1）–选择表格“范围”指令–选择具体的单元格
（2）sheet1.cells(1,1)
cells函数里面都是数字，表示第1行和第1列对应的单元格
**** 若没有指出明确的表格，则默认为当前激活的表格
（3）sheet1.[a1]**
2、VBA中用变量实现对单元格的引用
（1）表示A1:A4/B1:B4/C1:C4… … 等变动的区域
分析：
A1:A4对应的cells表示方式为：cells(1，1)：cells(4,1)
B1:B4对应的cells表示方式为：cells(1，2)：cells(4,2)
C1:C4对应的cells表示方式为：cells(1，3)：cells(4,3)
… …
因此若要选择一个随着条件而变动的区域，其变量为列的变化，结合range表示范围的语法（range(cells(#,#),cells(#,#))），故其表达式为sheet1.range(cell(1,a),cell(1,a))（a为变量）

Sub 隔行填色()
Dim a As Integer
a = 11
Do While a <= 22
Sheet1.Range(Cells(a, 1), Cells(a, 4)).Interior.ColorIndex = 7
a = a + 2
Loop
End Sub

结果：如下图所示

（2）示例：表示A1:D1/A2:D2/A3:D3… … 等变动的区域
sheet1.range(“A” & i &":"&“D”& i)（A/D为字符串，因此用双引号，i为变量）

Sub 隔行填色2()
Dim i%
i = 11
Do While i <= 22
Sheet1.Range("a" & i & ":" & "d" & i).Interior.ColorIndex = 8
i = i + 2
Loop
End Sub

结果：如下图所示

3、VBA中双引号""的使用
""内的内容表示为字符串，数字和变量不需要用双引号
4、赋值用“=”表示
5、sheet1._后面可以有很多类型的函数进行选择，作用为对表格sheet1进行操作，比如求和、范围选择等等。