VBA自定义工作表类声明同类型WithEvents私有成员编译报错如何解决

报错根因 #

VBA存在原生语法限制：不允许在类模块内部声明WithEvents修饰的、类型为该类本身的成员，这是你编译报错的直接原因，该限制无法绕过，必须调整类结构实现需求。

可行实现方案 #

思路 #

把事件定义、触发的逻辑从通用工作表类中拆分出来，做成独立的轻量事件源类，通用工作表类通过持有事件源实例发布事件，同时声明WithEvents的事件源类成员监听其他工作表的事件，完全避开自引用限制。

步骤1：新建事件源类clsSheetEventSource #

该类仅负责定义事件和提供触发事件的入口，无其他业务逻辑：

Option Explicit
Event tableChanged(data, lr As ListRow)

' 供持有实例的工作表类调用，对外触发事件
Public Sub RaiseTableChanged(data, lr As ListRow)
    RaiseEvent tableChanged(data, lr)
End Sub

步骤2：修改通用工作表类clsSheet #

Option Explicit

' 自身持有的事件源，用于发布本工作表的变动事件
Private m_ownEventSource As clsSheetEventSource
' 监听的其他工作表事件源，用拆分后的类声明WithEvents，无编译错误
Private WithEvents m_sendingSource As clsSheetEventSource
' 工作表承载的ListObject对象
Public attachedList As ListObject

' 类初始化时自动创建自身的事件源实例
Private Sub Class_Initialize()
    Set m_ownEventSource = New clsSheetEventSource
End Sub

' 对外暴露自身事件源，供其他实例绑定监听
Public Property Get EventSource() As clsSheetEventSource
    Set EventSource = m_ownEventSource
End Property

' 绑定要监听的发送方工作表
Public Sub BindSendingSheet(sendingSheet As clsSheet)
    Set m_sendingSource = sendingSheet.EventSource
End Sub

' 本工作表表格变动时调用，对外发布事件
Public Sub OnTableModified(data, lr As ListRow)
    m_ownEventSource.RaiseTableChanged data, lr
End Sub

' 监听的发送方事件触发后的处理逻辑
Private Sub m_sendingSource_tableChanged(data, lr As ListRow)
    ' 此处填写事件处理业务代码
    Debug.Print "收到发送方表格变动通知"
End Sub

调用示例 #

Sub TestSheetEventLink()
    Dim sendSheet As New clsSheet
    Dim receiveSheet As New clsSheet
    
    ' 接收方绑定发送方，监听变动
    receiveSheet.BindSendingSheet sendSheet
    
    ' 模拟发送方表格变动，触发事件
    sendSheet.OnTableModified "测试变动数据", Nothing
End Sub

替代方案：用接口回调替代事件 #

如果不想多维护一个事件源类，也可以用接口回调实现相同逻辑：

1. 新建类模块ITableChangeHandler，仅定义方法签名：

Option Explicit
Public Sub OnTableChanged(data, lr As ListRow)
End Sub

2. 让clsSheet实现该接口，同时维护一个接收方实例集合，表格变动时遍历所有接收方调用接口方法即可，无需使用事件机制。

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