在模块中使用UserForm中的变量

Question

我有一个带有复选框的用户表单

Public MyVariable As String
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        MyVariable = "ON"
    Else
        MyVariable = "OFF"
    End If
 MsgBox (MyVariable)
 End Sub

在这里，变量MyVariable运行良好。 但是然后，在模块中：

Public MyVariable As String
Sub Calculate()
MsgBox (MyVariable) 'the msgbox is empty!
If MyVariable = "ON" Then
Call Sex
End If
End Sub

变量MyVariable始终为空。

Answer 1

将Public MyVariable As String从用户窗体移至模块。 然后，两个潜艇将能够“看到”它