VBA语法01:VBA当中的IF语句单一条件判断和多条件判断的使用

本节课主要讲解语法篇的第一篇,IF函数的当中的IF语句单一条件判断和多条件判断的使用细节。

一、IF语句单一条件判断:

VBA语法01:VBA当中的IF语句单一条件判断和多条件判断的使用

假设:如图第二部分,当 I3>=90时,J3为通过,反之为不通过。

VBA语法01:VBA当中的IF语句单一条件判断和多条件判断的使用

代码如下:

Sub IF单一条件判断()

If Sheet1.Range("I3") >= 90 Then

Sheet1.Range("j3") = "通过"

Else

Sheet1.Range("j3") = "不通过"

End If

End Sub

一、IF语句多条件判断:

VBA语法01:VBA当中的IF语句单一条件判断和多条件判断的使用


假设:如图第一部分,当 B3>=90时,C3为良好;当 B3>=80时,C3为合格,反之为不合格。

VBA语法01:VBA当中的IF语句单一条件判断和多条件判断的使用

代码如下:

Sub IF多条件判断()

If Sheet1.Range("B3") >= 90 Then

Sheet1.Range("C3") = "优秀"

ElseIf Sheet1.Range("B3") >= 80 Then

Sheet1.Range("C3") = "合格"

Else

Sheet1.Range("C3") = "不合格"

End If

End Sub

三、IF语句总结:

1.单行形式1(If...Then)

1.1 If 条件判断 Then 条件成立结果;

1.2 在单行形式中,按照 If...Then 判断的结果也可以执行多条语句;

1.3所有语句必须在同一行上并且以冒号分开。

如:

Sub test()

If 1 > 10 Then a = 1: b = 2: c = 3

End Sub

2. 单行形式2

If 条件判断 Then 条件成立 Else 条件不成立。

如:

Sub test2()

If 1 > 1 Then MsgBox "yes" Else MsgBox "no"

End Sub

3.块形式(If...Then…End)

If 条件判断 Then

条件成立结果

End If

如:

Sub test3()

If 11 > 10 Then

a = 1 + a

b = 1 + a

c = 1 + b

End If

End Sub

4.块形式的If嵌套

If 条件判断 Then

成立时的结果

ElseIf 条件判断 Then

成立时的结果

……

Else

不成立时的结果

End If

如:

Sub IF多条件判断()

If Sheet1.Range("B3") >= 90 Then

Sheet1.Range("C3") = "优秀"

ElseIf Sheet1.Range("B3") >= 80 Then

Sheet1.Range("C3") = "合格"

Else

Sheet1.Range("C3") = "不合格"

End If

End Sub


分享到:


相關文章: