Excel VBA类模块中WithEvent无法获取Let属性变量值问题

看起来你遇到的问题是：类模块里的Num变量通过Number属性赋值正常，但在类的其他子过程（比如ComboBox的事件）里调用时总是返回0。我来帮你排查几个常见原因和解决办法：

1. 检查是否存在局部变量覆盖成员变量 #

这是最容易踩的坑！如果在类的事件过程里不小心定义了和Num同名的局部变量，那代码里调用的就不是类的成员变量，而是局部的那个（默认初始值为0）。

比如你可能写了这样的代码：

Private Sub ComboBox_Change()
    Dim Num As Long ' 这里的局部变量覆盖了类的成员变量Num！
    MsgBox Num ' 自然返回0
End Sub

解决办法：删掉事件过程里的Dim Num As Long，直接使用类的成员变量Num即可。

2. 确认类实例的生命周期是否持久 #

如果你的类实例是在某个局部过程里创建的（比如按钮点击事件），过程结束后实例会被销毁，再次访问时如果是新实例，Num就会回到默认值0。

错误示例：

' 窗体模块里的代码
Private Sub CommandButton1_Click()
    Dim myCombo As New clsCombobox
    Set myCombo.ComboBox = Me.ComboBox1
    myCombo.Number = 200 ' 赋值成功，但过程结束后myCombo就销毁了
End Sub

Private Sub ComboBox1_Click()
    Dim myCombo As New clsCombobox ' 这里是新实例，Num默认0
    MsgBox myCombo.Num
End Sub

解决办法：把类实例定义为模块级变量，确保它在窗体生命周期内一直存在：

' 窗体模块里的代码
Private myCombo As clsCombobox ' 模块级变量

Private Sub UserForm_Initialize()
    Set myCombo = New clsCombobox
    Set myCombo.ComboBox = Me.ComboBox1
    myCombo.Number = 200 ' 持久赋值
End Sub

Private Sub ComboBox1_Click()
    MsgBox myCombo.Num ' 这里会返回200
End Sub

3. 验证Number属性的赋值是否真的生效 #

虽然你的Let/Get属性代码看起来没问题，但可以加个调试输出确认赋值是否成功：

' 类模块clsCombobox里的代码
Public Property Let Number(Value As Long)
    Num = Value
    Debug.Print "Num已赋值为：" & Num ' 打开立即窗口看输出
End Property

Public Property Get Number() As Long
    Number = Num
    Debug.Print "获取Number值：" & Number
End Property

然后在类外部赋值后，查看立即窗口的输出，确认Num确实被设置成了你想要的值。

4. 排查是否有其他代码重置了Num #

检查类模块里的其他子过程，有没有不小心给Num赋值为0的情况，比如在ComboBox的初始化事件里误写了Num = 0。

按照这几个步骤排查，应该能找到问题所在！

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