嵌套的 If...Then 语句：
Sub NestedIfExample()
Dim x As Integer
x = 10
If x > 5 Then
If x < 15 Then
MsgBox "x 大于 5 且小于 15。"
End If
Else
MsgBox "x 不大于 5。"
End If
End Sub
在这个例子中，如果 x 大于 5 且小于 15，则显示 "x 大于 5 且小于 15" 的消息框。否则，显示 "x 不大于 5" 的消息框。
Select Case 语句：
Sub SelectCaseExample()
Dim x As Integer
x = 10
Select Case x
Case Is > 5
MsgBox "x 大于 5。"
Case 5
MsgBox "x 等于 5。"
Case Else
MsgBox "x 小于 5。"
End Select
End Sub
在这个例子中，Select Case 语句根据 x 的值进行不同的处理。如果 x 大于 5，则显示 "x 大于 5" 的消息框。如果 x 等于 5，则显示 "x 等于 5" 的消息框。否则，显示 "x 小于 5" 的消息框。
使用 Select Case 结构通常更适合多个条件的情况，尤其是在进行值比较时。它可以使代码更清晰，而不用嵌套多个 If...Then 语句。
转载请注明出处：http://www.zyzy.cn/article/detail/296/VBA