Excel 关于VBA中IF多条件语句的用法，虚心求教

2024-12-01 10:06:15

推荐回答（3个）

回答1：

1、if语句的含义：if语句字面意思就是如果的意思，如果条件为真，那么就执行if语句里面的程序，这个程序，一般指then后面的，一个if语句可以没有end if，但绝对不能没有then，这一点是要注意的。

2、if……then……结构

该结构一般用于比较简单的判断语句执行，下面以一段实例程序来讲解。

实例：如果第一个单元格不为空，那么就弹出一个提示框“单元格不为空”。

程序：

Sub 判断语句()

If Cells(1, 1) <> "" Then MsgBox "单元格不为空"

End Sub

3、if……then……end if结构

该结构用于单选择判断语句执行，具体用法看下面实例。

实例：对于第一列的第一行到第十行单元格，作如下判断，如果单元格为空值了那么在相应的第二列单元格输出“VBA教研室”。

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 100

If Cells(i, 1) = "" Then

Cells(i, 2) = "VBA教研室"

Exit For

End If

End Sub

4、if ……then……else……end if结构

该结构用于事件只有两个可能的情况先选择的判断语句，具体见下面实例分析。

实例：对于第一列的第1,2行两个单元格做判断，如果单元格值为空，则在相应的第二列单元格输出false，否则输出Ture。

程序：

Sub 判断语句()

Dim i As Integer

For i = 1 To 2

If Cells(i, 1) = "" Then

Cells(i, 2) = "false"

Else

Cells(i, 2) = "True"

End If

End Sub

5、if ……then……elseif……then……else……end if结构

该结构用于多条件判断语句执行，具体见下面实例分析

实例：对三名同学的成绩作出判断，大于等于80分的为优秀；60到80之间的为及格；0到60分之间的为不及格；0分为考试无效。

程序：

Sub 判断语句()

Dim i As Integer

For i = 2 To 7

If Cells(i, 2) >= 80 Then

Cells(i, 3) = "优秀"

ElseIf Cells(i, 2) < 80 And Cells(i, 2) >= 60 Then

Cells(i, 3) = "及格"

ElseIf Cells(i, 2) < 60 And Cells(i, 2) > 0 Then

Cells(i, 3) = "不及格"

Else

Cells(i, 3) = "考试无效"

End If

End Sub

6、if语句嵌套使用

if语句可以灵活的嵌套使用的，如下面这套程序

Sub 判断语句()

If Cells(1, 1) <> "" Then

If Cells(1, 1) = "VBA教研室" Then

MsgBox "OK！"

Else

MsgBox "NO！"

End If

End Sub

参考资料：百度经验-Excel VBA中if语句的用法

回答2：

IF语句的语法：

If 条件判断语句1 Then
  处理语句A
ElseIf 条件判断语句2 Then
  处理语句B
Else
  处理语句C
End If

其中，条件判断语句需要使用判断符，常用的判断符有“==”（相等）、“>”（大于）、“>=”（大于等于）、“<”（小于）、“<=”（小于等于）、“<>”（不等于）。

如果有多个并列的条件，可以使用“And”（逻辑与）、“Or”（逻辑或）来连接。

例子：

If xxx==xxx And yyy<>yyy Then
  <...>
ElseIf xxx==yyy Or xxx<=yyy Then
  <...>
Else
  <...>
End If

补充：如果有多条并列条件，且要混用Or和And，不妨使用括号。

回答3：

VBA中的多条件IF，一般有两种情况：

一是使用AND、OR连接多个条件，例如：
IF A1=1 AND A2=2 OR A2="" THEN

二是使用IF嵌套，例如：
IF A1=1 THEN
IF A2=2 THEN ... ELSE ...
ELSE
IF A2="" THEN ... ELSE ...
END IF