VBA中能否传递含To关键字的数组上下界作为参数？

一、直接传递To风格上下界的替代方案 #

VBA里2 To 5是数组下标范围的专用语法，无法直接作为参数传递（会触发语法错误）。除了传递两个独立参数，还有几种更优雅的实现方式：

1. 用用户定义类型（UDT）封装上下界 #

先定义一个存储上下界的类型：

Type IndexBounds
    Lower As Long
    Upper As Long
End Type

再写个辅助函数快速生成该类型实例：

Function Bounds(lower As Long, upper As Long) As IndexBounds
    Bounds.Lower = lower
    Bounds.Upper = upper
End Function

调用函数时可以直接传封装后的对象：

bar(Bounds(2, 5))

对应的bar函数参数类型设为IndexBounds即可：

Sub bar(rng As IndexBounds)
    Debug.Print "下界: " & rng.Lower & ", 上界: " & rng.Upper
End Sub

2. 用类模块封装范围逻辑 #

如果需要对范围做校验（比如确保下界≤上界）或扩展操作，可新建类模块（命名为IndexRange），添加以下代码：

Private m_lower As Long
Private m_upper As Long

Public Property Get Lower() As Long
    Lower = m_lower
End Property

Public Property Get Upper() As Long
    Upper = m_upper
End Property

Public Sub Initialize(lower As Long, upper As Long)
    If lower > upper Then Err.Raise vbObjectError + 1001, , "下界不能大于上界"
    m_lower = lower
    m_upper = upper
End Sub

再写个工厂函数简化创建流程：

Function IndexRange(lower As Long, upper As Long) As IndexRange
    Set IndexRange = New IndexRange
    IndexRange.Initialize lower, upper
End Function

调用时写法更直观：

bar(IndexRange(2, 5))

二、解决ArrayClass构造函数的参数歧义问题 #

两个Long参数既可以表示二维数组的行列数，也可以表示一维数组的上下界，直接重载构造函数会导致VBA无法区分。推荐以下两种可靠解决方案：

1. 用工厂方法替代构造函数重载 #

放弃在ArrayClass的New构造函数里做重载，转而在标准模块中编写不同用途的工厂函数，明确区分逻辑：

' 标准模块中的工厂函数
Function Create1DArrayWithBounds(lower As Long, upper As Long) As ArrayClass
    Dim arr As New ArrayClass
    arr.Init1D lower, upper ' 调用一维数组初始化方法
    Set Create1DArrayWithBounds = arr
End Function

Function Create2DArray(rows As Long, cols As Long) As ArrayClass
    Dim arr As New ArrayClass
    arr.Init2D rows, cols ' 调用二维数组初始化方法
    Set Create2DArray = arr
End Function

在ArrayClass中添加对应的初始化方法：

' ArrayClass模块代码
Public Sub Init1D(lower As Long, upper As Long)
    ' 这里写一维数组的初始化逻辑
End Sub

Public Sub Init2D(rows As Long, cols As Long)
    ' 这里写二维数组的初始化逻辑
End Sub

调用时直接通过工厂函数创建，完全避免歧义：

Dim arr1 As ArrayClass
Set arr1 = Create1DArrayWithBounds(2, 5) ' 创建上下界为2-5的一维数组

Dim arr2 As ArrayClass
Set arr2 = Create2DArray(3, 4) ' 创建3行4列的二维数组

2. 用UDT区分参数类型 #

复用前面定义的IndexBounds类型，修改ArrayClass的初始化逻辑：

' ArrayClass模块代码
Private Sub Class_Initialize()
    ' 默认构造逻辑（空实现或基础初始化）
End Sub

' 用于一维数组上下界初始化
Public Sub InitWithBounds(bounds As IndexBounds)
    ' 一维数组初始化逻辑
End Sub

' 用于二维数组行列初始化
Public Sub InitWithDimensions(rows As Long, cols As Long)
    ' 二维数组初始化逻辑
End Sub

调用时通过不同的初始化方法明确意图：

' 创建一维数组
Dim arr1 As ArrayClass
Set arr1 = New ArrayClass
arr1.InitWithBounds Bounds(2, 5)

' 创建二维数组
Dim arr2 As ArrayClass
Set arr2 = New ArrayClass
arr2.InitWithDimensions 3, 4

不推荐方案：变体参数判断 #

虽然可以将构造函数改为接收两个Variant参数，再在内部判断参数意图，但这种方式依赖运行时逻辑，容易出现误判（比如用户传入的二维行列数刚好满足下界≤上界），维护性差，不建议使用。

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