用戶表單關閉後Combobox更新

Question

我遇到UserForm更新問題。

當我開始Uform1時，我填寫ComboBox1，其中包含Sheet("User")的用戶列表。
如果用戶沒有註冊，您必須按Uform1中的按鈕Add user。 當按下按鈕Add user，Uform2出現（Uform2負責登記用戶）

好我的問題是，當我完成與Uform2，我得到集中回Uform1的Combobox1不顯示新用戶。我怎樣才能做到這一點？

Answer 1

我不知道你如何初始化ComboBox1值，但低於設置似乎工作。

UserForm1代碼：

Private Sub CommandButton1_Click() ' Add User Button 
    Me.Hide 
    UserForm2.Show 
End Sub 

---

Private Sub UserForm_Activate() ' Populate ComboBox1 
    With Sheet1 
     Dim lr As Long 
     lr = .Range("A" & .Rows.Count).End(xlUp).Row 
     Me.ComboBox1.List = Application.Transpose(.Range("A1:A" & lr)) 
    End With 
    Debug.Print "Activated" 
End Sub 

UserForm2代碼：

Private Sub CommandButton1_Click() ' Register Button 
    With Sheet1 
     Dim lr As Long 
     lr = .Range("A" & .Rows.Count).End(xlUp).Row 
     .Range("A" & lr + 1) = Me.TextBox1 
    End With 
    Me.Hide 
    UserForm1.Show 
End Sub 

的關鍵是使用UserForm_Activate觸發事件，重新填充ComboBox1。