Ich habe eine do / while Anweisung in eine SELECT CASE / END SELECT eingefügt und sie generiert den Fehler

Fall ohne Auswahlfall.

Select Case myVariable
    Case 0
        Do
        While ...
    Case 1
    ...
End Select
1
Fighter Jet 8 Feb. 2020 im 09:51

3 Antworten

Beste Antwort

So funktionieren Do While -Schleifen nicht. Is hat nichts mit deinem Select Case zu tun

Versuchen Sie es so:

Sub test()
  Dim x As Integer
  Dim y As Integer

  y = 0

  Select Case y
    Case 0
      Do While x < 10
        x = x + 1
      Loop
      MsgBox x
    Case 1
      MsgBox "end"
  End Select

End Sub

Oder

Sub test()
  Dim x As Integer
  Dim y As Integer

  y = 0

  Select Case y
    Case 0
      Do 
        x = x + 1
      Loop While x < 10
      MsgBox x
    Case 1
      MsgBox "end"
  End Select

End Sub

Loops machen

3
braX 8 Feb. 2020 im 11:21

Eine andere alternative Verwendung

Select Case myVariable
    Case 0
        Dim Counter
        Counter = 0 ' Initialize variable.
        While Counter < 20 ' Test value of Counter.
             Counter = Counter + 1 ' Increment Counter.
        Wend ' End While loop when Counter > 19.
        Debug.Print Counter ' Prints 20 in the Immediate window.
    Case 1
    ...
End Select
0
Mesut Akcan 8 Feb. 2020 im 09:39

Versuche dies:

Sub Test()
Dim myvariable As Integer
myvariable = 0

Select Case myvariable
   Case Is = 0
        i = 0
         Do
              MsgBox i
              i = i + 1
         Loop While (i < 10)
  Case Else
      MsgBox "Else"
End Select
End Sub
1
Naveen Arora 8 Feb. 2020 im 07:37