Excel VBA:如何调用;“论变革”;对于动态创建的对象?

Excel VBA:如何调用;“论变革”;对于动态创建的对象?,vba,excel,Vba,Excel,我正在尝试调用userform上任何组合框的更改事件 更新 因此,按照其他人所说的(对于文本框,我已经测试过并适用于文本框),我创建了一个名为“clsCombo_Update”的类模块 Private WithEvents MyComboBox As MSForms.comboBox Public Property Set Control(cb As MSForms.comboBox) Set MyComboBox = cb End Property Private Sub MyCo

我正在尝试调用userform上任何组合框的更改事件

更新

因此,按照其他人所说的(对于文本框,我已经测试过并适用于文本框),我创建了一个名为“clsCombo_Update”的类模块

Private WithEvents MyComboBox As MSForms.comboBox

Public Property Set Control(cb As MSForms.comboBox)
    Set MyComboBox = cb
End Property

Private Sub MyComboBox_Change()
    Debug.Print "Change"
End Sub
在UserForm中,我有:

Private Sub UserForm_Initialize()

    Dim ctrl As MSForms.Control
    Dim obj As clsCombo_Update

    Set cbCollection = New Collection
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is MSForms.comboBox Then
                Set obj = New clsCombo_Update
                Set obj.Control = ctrl
                cbCollection.Add obj
            End If
        Next ctrl
    Set obj = Nothing

End Sub
此设置适用于文本框,但在我尝试使其适用于组合框时无效

您只需在组合框上设置一个“提交”按钮或类似按钮即可吗?请查看此处: