vba 不等于_EXCEL中VBA基础语句(1)

萌二笔记分类目录及书单

一、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)】