複数の条件がある場合、私のループを働かせます。

Question

1,2,3のいずれかを入力できるようにするマクロを作成しようとしています。 。ユーザーが1,2、または3以外のものを入れた場合は、エラーメッセージがポップアップして、1,2、または3の入力を再度求められます。問題は私が得ることができないことです私はそれに1つ以上の条件を置くとループが働きます。

Loop Until sinput <= 3 And sinput > 0 

それが十分でなければなりません。ここに私のコードがある

Public Sub ForecastReport() 

    Dim sinput As Integer 

    Do 
     sinput = Application.InputBox("Please select 1 to 3 " & vbLf & vbLf & "1. GB IMCP" & vbLf & "2. IE IMCP" & vbLf & "3. US", "Enter a Value") 

     Select Case sinput 
     Case 1 
      MsgBox ("you have selected GB IMCP") 
     Case 2 
      MsgBox ("you have selected IE IMCP") 
     Case 3 
      MsgBox ("you have selected US") 
     Case Else 
      MsgBox ("wrong input") 
     End Select 
    Loop Until sinput <> 3 

End Sub 

は

Answer 1

私はしばしば、ブールトグルを使用して、そのようなループを終了する必要があるときに処理します。これは、ユーザーがキャンセルをクリックしたため、入力ボックスがfalseを返す場合も処理します。以下は、2000年から2050年の間の年（år=年）になる値を入力欄に入力したい場合の入力ボックスの仕組みを示しています。 Usine InputBox type：= 1は、入力ボックスが整数だけを受け入れるようにします。これはあなたのケースでも便利です。

Dim år As Variant 
    Dim gyldigVerdi As Boolean 

    Do 
    år = Application.InputBox(Prompt:="Question", Title:="Title", Default:=Year(Date) + 1, Type:=1) 
    If Not CBool(år) Then 
     Exit Sub 
    ElseIf CLng(år) < 2000 Or CLng(år) > 2050 Then 
     MsgBox Prompt:="Error-message", Buttons:=vbExclamation, Title:="Title" 
     gyldigVerdi = False 
    Else 
     gyldigVerdi = True 
    End If 
    Loop Until gyldigVerdi 

私が代わりに汎用のVBA InputBoxのApplication.InputBoxを使用する注 - 両者の違いの一部について、あなたはthis pageを見てすることができます。

値が1〜3の場合にtrueを返す比較に興味がある場合は、最初のElseIfの条件を見て、反対の（x> = 1およびx < = 3）。私のアイデアを与えOK

Answer 2

は次のように試してみてくださいありがとうございました。