多条件使用Select语句

在使用分支语句的时候，除了用 IF ……End if，可能还会遇到Select Case 语句。

某些时候使用会更加的灵活。

结构如下：

Select Case 条件判断

Case 条件1

处理1

Case 条件2

处理2

……

Case Else

其他条件处理的情况

End Select

赶紧上一个例子。

假设A1单元格中成绩大于等于90,显示“优”，大于等于80，显示“良”，大于等于60，显示“中”，否则为“差”。

使用IF 是如下代码。

Private Sub CommandButton1_Click()If [A1].Value >= 90 Then MsgBox "优"ElseIf [A1].Value >= 80 Then MsgBox "良"ElseIf [A1].Value >= 60 Then MsgBox "中"Else MsgBox "差"EndIfEnd Sub

如果使用Select 语句，可以如下代码：

Private Sub CommandButton1_Click()SelectCase [A1].valueCaseIs>=90 MsgBox "优"CaseIs>=80 MsgBox "良"CaseIs>=60 MsgBox "中"CaseElse MsgBox "差"EndSelectEnd Sub

使用Select Case可以更加灵活，如下代码。

Private Sub CommandButton2_Click() "此例子列举selectcase的各种情况 Dim intx AsByte intx = InputBox("请输入数值") SelectCase intx Case0"单一值 MsgBox "不合格产品" Case 1, 2, 3 "一列值,相邻两个值用逗号隔开 MsgBox "特种产品"Case4To10"用to指定值的范围,第一个值不应该大于第二个值,对字符串比较ascii码的大小 MsgBox "内部消费品" Case Is < 25 "使用关键字is指定条件,is后紧接运算符和一个变量或值 MsgBox "国内市场产品"Case30, 40, 45To50, Is > 100"前面几种情况混用,多个条件之间用逗号隔开 MsgBox "出口优质产品" Case Else MsgBox "特殊情况" End Select End Sub

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。