excel - 在用户窗体初始化子中访问在 ThisWorkbook 中声明的变量

Question

我正在根据用户输入 1 到 5 设置用户表单，但是，我似乎无法将此输入输入到 Userform_Initialise 子中。

Public TP As String 'this is in ThisWorkbook; from here

Private Sub Workbook_Open()

Dim RT As String

ReEnter:

    RT = Application.InputBox("1 - Monthly" & vbNewLine & "2 - Quarterly" & vbNewLine & "3 - Semi-Annually" & _
    vbNewLine & "4 - Semi-Annually" & vbNewLine & "5 - Others", "Type of 
    Report", "Enter Number Here", Type:=1)
    If RT >= 1 And RT <= 5 Then
        TP = Val(RT)
    Else
        MsgBox "Error", vbCritical
        GoTo ReEnter

    End If

UserForm1.Show

End Sub 'to here

'This onwards is in Userform
Private Sub Userform_Initialize()

Debug.Print TP

End Sub

如何获取识别用户输入的代码 TP在用户窗体中？提前致谢!

Answer 1

在模块中声明全局变量

Public TP As String 'this should be in a module

或者如果它在 ThisWorkbook 中声明你必须使用

Debug.Print ThisWorkbook.TP

在您的用户窗体中。