VBA将类模块存为变量时报错、绑定事件不生效问题

两个异常和功能失效对应3个核心错误：

• 「变量未定义」报错：声明数组时引用的类名BtnClass和实际类模块名称不匹配。VBA中自定义类需要手动在属性窗口修改类模块的(名称)属性，默认新建类模块名称为Class1，和代码中写的BtnClass不匹配，直接触发未定义错误。
• 数组写在Initialize过程内功能不生效：过程级变量生命周期仅覆盖当前过程执行阶段，Initialize事件运行结束后，过程内声明的Buttons数组会被VBA自动回收，绑定了事件的类对象被销毁，自然无法触发点击效果。用于事件绑定的类数组必须声明在窗体模块的通用声明段（所有过程外部），保证生命周期和窗体一致，这部分你查到的资料描述是正确的。
• 隐性逻辑缺陷：使用Dim Buttons() As New BtnClass的自动实例化写法会产生不可控的隐式实例创建问题，加上类模块点击事件中存在无意义冗余代码、变量未显式声明的问题，会导致后续运行出现预期外异常。

前置操作 #

选中你编写事件逻辑的类模块，按F4调出属性窗口，将类模块的(名称)属性修改为BtnClass，这是解决第一个报错的核心操作。

窗体模块代码 #

' 声明在所有过程外部的模块级数组，生命周期与窗体一致
Dim Buttons() As BtnClass

Private Sub UserForm_Initialize()
    Dim ButtonCount As Integer
    Dim ctl As Control
    ButtonCount = 0
    
    For Each ctl In Me.Controls
        ' 用TypeOf判断控件类型比TypeName可靠性更高，避免自定义控件误判
        If TypeOf ctl Is MSForms.Label Then
            ButtonCount = ButtonCount + 1
            ReDim Preserve Buttons(1 To ButtonCount)
            ' 手动实例化类对象，规避自动实例化的隐式创建问题
            Set Buttons(ButtonCount) = New BtnClass
            ' 将当前Label控件绑定到类的事件对象
            Set Buttons(ButtonCount).ButtonGroup = ctl
        End If
    Next ctl
End Sub

BtnClass类模块代码 #

Public WithEvents ButtonGroup As MSForms.Label

Private Sub ButtonGroup_Click()
    Dim Msg As String
    Msg = "You clicked " & ButtonGroup.Name
    MsgBox Msg
End Sub

• 不要在数组声明时添加New关键字，自动实例化逻辑会在你访问数组中空位置元素时自动创建空类实例，导致事件绑定混乱。
• 遍历窗体控件时使用Me.Controls代替硬编码的窗体名fmHover.Controls，后续修改窗体名称时无需同步调整代码。
• 如果代码顶部开启了Option Explicit强制变量声明，所有变量（包括事件过程中的Msg）必须显式声明，否则会抛出编译错误。

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