如何按引用传递VBA类变量至模块函数并修改其值？

问题现象 #

在VBA中，传递整个类对象到函数时，函数可以正常修改类的成员变量；但直接传递类的单个基本类型成员（即使函数参数声明为ByRef），修改后无法同步到原类对象。以下是示例代码与测试过程：

类模块（Class1）代码

Public c1Long As Long

标准模块代码

Public Cls1 As Class1

Function SetCls1LongTo2(ioCls1 As Class1)
    ioCls1.c1Long = 2
End Function

Function SetCls1LongTo3(ByRef ioLong As Long)
    Debug.Print "iPar=" & ioLong
    ioLong = 3
    Debug.Print "oPar=" & ioLong
End Function

即时窗口测试步骤

Set Cls1=New Class1
Call SetCls1LongTo2(Cls1)
? Cls1.c1Long                       ' 如预期返回2
Call SetCls1LongTo3(Cls1.c1Long)    ' 调试输出"iPar=2"和"oPar=3"
? Cls1.c1Long                       ' 仍返回2，不符合预期

原因解释 #

核心问题在于VBA对基本数据类型的成员访问机制：
当你传递Cls1.c1Long时，VBA会先读取该成员的当前值，创建一个临时的内存副本，然后将这个副本的引用传递给ByRef参数。函数中修改的只是这个临时副本，而非原类对象成员变量的内存地址——因为基本数据类型（Long、Integer等）的类成员在被访问时，返回的是值的副本，而非直接的内存引用。

而传递整个类对象时，传递的是对象的指针引用，函数通过指针直接访问类内部的成员变量，因此修改会同步到原对象。

解决方案 #

1. 直接传递整个类对象（推荐）

这是最符合VBA对象模型设计的方式，代码简洁且逻辑清晰：

' 保留SetCls1LongTo2的实现，调用时传递整个对象
Call SetCls1LongTo2(Cls1)

2. 用类包装基本数据类型

如果需要单独传递“可修改的成员引用”，可以把基本类型包装成一个类，利用对象引用传递的特性实现修改：

• 创建类模块LongWrapper：

  Public Value As Long
  

• 修改Class1的成员为包装类对象：

  Public c1Long As LongWrapper
  

• 初始化与调用：

  ' 初始化时需创建包装类实例
  Set Cls1 = New Class1
  Set Cls1.c1Long = New LongWrapper
  Cls1.c1Long.Value = 2
  
  ' 修改函数参数类型
  Function SetCls1LongTo3(ByRef wrapper As LongWrapper)
      wrapper.Value = 3
  End Function
  
  ' 调用后Cls1.c1Long.Value会变为3
  Call SetCls1LongTo3(Cls1.c1Long)
  

3. 在类内部封装修改方法（面向对象最佳实践）

遵循封装原则，不在外部直接操作类成员，而是在类内部提供修改方法：

• 修改Class1为封装实现：

  Private m_c1Long As Long
  
  Public Property Get c1Long() As Long
      c1Long = m_c1Long
  End Property
  
  Public Property Let c1Long(newValue As Long)
      m_c1Long = newValue
  End Property
  
  ' 添加内部修改方法
  Public Sub Setc1LongTo3()
      m_c1Long = 3
  End Sub
  

• 调用时直接使用类方法：

  Cls1.Setc1LongTo3
  ? Cls1.c1Long ' 返回3
  

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