使用关闭的 userform2 刷新用户 userform1 中的组合框 - VBA
Refresh Combobox in user userform1 with close userform2 - VBA
我想通过关闭 userform2 window 来刷新 userform1 combobox 值。 (没有放置命令按钮,只有 window 关闭)
创建 2 个用户窗体。
在 UserForm1 上放置此代码:
Dim WithEvents frm2 As UserForm2
Private Sub frm2_Closed()
MsgBox "Closed!"
End Sub
Private Sub UserForm_Initialize()
Set frm2 = New UserForm2
frm2.Show
End Sub
在 Userform2 上输入代码:
Public Event Closed()
Private Sub UserForm_Terminate()
RaiseEvent Closed
End Sub
您可以更改代码来执行您想要的操作。
当 UserForm2 关闭时,将引发一个事件并由 UserForm1 处理它。
我想通过关闭 userform2 window 来刷新 userform1 combobox 值。 (没有放置命令按钮,只有 window 关闭)
创建 2 个用户窗体。
在 UserForm1 上放置此代码:
Dim WithEvents frm2 As UserForm2
Private Sub frm2_Closed()
MsgBox "Closed!"
End Sub
Private Sub UserForm_Initialize()
Set frm2 = New UserForm2
frm2.Show
End Sub
在 Userform2 上输入代码:
Public Event Closed()
Private Sub UserForm_Terminate()
RaiseEvent Closed
End Sub
您可以更改代码来执行您想要的操作。
当 UserForm2 关闭时,将引发一个事件并由 UserForm1 处理它。