这可能是因为无限循环。要解决这个问题,只需添加一个退出输入框提示的条件。以下是一个解决方法的示例代码:
Sub InputBoxExample() Dim myValue As String Do Until myValue <> "" myValue = InputBox("Enter a value:") If myValue = "" Then MsgBox "You must enter a value!" End If Loop MsgBox "You entered " & myValue End Sub
该代码使用循环来要求用户输入值,直到用户输入有效值或单击取消按钮。