VBA类对象跨Sub访问问题：实例化对象无法在其他Sub调用

你遇到的核心问题是变量作用域限制：Main过程里声明的c1是局部变量，仅在Main内部有效，因此Test过程无法访问它。以下是几种可行的解决方案：

方案1：将类对象声明为模块级变量 #

把c1的声明移到模块的通用声明段（所有Sub/Function之外），让整个模块内的所有过程都能访问该对象：

' 模块通用声明段（所有过程代码上方）
Dim c1 As Counters

Public Sub Main()
  Set c1 = New Counters ' 显式初始化对象，避免自动实例化的意外问题
  c1.xSetCounter = 6
  Debug.Print c1.xCounterVal
End Sub

Sub Test()
  ' 现在可正常访问c1的成员
  Debug.Print c1.xCounterVal
End Sub

方案2：通过参数传递类对象 #

如果不想使用模块级变量，可以将c1作为参数传递给Test过程，这种方式更符合封装原则：

Public Sub Main()
  Dim c1 As New Counters
  c1.xSetCounter = 6
  Debug.Print c1.xCounterVal
  
  ' 调用Test时传入c1对象
  Test c1
End Sub

' 定义Test过程时，声明接收Counters类型的参数
Sub Test(ByRef cnt As Counters)
  ' 通过参数cnt访问计数器成员
  Debug.Print cnt.xCounterVal
End Sub

方案3：实现类的单例模式 #

如果需要整个程序中只有一个Counters实例，可修改类模块实现单例模式，确保所有过程访问的是同一个计数器对象：

修改后的Counters类模块代码： #

Private x As Long
Private y As Long
Private Shared instance As Counters ' 静态变量，保存唯一实例

Private Sub Class_Initialize()
  x = 0
  y = 0
End Sub

' 获取唯一实例的公共方法
Public Function GetInstance() As Counters
  If instance Is Nothing Then
    Set instance = New Counters
  End If
  Set GetInstance = instance
End Function

Public Property Let xSetCounter(c As Long)
  x = c
End Property

Public Property Get xCounterVal() As Long
  xCounterVal = x
End Property

Public Property Let ySetCounter(c As Long)
  y = c
End Property

Public Property Get yCounterVal() As Long
  yCounterVal = y
End Property

使用单例的过程代码： #

Public Sub Main()
  Dim c1 As Counters
  Set c1 = Counters.GetInstance()
  c1.xSetCounter = 6
  Debug.Print c1.xCounterVal
End Sub

Sub Test()
  Dim cnt As Counters
  Set cnt = Counters.GetInstance()
  ' 访问同一个全局实例的计数器值
  Debug.Print cnt.xCounterVal
End Sub

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