为什么关闭用户窗体时 VBA 全局变量会丢失值？

Question

我在 Worksheet 后面有一个宏代码。当在工作表上单击按钮时，新的用户表单被初始化并显示给用户。如果用户使用红色 X 关闭窗口，或者使用“隐藏”函数/方法关闭表单，则 Worksheet 后面的所有全局变量都会丢失它们的值。是否可以保留这些值？

背后的工作表代码：

Private MeasurementCollection As Collection
Dim CurrentMeasurement As measurement
Dim NewMeasurement As measurement

Private Sub Worksheet_Activate()
    Initialize
End Sub

Public Sub Initialize()
    Set NewMeasurement = New measurement
    Dim DropDownDataQueries As Collection
    Set DropDownDataQueries = DBQueries.GetAllUpdateQueries
    For i = 1 To DropDownDataQueries.Count
        Dim Values As Collection
        Set Values = DataBase.GetData(DropDownDataQueries(i))

        With Me.OLEObjects("Combo" & i).Object
            For Each value In Values
                .AddItem value
            Next value
        End With
    Next i
End Sub

Private Sub UpdateDB_Click()
    UpdateGeneralData
    If (CurrentMeasurement Is Nothing) Then
        MsgBox ("Message text")
    Else
        Dim form As UpdateComentForm
        Set form = New UpdateComentForm
        form.Show
    End If
End Sub

Private Sub Combo1_Change()
    If Application.EnableEvents = True Then
        If (Combo1.value <> "") Then
            NewMeasurement.DN = Combo1.value
        Else
            NewMeasurement.DN = 0
        End If
    End If
End Sub

用户窗体代码

Private Sub UpdateDBData_Click()
    If (Komentar.value <> "") Then
        Me.Hide
    Else
        MsgBox ("Prosimo napišite vzrok za spremembe podatkov v belo polje!")
    End If
End Sub

Private Sub UserForm_Terminate()
    Me.Hide
End Sub

Answer 1

实验表明，在退出涉及调用= New Form 的过程时，模块级变量会被清除，前提是表单设计器窗口已在 IDE 中的某个位置打开。

关闭您可能在 VBA IDE 中打开的所有用户表单设计器窗口，然后重试。

Answer 2

NewMeasurement 已声明但从未分配。

您可以执行Dim NewMeasurement As New measurement 之类的操作来创建对象的实例。