excel - 发生错误时如何显示用户表单

Question

我有一个 Excel-VBA 用户表单，用于获取用户输入。我需要在发生错误时显示此用户表单，以便用户可以重新定义输入值。

伪代码：

Sub ()
    userform.Show
    Call Execute
End Sub

Sub Execute()
    Validate the input
    If input is wrong
    MsgBox "reselect the input"
   -here I need to disply the userform-
End sub

我试过GoTo Userform这给了我一个标签未定义的错误。有什么建议么？

Answer 1

我创建了一个 UserForm ：

单击命令按钮时，代码会检查输入，如果输入错误，则会在消息框中显示错误，然后重定向到用户表单。

私有子 CommandButton1_Click()

If TextBox1.Value = "" Then

    MsgBox ("Please provide the value")

    UserForm1.Show

    UserForm1.Repaint

End If

结束子

PS：将 Userform 的 ShowModal 属性更改为“False”。