VBA动态创建Label绑定tbEvents_Click事件仅最后一个生效问题

你只创建了一个Class1实例objMyEventClass，在循环中每次执行Set objMyEventClass.tbEvents = tbPin时，都会覆盖之前的绑定关系——相当于这个类实例只会和最后一个创建的Label关联，之前的Label都丢失了事件绑定的引用，自然无法触发事件。

需要用**集合（Collection）**来保存每个Class1的独立实例，确保每个动态Label都对应一个专属的事件处理对象，不会被覆盖。

步骤1：修改窗体模块的变量声明 #

把窗体顶部的单个类实例变量替换成集合，并修正Option Explicit的位置（必须放在模块第一行）：

Option Explicit

Dim HH As Long, VV As Long
Dim eventHandlers As Collection ' 用于保存所有事件处理类实例

步骤2：初始化集合 #

在UserForm_Initialize中初始化集合：

Private Sub UserForm_Initialize()
    Set eventHandlers = New Collection
    HH = shQuestions.Range("C1").CurrentRegion.Columns.Count
    VV = shQuestions.Range("A3").CurrentRegion.Rows.Count
End Sub

步骤3：修改事件绑定逻辑 #

在addQuestions的循环中，每次需要绑定事件时，新建一个Class1实例，添加到集合后再绑定Label：

Private Sub addQuestions()
    Dim i As Long, j As Long
    Dim tbPin As MSForms.Label ' 改为局部变量，无需公共声明
    Dim handler As Class1 ' 临时变量保存单个事件处理实例

    For i = 1 To VV + 1
        For j = 1 To HH + 1
            Set tbPin = frMain.Controls.Add("Forms.Label.1", "label" & i & j, True)
            
            With tbPin
                If i = 1 Then
                    .Caption = "Question" & i & j
                    .Height = 80
                    .Top = 230
                    .BackColor = RGB(100, 116, 168)
                Else
                    .Caption = "labelPoints" & i & j
                    .Height = 460 / VV
                    .Top = 310 + (i - 2) * (460 / VV)
                    .BackColor = RGB(0, 116, 168)
                End If

                If j = 1 Then
                    .Caption = "Points" & i & j
                    .Width = 325
                    .Left = 50
                    .BackColor = RGB(100, 116, 168)
                Else
                    .Width = 750 / HH
                    .Left = 375 + (j - 2) * (750 / HH)
                    
                    ' 新建事件处理实例并绑定
                    Set handler = New Class1
                    Set handler.tbEvents = tbPin
                    eventHandlers.Add handler
                End If
            End With
        Next j
    Next i
End Sub

关键说明 #

• 集合eventHandlers会持续保存每个Class1实例的引用，避免它们被VBA的垃圾回收机制销毁
• 每个Label都对应一个独立的Class1实例，因此点击任意Label都会触发对应的tbEvents_Click事件

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