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?结构。