Select Case range("A1")
Case Is = ""
Case Is = "a"
MsgBox "Y"
End Select
以上代码表示如果A1为空时不进行任何操作,A1=a时,提示"Y"
对
运行时,从第一个判断开始,按顺序向下读,当条件匹配时,执行条件匹配后面的语句,直到下一个else
或
case
之前,然后就跳到
end
if
或
end
select
两个使用的方法一样,但条件较多时,select更简便,例:
select
case
x
case
1
to
4,
7
to
9,
11,
13,
21
to
25,
27,
29
x
=
x
*
2
case
5
to
6,
10,
12,
14
to
20,
26,
28,
30
x
=
x
*
3
case
else
x
=
x
*
4
end
select
你可以试着用if
……then
语句试试