如何刷新表格？

Question

我有一个带有按钮的用户窗体。我希望按钮“刷新”表单，换句话说，我希望表单结束，然后重新打开。

下面的代码将不起作用，因为表单/宏已经结束，但是我希望按钮执行此任务或类似任务。

sub command1.click()
end
userform1.show
end sub

我已经检查并尝试了大多数或所有我可以从中选择的选项来“刷新”用户表单。这甚至可能吗？

Answer 1

这里是一种非常简单的方法。只需使用UserForm_Initialize

重新初始化用户表单

Private Sub UserForm_Initialize()
    TextBox1.Text = "" '<~~ Just an Example

    '
    '~~> Put here the code to re-initialize the userform which will refresh it
    '
End Sub

Private Sub CommandButton1_Click()
    TextBox1.Text = "Sid"

    MsgBox "Re-Initialzing the Userform"

    UserForm_Initialize
End Sub

Answer 2

Private Sub CommandButton1_Click()
    Unload Me
    UserForm1.Show
End Sub