Private Sub CB1_Click()
If Sheet1.Range("A1") = "A" Then
Sheet1.Range("A3") = "联想"
ElseIf Sheet1.Range("A1") = "B" Then
Sheet1.Range("A3") = "华硕"
ElseIf Sheet1.Range("A1") = "C" Then
Sheet1.Range("A3") = "惠普"
ElseIf Sheet1.Range("A1") = "D" Then
Sheet1.Range("A3") = "IBM"
ElseIf Sheet1.Range("A1") = "E" Then
Sheet1.Range("A3") = "三星"
Else
Sheet1.Range("A3") = "不知道"
End If
End Sub
请高手帮帮忙把以上语句改用 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 结构。
欢迎大家观看本期视频，本期视频主要为大家介绍VBA的判断语句Select Case怎么使用。
sub
command2_click()
dim
num
as
integer
dim
a
as
string
dim
state
as
integer
state
=
0
adodc2.recordset.addnew
for
num
=
0
to
8
if
check1(num).value
=
1
then
state
=
state
+
1
select
case
state
case
1
adodc2.recordset.fields("科目1")=check1(num).caption
case
2
adodc2.recordset.fields("科目2")=check1(num).caption
case
3
adodc2.recordset.fields("科目3")=check1(num).caption
case
4
adodc2.recordset.fields("科目4")=check1(num).caption
end
select
end
if
'这里少写end
if了
next
num
adodc2.recordset.close
end
sub
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 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
给分吧！！！本回答被提问者采纳
