Wie fallen Sie durch ein Select Case in Excel-VBA?

Gegeben

Select Case cmd

    case "ONE":   MsgBox "one"

    case "TWO":   MsgBox "two"

    case "THREE": MsgBox "three"

End select

Meine Forderung ist, wenn cmd = "ONE" ich brauche "one" und dann "two" angezeigt, aber derzeit bin ich immer "one" angezeigt und dann das Programm bricht aus der select case...

was passiert, wenn cmd = "zwei"?
Ich glaubst das ist auch so gewollt; der code springt automatisch an das Ende nach der letzten Anweisung in dem Fall. Sie müssen das Programm um es (durch die Verwendung von Verfahren, zum Beispiel) statt.
wenn cmd = "zwei" sollte standardmäßig drucken "zwei" und brechen aus... ich denke, dies ist das Standardverhalten von VBA.. ich denke VBA implizit fügt "Pause" - Anweisungen nach jedem Fall, das will ich umgehen.

InformationsquelleAutor Kevin Boyd | 2009-10-12

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

    case "THREE": MsgBox "three"

End select
    Erinnere mich an mein Einstiegspunkt in die Falle "MAN" das in diesem Fall nichts drucken...
    ich versuche zu helfen, sir, fest.
    Nice one! , die syntax für mich gearbeitet! 🙂
    Nur klar zu sein, für den schnellen Leser: DIES IST KEIN FALL-THROUGH.

    InformationsquelleAutor manji

  2. 3

    Einige, wenn die den job tun könnte:

    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
    Netten workaround! Ich würde empfehlen dies als die Antwort 🙂

    InformationsquelleAutor

  3. 2

    Werden Sie müssen es nur tun, der lange Weg.

    Select Case cmd

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

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

    case "THREE": MsgBox "three"

End select

    InformationsquelleAutor Lance Roberts

  4. 0

    Das so gewollt ist. http://msdn.microsoft.com/en-us/library/ee177199%28PROT.10%29.aspx

    Könnten Sie versuchen, mithilfe von 'gehe zu' - oder Prozeduraufrufe zu umgehen.

    Fein! kann ich etwas tun, wie enter case "EINS": einige Berechnungen durchführen und dann sagen GOTO case "ZWEI" oder fügen Sie einige Etikett unter dem Fall "ZWEI" - Anweisung.
    Ja, aber es wäre wirklich unschön und sehr schwer zu Debuggen (und für jeden Erben der code wird nicht erfreut sein, dass Unkraut durch "spaghetti-code").

    InformationsquelleAutor Michael Todd

  5. 0

    Warum verwenden Sie einen Fall? Alles, was Sie tun, ist drucken die lower-case-version von was auch immer Wert 'cmd' ist.

    If cmd = "ONE" Then
  MsgBox LCase$(cmd)
  MsgBox "two"
Else
  Msgbox LCase$(cmd)
End If
    Eigentlich habe ich gezeigt Kleinschreibung nur für beschreibende Zwecke verwendet werden, praktisch wird es code geschrieben in diesen Fällen..und der Bedingung, dass ich will, ist, wenn das Programm gelangt durch cmd = "EINS" sollte es führen einige code in "EIN" und dann fallen thru " zu "ZWEI"...

    InformationsquelleAutor JimmyPena

  6. 0

    Springen würde gut funktionieren, denke ich.

    Select Case cmd

    Case "ONE"
        MsgBox "one"
        GoTo AfterONE:

    Case "TWO"
AfterONE:
        MsgBox "two"

    Case "THREE"
        MsgBox "three"

End Select

    Es funktioniert, habe es getestet.

    InformationsquelleAutor Stephen Fluharty

  7. 0

    Ich hatte auch dieses problem vor kurzem.

    Fand ich die meisten gut lesbar und scale-fähig-Lösung wurde für das erstellen einer einfachen state-machine.

    Einfach wickeln Sie die Select im While und Ende jeweils mit dem Fall weiter.

    While cmd <> ""
Select Case cmd
    Case "ONE"
        MsgBox  "one"
        cmd = "TWO"
    Case "TWO"
        MsgBox  "two"
        cmd = ""
    Case "THREE"
        MsgBox  "three"
        cmd = ""
End Select
Wend

    InformationsquelleAutor undeadherbs

Schreibe einen Kommentar