动态创建表单对象集合关联VBA类后事件无法执行的问题排查

看起来你遇到的是VBA中动态控件事件绑定的经典坑——类实例的作用域问题，我帮你拆解一下问题和解决方案：

问题根源 #

你在过程内部声明了Dim cEvents As Collection: Set cEvents = New Collection，这是一个局部变量。当这个执行过程结束后，VBA的垃圾回收机制会销毁这个Collection，同时销毁里面存储的caCntrlHndlr类实例。没有了类实例的引用，动态创建的控件自然找不到对应的事件处理代码，只有在调试时过程还没结束、类实例还存在，才能触发一次事件。

解决方案 #

把cEvents的声明从过程内部移到模块级（或者全局），确保过程结束后Collection仍然保持对类实例的引用：

步骤1：调整变量作用域 #

在你的代码模块顶部（所有过程之外）添加这行声明：

Private cEvents As Collection ' 模块级变量，保持对类实例的引用

然后在你的过程里，只需要初始化这个Collection（注意不要重复声明）：

' 移除原来的Dim cEvents...，换成下面的初始化
If cEvents Is Nothing Then Set cEvents = New Collection

步骤2：修复控件命名冲突（可选但重要） #

我注意到你创建OptBtn1和OptBtn2时用了同一个名称：Nm & i，这会导致后创建的OptBtn2覆盖掉之前的OptBtn1（同一个容器里控件名称必须唯一）。虽然你说旧版本没问题，但这是潜在bug，建议修改命名：

Set OptBtn1 = S5ca1.Frame2.Controls.Add("Forms.OptionButton.1", Nm & i & "_1", True)
' ...
Set OptBtn2 = S5ca1.Frame2.Controls.Add("Forms.OptionButton.1", Nm & i & "_2", True)

步骤3：验证修改后的代码 #

调整后，你的过程代码开头应该是这样：

' 模块顶部的声明
Private cEvents As Collection

Sub YourOriginalSubName() ' 替换成你实际的过程名
    Dim CntrlH As caCntrlHndlr
    Dim OptBtn1 As MSForms.OptionButton
    Dim OptBtn2 As MSForms.OptionButton
    Dim ChkBx As MSForms.CheckBox
    Dim Nm As String
    Dim iMvT, iMvL, iOpt As Integer
    Dim i As Integer ' 补上i的声明，避免隐式类型问题
    Dim vKey ' 确保vKey来自正确的字典对象
    
    ' 初始化Collection
    If cEvents Is Nothing Then Set cEvents = New Collection
    
    iOpt = 16
    iMvT = 12
    i = 0
    For Each vKey In .Keys ' 这里的.对应你的字典对象，确保引用正确
        Set CntrlH = New caCntrlHndlr
        ' ... 剩下的控件创建代码保持不变（除了控件命名） ...
        cEvents.Add CntrlH
    Next vKey
    ' ... 后续的窗体调整代码 ...
End Sub

为什么这样能解决？ #

模块级变量的生命周期和模块一致，只要模块没有被卸载，cEvents就会一直存在，里面的caCntrlHndlr类实例也会保持引用，动态控件的事件就能正常触发了。

额外注意事项 #

• 如果你的窗体是模态的，可在窗体关闭时清空cEvents：Set cEvents = Nothing，避免内存泄漏
• 确保类模块中的WithEvents声明和控件类型完全匹配（你的代码里是正确的）

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