如何在Excel VBA中选择案例？

Question

鉴于

Select Case cmd 

    case "ONE": MsgBox "one" 

    case "TWO": MsgBox "two" 

    case "THREE": MsgBox "three" 

End select 

我的要求是，如果cmd = "ONE"我需要"one"然后"two"不过目前显示我正在"one"显示，然后程序被打破了选择案例...

Answer 1

Select Case cmd 
    case "ONE", "TWO": 
        if cmd = "ONE" THEN 
         MsgBox "one" 
        end if 
        MsgBox "two" 

    case "THREE": MsgBox "three" 

End select 

Answer 2

一些如果可以做这项工作：

If cmd = "ONE" Then 
    MsgBox "one" 
    cmd = "TWO" 
End If 
If cmd = "TWO" Then 
    MsgBox "two" 
    cmd = "THREE" 
End If 
If Cmd = "THREE" Then 
    MsgBox "three" 
End If 

Answer 3

这是设计。 http://msdn.microsoft.com/en-us/library/ee177199%28PROT.10%29.aspx

您可以尝试使用'goto'或过程调用来解决它。

Answer 4

你只需要很长的路要走。

Select Case cmd 

    case "ONE": MsgBox "one" 
        MsgBox "two" 
        MsgBox "three" 

    case "TWO": MsgBox "two" 
        MsgBox "three" 

    case "THREE": MsgBox "three" 

End select 

Answer 5

为什么使用Select Case来做这件事？你所做的只是打印“cmd”值的小写版本。

If cmd = "ONE" Then 
    MsgBox LCase$(cmd) 
    MsgBox "two" 
Else 
    Msgbox LCase$(cmd) 
End If 

Answer 6

GoTo会工作的很好，我想。

Select Case cmd 

    Case "ONE" 
     MsgBox "one" 
     GoTo AfterONE: 

    Case "TWO" 
AfterONE: 
     MsgBox "two" 

    Case "THREE" 
     MsgBox "three" 

End Select 

它的工作原理;我测试了它。