Excel VBA - 公共變量不在模塊之間傳遞

Question

我想將一個公開聲明的變量的值從一個用戶表單傳遞迴到代碼最初啓動的模塊。我可以在用戶窗體中打印變量的值，但當代碼跳回到啓動模塊時，它不會持續。 Option Explicit在雙方聲明，並且我聲明單個變量（忽略var2 - var6，因爲它們在我解決這個單一問題之前未被使用）。

代碼路徑從下面的第一部分開始，跳轉到「StatSelection.Show」的用戶窗體，然後跳回到用戶窗體的末尾。第一debug.print提供了可變的，但第二個是空白..

主要代碼：

Option Explicit 

Public var1 As String 

Sub NoNameGame2FirstRoundResults() 
' 
' NoNameGame Macro 
' 
' 
'Load Round 1 file 
    Dim r1Name As Variant 
    Dim nngr1r As Workbook 
    ChDir "D:\Users\stefan.bagnato\Desktop\No Name Game" 
    r1Name = Application.GetOpenFilename 
    If r1Name <> False Then 
     Set nngr1r = Workbooks.Open(r1Name) 
    End If 

'Load previous week's file 
    Dim r1rName As Variant 
    Dim wps As Workbook 
    ChDir "D:\Users\stefan.bagnato\Desktop\Weekly Performance Summary" 
    r1rName = Application.GetOpenFilename 
    If r1rName <> False Then 
     Set wps = Workbooks.Open(r1rName) 
    End If 

'Create radio buttons to select week 1 stat 
    StatSelection.Show 

'Parse Column B for names, and paste corresponding data in column C 
nngr1r.Activate 

Debug.Print var1 

ActiveWorkbook.Worksheets("Sheet1").Columns(2).Find("Adam").Offset(N, 1) = var1 

End Sub 

用戶窗體是：

Option Explicit 

Public var1 As String 

Sub OptionButton1_Click() 
    Dim wps As Workbook, x As String 
    For Each wps In Workbooks 
    If wps.name <> ThisWorkbook.name Then x = wps.name 
    Next wps 
    Workbooks(x).Activate 

    var1 = Format((ActiveWorkbook.Worksheets("Sheet1").Range("F4")), "hh:mm:ss") 
    var2 = Format((ActiveWorkbook.Worksheets("Sheet1").Range("F5")), "hh:mm:ss") 
    var3 = Format((ActiveWorkbook.Worksheets("Sheet1").Range("F6")), "hh:mm:ss") 
    var4 = Format((ActiveWorkbook.Worksheets("Sheet1").Range("F7")), "hh:mm:ss") 
    var5 = Format((ActiveWorkbook.Worksheets("Sheet1").Range("F9")), "hh:mm:ss") 
    var6 = Format((ActiveWorkbook.Worksheets("Sheet1").Range("F10")), "hh:mm:ss") 


    Debug.Print var1 

    Me.Hide 
End Sub 

Answer 1

從卸下公共變量聲明用戶窗體模塊並僅在標準模塊上聲明。