UserForm中动态创建的ComboBox Change事件未触发问题排查

核心问题 #

你的代码里存在变量作用域冲突：

• 模块顶部声明了带WithEvents的模块级变量ComboBox1，用于监听控件事件；
• 但在ClickButton_Click过程中，又重新声明了同名的局部变量Dim ComboBox1 As MSForms.ComboBox，这直接覆盖了模块级变量。
  结果就是模块级的ComboBox1从未被赋值指向你创建的控件，WithEvents自然无法绑定到动态创建的ComboBox上，导致Change事件完全不会触发。

修复后的代码 #

移除局部变量声明，直接使用模块级的ComboBox1来接收创建的控件：

Private WithEvents ComboBox1 As MSForms.ComboBox

Private Sub ClickButton_Click()
      
    ' 创建ComboBox：移除局部变量声明，直接赋值给模块级ComboBox1
    Set ComboBox1 = Me.Controls.Add("Forms.ComboBox.1")
    With ComboBox1
        .Left = 160
        .Top = 50
        .Width = 70
        .Height = 20
        .AddItem ("> than")
        .AddItem ("< than")
        .AddItem ("Max")
        .AddItem ("Min")
        .Enabled = True
        .BackColor = RGB(255, 255, 255)
        .ForeColor = RGB(0, 0, 0)
        .SpecialEffect = fmSpecialEffectFlat
        .Font.Size = 12
        .Font.Bold = False
        .Font.Name = "Arial"
        .TabIndex = 2
    End With
        
    DoEvents
    ComboBox1.SetFocus
      
End Sub

Private Sub ComboBox1_Change()
    Dim inputNumber As Variant
    If ComboBox1.Value = "> than" Then
        inputNumber = InputBox("Enter a number:")
        ' 校验输入是否为有效数字
        If IsNumeric(inputNumber) Then
            ' 原代码中的ComboBox2未定义，这里修正为当前ComboBox的文本拼接
            ComboBox1.Value = "> than " & inputNumber
        Else
            MsgBox "Invalid input"
        End If
    End If
End Sub

额外注意事项 #

• 原代码中的ComboBox2.Value属于未定义的控件，会触发运行时错误，已在修复代码中修正为当前ComboBox的文本拼接，你可根据实际需求调整；
• 如果需要动态创建多个带事件的ComboBox，单个模块级变量无法满足需求，此时需要借助类模块来批量管理每个控件的事件绑定。

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