Question

我对UserForm更新有疑问。

当我开始Uform1时，我使用ComboBox1的用户列表填充Sheet("User")。
如果用户未注册，则必须按Add user中的Uform1按钮。按下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。

用户窗体关闭后的组合框更新

1 个答案: