我的目标:让中国的大学生走出校门的那一刻就已经具备这些office技能,让职场人士能高效使用office为其服务。支持我,也为自己加油!
今天我们来学习下VBA中另一个重要的语句结构,判断语句结构。
在工作中,我们经常会遇到根据不同的情况进行判断并做出不同的操作,有时候需要的是单条件的判断,有时候需要的是多条件的判断。1、单条件的判断语句:
学习函数时我们经常用IF来判断,VBA 中也一样。语法如下:
If 判断1 Then
代码 1
Else
代码 2
End If
上面的语句翻译过来就是:
假如条件成立那么
怎么怎么样
否则
怎么怎么样
结束判断
举例:
如果A1单元格中的数字大于等于60,B1单元格中显示及格,否则显示不及格。
Sub 判断() If Range("A1") >= 60 Then Range("b1").Value = "及格" Else Range("b1").Value = "不及格" End IfEnd Sub
我们在A1中输入不同数据,然后按F5运行代码试试看B1中的结果。
2、多条件的判断语句
多条件判断有两种语句
1)、If结构
If 条件1 then
代码1
ElseIf 条件2 Then
代码2
ElseIf 判断3 Then
代码3
……
Else
End If
举例:
如果A1单元格中的数字大于等于85,B1单元格中显示优秀,若大于等于60,B1中显示良好,小于60,显示差。
Sub 多重判断1() If Range("A1") >= 85 Then Range("b1").Value = "优秀" ElseIf Range("A1") >= 60 Then Range("b1").Value = "良好" ElseIf Range("A1") < 60 Then Range("b1").Value = "差" End IfEnd Sub
当然上面的代码还可以简化,自己动脑想想如何简化。
2)、Select Case 结构
Select Case
Case (is)条件1
代码1
Case(is)条件2
代码2
……
Case ( is) 条件N
代码n
Case Else
代码
End Selcet
还是上面的例子,我们试试用Select Case 来写
Sub 多重判断2()Select Case Range("A1") Case Is >= 85 Range("b1").Value = "优秀" Case Is >= 60 Range("b1").Value = "良好" Case Is < 60 Range("b1").Value = "差"End SelectEnd Sub
通过对比我们可以发现,如果条件是单个变量,用Select Case语句写起来更加方便,而且在Case后面直接写比较运算符时,Case后面的is会自动添加上去,代码显得更加简洁。
赶快动手试试吧,也许写着写着你就爱上VBA了!
今天的分享就到这里,希望对大家有所帮助!
鼓励一下,赞完再走