Как пройти через Select Case в Excel VBA?

дано

Select Case cmd

    case "ONE":   MsgBox "one"

    case "TWO":   MsgBox "two"

    case "THREE": MsgBox "three"

End select

мое требование, если cmd = "ONE" Мне нужно "one" а то "two" отображается, однако в настоящее время я получаю "one" отображается, а затем программа выходит из выбранного случая...

6
excel excel-vba office-2007 vba

7 ответов

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

    case "THREE": MsgBox "three"

End select
15

некоторые, если могли бы выполнить эту работу:

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
3

вам просто придется сделать это длинным путем.

Select Case cmd

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

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

    case "THREE": MsgBox "three"

End select
2

Это по дизайну. http://msdn.microsoft.com/en-us/library/ee177199%28PROT.10%29.aspx

вы можете попробовать использовать "goto" или вызовы процедур, чтобы обойти его.

0

зачем использовать для этого Select Case? Все, что вы делаете, это печать строчной версии любого значения "cmd".

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

GoTo будет работать хорошо, я думаю.

Select Case cmd

    Case "ONE"
        MsgBox "one"
        GoTo AfterONE:

    Case "TWO"
AfterONE:
        MsgBox "two"

    Case "THREE"
        MsgBox "three"

End Select

это работает, я проверял.

0

у меня также была эта проблема недавно.

Я нашел наиболее читаемое и масштабируемое решение-создать базовую государственную машину.

просто оберните Select на While и закончить каждый случай, с которым случай следующий.

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