1

入力ボックスへの答えが である場合に実行したいマクロがありますyes。

したがって、他のマクロが実行されるたびに質問をする必要があります。ユーザーが必要なすべての日付に対してマクロを実行するまで、質問をする必要があります。

入力ボックスを間違った場所に配置していますが、どこに配置すればよいかわかりません。

Call ChangeDates

strMore = Application.InputBox(prompt:="Do you have any more dates to enter? Type Yes or No", Type:=2)

Do Until strMore = "no"

    If strMore = "yes" Then
        Call ChangeDates
    End If

    strMore = Application.InputBox(prompt:="Do you have any more dates to enter? Type Yes or No", Type:=2)
Loop
4

2 に答える 2

1

を使用する代わりに、このソリューションを検討してくださいInputBox。

Sub test()  
Question:  
If MsgBox("Do you have any more dates to enter?", vbYesNo) = vbNo Then Exit Sub  
Call ChangeDates  
GoTo Question  

End Sub

そうすれば、ユーザー (またはあなた) は、プロセスを続行/終了するために「はい」または「いいえ」を入力する必要がなくなります。

于 2013-10-05T22:13:20.940 に答える