我有UserForm更新问题。
当我启动时，Uform1我会用填充ComboBox1用户列表Sheet("User")。
如果用户不registredü必须按下按钮Add user的Uform1。当Add user按下按钮时，Uform2出现（Uform2负责注册用户）
好的，我的问题是，当我完成操作时，Uform2又回到了焦点，Uform1即Combobox1不显示新用户。我怎样才能做到这一点？
我不确定如何初始化该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。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句