用VBA select case语法

用VBA select case语法

Private Sub CB1_Click()

Select Case Sheet1.Range("A1")

Case "A"

Sheet1.Range("A3") = "联想"

Case "B"

Sheet1.Range("A3") = "华硕"

Case "C"

Sheet1.Range("A3") = "惠普"

Case "D"

Sheet1.Range("A3") = "IBM"

Case "E"

Sheet1.Range("A3") = "三星"

Case Else

Sheet1.Range("A3") = "不知道"

End Select

End Sub

Select Case结构提供了 If...Then...ElseIf结构的一个变通形式，可以从多个语句块中选择执行其中的一个。Select Case语句提供的功能与 If...Then...Else语句类似，但是可以使代码更加简练易读。

Select Case结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较。如果匹配，则执行与该Case 关联的语句块,示例代码如下：

Dim value '定义一个变量

value = 10 '变量赋值为10Select Case value '判断变量的值大小,如果相等则输出变量值

Case 0 MsgBox 0

Case 1 MsgBox 1

Case 2 MsgBox 2

Case Else MsgBox "数值超出范围！" '如过都不相等，则输出”数值超出范围！”End Select    

注意：Select Case结构只计算开始处的一个表达式（只计算一次），而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式，这些表达式可以各不相同。仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替If...Then...ElseIf 结构。