为何表单仍驻留内存？VBA表单卸载后代码异常触发问询

这个问题我之前也碰到过，本质是VBA里对象变量和表单实例的生命周期不是完全绑定的。咱们来拆解一下：

为什么会出现这个情况？ #

你在主程序里用Set frm = New ufNyA3创建了一个表单对象的引用，然后用frm.Show显示它。当你点击cmdAvbryt按钮执行Unload Me时，只是销毁了表单的可视化窗口，但你之前创建的frm变量并没有被自动设置为Nothing——它还保留着对那个已经被销毁的表单对象的“悬垂引用”。

这时候Not frm Is Nothing的判断结果依然是True，因为变量本身还存在，只是它指向的对象已经不存在了，所以代码会进入If块执行后续操作。

怎么解决？ #

最推荐用公共标志变量的方式，清晰又好维护：

步骤1：在用户表单里添加公共标志 #

打开你的ufNyA3表单代码模块，顶部添加一个公共布尔变量，用来标记用户是否点击了取消：

Public IsCanceled As Boolean

步骤2：修改取消按钮的事件代码 #

在cmdAvbryt_Click里先设置标志，再卸载表单：

Private Sub cmdAvbryt_Click()
    IsCanceled = True ' 标记为取消操作
    Unload Me
End Sub

步骤3：修改主程序的判断逻辑 #

主程序里改用模态显示表单（确保表单关闭后再执行后续代码），然后判断这个标志，而不是检查frm是否为Nothing：

Sub lag_ny_a3()
    Dim frm As ufNyA3
    Set frm = New ufNyA3
    
    frm.Show vbModal ' 模态显示，等待表单关闭后继续执行
    
    ' 只有当用户没有取消时，才执行后续操作
    If Not frm.IsCanceled Then
        MsgBox "Doing stuff"
    End If
    
    Set frm = Nothing ' 手动释放对象，养成好习惯
End Sub

另一种可选方案：检查表单是否已加载 #

如果你不想加公共变量，也可以用VBA的Forms集合来判断表单是否还存在，但这种方式不如标志变量直观：

Sub lag_ny_a3()
    Dim frm As ufNyA3
    Set frm = New ufNyA3
    frm.Show
    
    ' 检查表单是否还在Forms集合里（即未被卸载）
    Dim formExists As Boolean
    formExists = False
    Dim f As Object
    For Each f In Forms
        If f.Name = "ufNyA3" Then
            formExists = True
            Exit For
        End If
    Next f
    
    If formExists Then
        MsgBox "Doing stuff"
        Unload frm
    End If
End Sub

不过还是更推荐第一种公共标志的方式，代码可读性更高，逻辑也更清晰。

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