如何在Excel中的用戶表單之間傳輸值

Question

我想在Excel中使用兩個用戶表單。 第一個用戶窗體有兩個按鈕。 第一個按鈕'Go'可以將數字1賦予a，然後轉到第二個用戶窗體。

Public a as Integer 
Private Sub Go_Click() 
UserForm2.Show 
a = 1 
End Sub 

而另一個按鈕「顯示」可以顯示出a和b的值。

Private Sub Show_Click() 
Load UserForm2 
Debug.Print a, b 
End Sub 

在第二個用戶窗體中，它可以將2分配給b（並關閉用戶窗體2的窗口）。我想當我點擊第一個用戶窗體中的「顯示」時，它可以顯示出a和b（1和2）。我怎樣才能糾正我的代碼？

Answer 1

有這樣的代碼在Userform1：

Public a As Integer 
Public frm As UserForm2 

'Userform1 code. 
Private Sub Go_Click() 
    Set frm = New UserForm2 
    a = 1 
End Sub 

Private Sub Show_Click() 
    Debug.Print a, frm.b 
    Set frm = Nothing 
End Sub 

而這userform2：

Public b As Integer 

'UserForm2 code 
Private Sub UserForm_Initialize() 
    b = 2 
End Sub 

的 'Go_Click' 在Userform1創建的Userform2一個新的類的實例將在Userform2火Userform_Initialise事件並將值設置爲變量b。然後您可以在Userform1中的frm變量中引用它。

您可以輸入文本Userform2及隱藏表單：
Userform1代碼：

Public a As Integer 
Public frm As UserForm2 

'Userform1 code. 
Private Sub Go_Click() 
    Set frm = New UserForm2 
    a = 1 
    frm.Show 
End Sub 

Private Sub Show_Click() 
    Debug.Print a, frm.b, frm.TextBox1 
    Set frm = Nothing 
End Sub 

UserForm2代碼：

Public b As Integer 

Private Sub btnClose_Click() 
    Me.Hide 
End Sub 

'UserForm2 code 
Private Sub UserForm_Initialize() 
    b = 2 
End Sub