Excel VBA 学习笔记2：条件语句

每一种编程语言都会有判断语句（条件语句）和循环语句，今天整理了条件语句的笔记。VBA里主要有If语句和Select语句，每一种里又分为单条件判断和多条件判断。最后是范围的判断，if语句和select语句都有不同的用法。

一、If语句

1、单条件判断

①

If range(“a1”).Value > 0 Then

Range(“b1”) = “正数”

Else

Range(“b1”) = “负数或0”

End if

②

If Range('a3') < 'G' Then

MsgBox 'A-G'

End If

2、多条件判断

①

If Range(“a1”).Value > 0 Then

Range(“b1”) = “正数”

ElseIf Range (“a1”) = 0 Then

Range(“b1”) = “等于0”

ElseIf Range(“a1”) <= 0 Then

Range(“b1”) = “负数”

End If

②

If Range(“a1”) <> ”” And Range(“a2”) <> “” Then

Range(“a3”) = Range(“a1”) * Range(“a2”)

End If

二、Select语句

1、单条件判断

Select Case Range(“a1”).Value

Case Is > 0

Range(“b1”) = “正数”

Case Else

Range(“b1”) = “负数或0”

End Select

2、多条件判断

Select Case Range('a1').Value

Case Is > 0

Range('b1') = '正数'

Case Is = 0

Range('b1') = '0'

Case Else

Range('b1') = '负数'

End Select End Sub

三、判断范围

1、if语句

If Range('a2') <= 1000 Then

Range('b2') = 0.01

ElseIf Range('a2') <= 3000 Then

Range('b2') = 0.03

ElseIf Range('a2') > 3000 Then

Range('b2') = 0.05

End If

2、select语句

Select Case Range('a2').Value

Case 0 To 1000

Range('b2') = 0.01

Case 1001 To 3000

Range('b2') = 0.03

CaseIs > 3000

Range('b2') = 0.05

End Select

注：在 Select Case 语句中，Is不是运算符，而是关键字！可以配合比较运算符（除 Is 和 Like 之外）来指定一个数值范围。