如何在点击按钮时重新加载VBA用户窗体？解决窗体再次打开未重置的问题

我完全懂你碰到的这个麻烦——关闭Form2（也就是你的Addform）之后，再从Form1点“添加”按钮打开它，它居然还停留在上次操作完的样子，根本没回到一开始的初始界面。这问题出在你当前的关闭逻辑上，咱们来一步步解决它。

问题根源 #

你现在的closebut_Click过程里用了Addform.Hide，这只是把窗体从屏幕上藏起来而已，它的所有控件状态、属性全都还保存在内存里。下次再显示的时候，系统不会重新触发UserForm_Initialize事件，自然就不会执行你写的初始化代码，窗体也就没法回到初始状态了。

解决方案：卸载窗体而非隐藏 #

我们只需要把关闭按钮的代码改成卸载窗体，彻底销毁内存里的窗体实例，这样下次打开时就会重新创建一个全新的实例，自动触发初始化逻辑。

修改后的关闭按钮代码

Public Sub closebut_Click()
    ' 卸载当前窗体，彻底清除内存中的实例与状态
    Unload Me
End Sub

优化Form1的“添加”按钮代码（确保每次打开都是全新实例）

为了保险起见，在Form1触发打开Addform的代码里，最好先检查一下窗体是否已经加载，若已加载则先卸载，再重新加载显示：

' Form1中"添加"按钮的点击事件示例
Private Sub AddButton_Click()
    ' 先判断窗体是否已加载，避免重复加载报错
    If Addform.Visible Then
        Unload Addform
    End If
    ' 重新加载并显示窗体，此时会触发UserForm_Initialize
    Load Addform
    Addform.Show
End Sub

为什么这样改有效？ #

• Unload Me会彻底销毁当前的窗体实例，释放它占用的内存，所有控件的状态（可见性、输入值等）都会被重置。
• 当你再次执行Load Addform时，系统会创建一个全新的窗体实例，自动触发UserForm_Initialize事件，执行你写的初始化代码，把所有控件恢复到你预设的初始状态。

额外小优化建议 #

你的公共变量声明Public stopped, Non As Boolean有个小问题：在VBA里，只有最后一个变量会被声明为指定类型，前面的stopped会默认是Variant类型。建议改成：

Public stopped As Boolean, Non As Boolean

另外要注意UserForm_Initialize里的Do While stopped = True Loop循环，这个会让初始化过程卡住，直到stopped变为False，确保这个逻辑是你业务需要的，别不小心让初始化一直卡着哦。

内容的提问来源于stack exchange，提问作者L Rogers