VBA从非模态用户窗体引发事件

要实现VBA从非模态用户窗体引发事件，可以使用以下步骤：

1. 创建一个非模态的用户窗体，例如名为"UserForm1"的窗体。
2. 在"UserForm1"的代码模块中，声明一个事件，例如"Event Clicked()"：

Public Event Clicked()

3. 在窗体上添加一个按钮"CommandButton1"，并在按钮的点击事件中引发自定义事件：

Private Sub CommandButton1_Click()
    RaiseEvent Clicked
End Sub

4. 在需要接收"Clicked"事件的模块中，创建一个"UserForm1"对象，并添加事件处理程序：

Dim WithEvents myForm As UserForm1

Private Sub myForm_Clicked()
    ' 在此处处理事件
    MsgBox "Clicked event triggered!"
End Sub

5. 在需要触发事件的地方，实例化"UserForm1"对象，并调用按钮点击事件：

Sub TriggerEvent()
    Set myForm = New UserForm1
    myForm.CommandButton1_Click
End Sub

6. 调用"TriggerEvent"子过程时，将会触发"UserForm1"中的按钮点击事件，并引发自定义事件"Clicked"。

请注意，以上代码示例为简化版本，实际使用中可能需要根据具体需求进行修改和扩展。