VBA（Excel）：运行时获取触发事件的ActiveX ComboBox对象

嘿，我完全懂你现在的困扰——动态生成的ComboBox触发Change事件时，没法直接定位到是哪个控件，用LinkedCell加Calculate的临时办法确实有点绕，而且根本拿不到目标控件本身。这里给你一个更靠谱的方案，用类模块绑定每个ComboBox的事件，轻松获取触发事件的控件：

步骤1：创建事件处理类模块 #

首先在VBE里右键你的项目→插入→类模块，把这个类模块的名称改成clsComboBoxEvents（在属性窗口里修改），然后写入以下代码：

Public WithEvents Combo As MSForms.ComboBox

Private Sub Combo_Change()
    ' 这里直接就能访问到触发事件的ComboBox对象
    Debug.Print "触发事件的控件名称：" & Combo.Name
    Debug.Print "当前选中值：" & Combo.Value
    ' 你可以在这里写任何针对这个ComboBox的业务逻辑，比如调整样式、关联其他单元格等
End Sub

步骤2：初始化事件集合 #

在标准模块里声明一个全局集合，用来保存类实例（防止实例被VBA的垃圾回收机制意外销毁）：

Private comboEventsCollection As Collection

Sub InitializeComboEvents()
    Set comboEventsCollection = New Collection
End Sub

步骤3：修改ComboBox创建代码 #

更新你的NewComboBox过程，在创建控件后绑定事件并加入集合：

Sub NewComboBox(ByVal Row As Integer, Name As String, CellWidth As Integer, CellHeight As Integer)
    Dim ourCombo As OLEObject
    Dim comboEventInstance As clsComboBoxEvents
    
    ' 确保事件集合已初始化
    If comboEventsCollection Is Nothing Then
        Call InitializeComboEvents
    End If
    
    Set ourCombo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
        Link:=True, DisplayAsIcon:=False, _
        Left:=plan.Cells(Row, CellNumber_Product).Left, _
        Top:=plan.Cells(Row, CellNumber_Product).Top, _
        Width:=CellWidth, Height:=CellHeight)
    
    With ourCombo
        .Name = Name ' 一定要给每个ComboBox设置唯一名称，方便后续识别
        .LinkedCell = plan.Cells(Row, CellNumber_Product).Address
        .ListFillRange = "DTB_1!A:A"
    End With
    
    ' 创建类实例并绑定当前ComboBox
    Set comboEventInstance = New clsComboBoxEvents
    Set comboEventInstance.Combo = ourCombo.Object
    ' 把实例加入集合，用控件名称作为键
    comboEventsCollection.Add comboEventInstance, ourCombo.Name
End Sub

为什么这个方案更好？ #

• 不需要依赖额外的单元格和公式，逻辑更直接清晰
• 每个ComboBox的Change事件都会触发类模块里的Combo_Change方法，你可以直接通过Combo对象获取触发控件的所有属性（名称、位置、值等）
• 避免了Calculate事件的不确定性（比如其他单元格的计算操作也会误触发该事件）

这样你就不用再绕弯子，直接在事件处理里操作触发的ComboBox对象啦！

内容的提问来源于stack exchange，提问作者christian890