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

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：

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

Private Sub CommandButton1_Click（）

If TextBox1.Value = "" Then

    MsgBox ("Please provide the value")

    UserForm1.Show

    UserForm1.Repaint

End If

End Sub

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