VBA类模块WithEvents变量如何关联UserForm2并展示当日活动？

步骤1：给UserForm2添加公共变量 #

打开UserForm2的代码窗口，添加一个公共变量用于接收选中的日期：

Public SelectedDate As String

步骤2：修改类模块的MouseDown事件 #

在你的类模块中，修改Frme_MouseDown事件，打开UserForm2并传递点击的Label的Caption：

Public WithEvents Frme As MSForms.Label
Public frm As UserForm

Private Sub Frme_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    ' 实例化UserForm2并传递日期
    With New UserForm2
        .SelectedDate = Me.Frme.Caption
        .Show vbModal
    End With
End Sub

步骤3：在UserForm2中使用传递的日期 #

在UserForm2的Initialize事件里，你可以用SelectedDate变量来展示当日活动，比如：

Private Sub UserForm_Initialize()
    ' 示例：将选中日期显示在UserForm2的Label1上
    Me.Label1.Caption = "选中日期：" & Me.SelectedDate
    
    ' 这里可以添加读取/展示当日活动的代码，比如从工作表查询对应数据
End Sub

确认UserForm1的类模块初始化（关键） #

确保你在UserForm1的初始化事件中，已经把所有日历Label关联到类模块实例（如果还没做，添加以下代码）：

Dim colCalendarLabels As New Collection

Private Sub UserForm_Initialize()
    Dim ctl As MSForms.Control
    Dim clsCalLabel As YourClassModuleName ' 替换成你的类模块名称，比如clsDayLabel
    
    ' 遍历所有Label控件，关联到类模块
    For Each ctl In Me.Controls
        If TypeName(ctl) = "Label" Then
            ' 可选：如果日历Label有特定命名规则，比如以"Day"开头，可加判断：
            ' If Left(ctl.Name, 3) = "Day" Then
                Set clsCalLabel = New YourClassModuleName
                Set clsCalLabel.Frme = ctl
                Set clsCalLabel.frm = Me
                colCalendarLabels.Add clsCalLabel
            ' End If
        End If
    Next ctl
End Sub

原理说明：不需要直接传递Frme控件本身，而是传递你需要的Caption值（日期）给UserForm2的公共变量，这样UserForm2就能基于这个日期展示对应的活动内容。

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