Comment tomber à travers une sélection de Cas dans Excel VBA?

Donné

Select Case cmd

    case "ONE":   MsgBox "one"

    case "TWO":   MsgBox "two"

    case "THREE": MsgBox "three"

End select

Mon exigence est si cmd = "ONE" j'ai besoin de "one" et puis "two" affiché cependant, actuellement, je suis "one" affiche et le programme est de briser l'sélectionnez cas...

ce qui se passe si cmd = "deux"?
Je pense que c'est par la conception, le code passe automatiquement à la fin après la dernière instruction dans l'affaire. Vous devrez programme autour de lui (à l'aide de procédures, par exemple) à la place.
si cmd = "deux", il devrait être par défaut pour l'impression de "deux" et de sortir... je suppose que c'est le comportement par défaut en VBA.. je pense VBA ajoute implicitement "casser" les déclarations après chaque cas, que je tiens à les contourner.

InformationsquelleAutor Kevin Boyd | 2009-10-12

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

    case "THREE": MsgBox "three"

End select

Rappelez-vous mon point d'entrée dans le cas où "UN" qui, dans ce cas, l'impression de rien...
j'essaie d'aider monsieur, fixe.
Nice one! cette syntaxe a fonctionné pour moi! 🙂
Juste pour être clair pour les lecteurs rapides: CE n'EST PAS TOMBER à TRAVERS.

InformationsquelleAutor manji

Si certains pourraient faire le travail:

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

Belle solution! Je voudrais recommandé ceci comme la réponse 🙂

InformationsquelleAutor

Vous aurez juste à faire le chemin le plus long.

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

0

Qui est par la conception. http://msdn.microsoft.com/en-us/library/ee177199%28PROT.10%29.aspx

Vous pouvez essayer d'utiliser 'goto' ou des appels de procédure à la contourner.
- Très bien! puis-je faire quelque chose comme entrée une affaire "UNE": effectuer un traitement et ensuite de dire GOTO cas "DEUX" ou ajouter un label dans le cas de "DEUX" de la déclaration.
- Oui, mais ce serait vraiment moche et très difficiles à déboguer (et de toute hériter le code ne va pas être content d'avoir de mauvaises herbes à travers "code spaghetti").
InformationsquelleAutor Michael Todd
0

Pourquoi utiliser Select case pour cela? Tout ce que vous faites est l'impression la plus faible de cas sur la version de la valeur que 'cmd' est.
```
If cmd = "ONE" Then
  MsgBox LCase$(cmd)
  MsgBox "two"
Else
  Msgbox LCase$(cmd)
End If
```
- En fait, j'ai montré minuscule juste pour des fins descriptives, pratiquement, il y aura le code écrit dans ces cas..et à la condition que je veux, c'est si le programme pénètre par cmd = "ONE", il faut exécuter un code en "UN" et puis l'automne thru " pour "DEUX"...
InformationsquelleAutor JimmyPena

GoTo serait bien travailler, je pense.

Select Case cmd

    Case "ONE"
        MsgBox "one"
        GoTo AfterONE:

    Case "TWO"
AfterONE:
        MsgBox "two"

    Case "THREE"
        MsgBox "three"

End Select

Il fonctionne, je l'ai testé.

InformationsquelleAutor Stephen Fluharty

J'ai aussi eu ce problème récemment.

J'ai trouvé le plus lisible et l'échelle de mesure de la solution a été de créer une base de machine d'état.

Enroulez simplement le Select dans un While et de fin de chaque cas, avec lequel cas est le suivant.

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

Vous devez vous connecter pour publier un commentaire.