萌二笔记分类目录及书单
一、If-Then语句
说明：条件判断，如果......那么......例1：A2单元格的成绩大于等于60，则弹出对话框提示“及格”。
Sub 判断成绩()
If Range("A2") >= 60 Then MsgBox "及格"
End Sub
操作过程：
二、If-Then-Else语句
说明：条件判断，如果......那么......否则......例2：使用按钮（窗体控件）判断A2单元格的成绩，大于等于60则弹出对话框提示“及格”，否则弹出对话框提示“不及格”。
Sub 判断成绩()
If Range("a1") >= 60 Then
MsgBox "及格"
Else
MsgBox "不及格"
End If
End Sub
操作过程：
三、For-Next语句
例3：判断A列成绩，在B列对应单元格一次性返回全部结果，大于等于60“及格”，反之“不及格”。
①常规公式法：
②VBA法，for-next循环语句：
说明：循环语句，定义变量i（第一个要判断的单元格行号为2，最后一个行号为15）
Sub 判断成绩()
Dim i As Integer
For i = 2 To 15 Step 1
If Range("A" & i) >= 60 Then
Range("B" & i).Value = "及格"
Else
Range("B" & i).Value = "不及格"
End If
Next i
End Sub
操作过程：
四、Do-While语句
还是上面例3。
③VBA法，do-while循环语句：
说明：定义变量i（初始值为2），A列单元格不为空时按条件“判断成绩”，遇到空格则停止判断。这样不需要看最后一行是多少，增减数据不用更改代码。
Sub 判断成绩3()
Dim i As Integer
i = 2
Do While Range("A" & i).Value <> ""
If Range("A" & i) >= 60 Then
Range("B" & i).Value = "及格"
Else
Range("B" & i).Value = "不及格"
End If
i = i + 1
Loop
End Sub
操作过程：
把文件“另存为”EXCEL启用宏的工作簿(*.xlsm)：
【原文链接：EXCEL中VBA基础语句(1)】
