Sub test()
Dim i As Integer
Dim k As String
i = 3
k = "OK"
Select Case i
Case 0 Or 3
MsgBox "Yes"
Case Else
MsgBox "No"
End Select
Select Case k
Case "OK" Or "Good" '運行到這里出錯,提示型別不匹配
MsgBox "k is OK"
Case Else
MsgBox "k is not OK"
End Select
End Sub
請高手幫忙看一下
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/194636.html
標籤:VBA
