|
本帖最后由 火烧云 于 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
|
