51问答网 > 用VBA select case语法

用VBA select case语法

2025-02-27 20:37:26

推荐回答（5个）

回答1：

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

回答2：

欢迎大家观看本期视频，本期视频主要为大家介绍VBA的判断语句Select Case怎么使用。

回答3：

private
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

回答4：

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

回答5：