Excel VBA:如何调用;“论变革”;对于动态创建的对象?
我正在尝试调用userform上任何组合框的更改事件 更新 因此,按照其他人所说的(对于文本框,我已经测试过并适用于文本框),我创建了一个名为“clsCombo_Update”的类模块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
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
此设置适用于文本框,但在我尝试使其适用于组合框时无效您只需在组合框上设置一个“提交”按钮或类似按钮即可吗?请查看此处: