每一种编程语言都会有判断语句(条件语句)和循环语句,今天整理了条件语句的笔记。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 之外)来指定一个数值范围。 |
|
来自: L罗乐 > 《ExcelVba学习笔记》