VBA代码中判断语句中IF与Select Case的区别

本帖最后由火烧云于 2015-2-15 15:06 编辑

Select Case和If then语句都是条件判断语句。If then语句可以同时对多个对象进行判断，而Select Case必须先选定一个对象，对其进行判断。但其优点是比较简洁。Select Case是if….then….else结构的一种变通形式，Select Case语句的结构为选择程序结构，它根据表达式的值，来判断执行几组语句中的其中哪一个语句，与if…then…else相比较，结构比较简单。当出现太多判断条件时，if语句代码变的繁琐，运算速度变慢，而Select Case的代码就比较简单，速度相对来说就快点

语法
Select Case 语句：根据表达式的值来决定执行几组语句中的其中这一
格式
Select Case 单元格对象
Case 条件判断
Case Else （否则）
Case Else （否则）
End Select （退出）
if可单条件判断，也可多条件判断
格式
if 条件判断 then
成立时的结果
elseif 条件判断 then
成立时的结果
。。。。。
else
不成立时的结果
end if

复制代码

用不同代码输入方法：

Sub 判断成绩方法一()
Dim x%, y%
y = Cells(Rows.Count, 1).End(xlUp).Row '取得非空单元格的行号
[B2:B8].Clear '清空数据
For x = 2 To y '循环需要判断的数据源
'开始判断
If Range('A' & x) < 60 Then
Cells(x, 2) = '不及格'
ElseIf Range('A' & x) < 70 Then
Cells(x, 2) = '及格'
ElseIf Range('A' & x) < 80 Then
Cells(x, 2) = '良好'
Else
Cells(x, 2) = '优秀'
End If
Next x
End Sub
Sub 判断成绩方法二()
Dim x%, y%
y = Cells(Rows.Count, 1).End(xlUp).Row
[B2:B8].Clear
For x = 2 To y
Select Case Range('A' & x)
Case Is < 60
Cells(x, 2) = '不及格'
Case Is < 70
Cells(x, 2) = '及格'
Case Is < 80
Cells(x, 2) = '良好'
Case Else
Cells(x, 2) = '优秀'
End Select
Next x
End Sub

复制代码

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。