VBA中数组与Let/Get默认属性的使用问题求助

你遇到的问题核心是：testArray(1,1) = 5执行时，VBA会先调用Get data()获取对象内数组的副本（Variant数组赋值默认是传值），然后修改这个临时副本的元素，但这个副本和对象内部的D变量完全独立，所以原数据不会被修改，且整个过程不会触发Let data属性。

这是因为你当前的Let data只接受完整的Variant数组作为参数，不支持单独修改数组元素的操作。

要实现直接修改对象内数组元素的需求，需要将data属性改为带索引参数的索引属性，同时为带参数的Get和Let都设置默认成员标识。具体操作如下：

1. 修改类模块代码 #

用记事本打开ArrayClass.cls文件，替换为以下代码：

Class ArrayClass
    Private D As Variant

    '带双索引的Get属性，设置为默认成员
    Property Get data(Index1 As Long, Index2 As Long) As Variant
        Attribute data.VB_UserMemId = 0
        data = D(Index1, Index2)
    End Property

    '带双索引的Let属性，用于修改指定位置元素
    Property Let data(Index1 As Long, Index2 As Long, value As Variant)
        Attribute data.VB_UserMemId = 0
        D(Index1, Index2) = value
    End Property

    '保留原无参数Let属性，支持赋值整个数组
    Property Let data(value As Variant)
        D = value
    End Property
End Class

2. 关键细节 #

• 必须为带参数的Get和Let都添加Attribute data.VB_UserMemId = 0，让它们成为类的默认成员（VBA编辑器无法直接添加该属性，只能通过编辑.cls文件实现）
• 新增的带参数Let data会在执行testArray(1,1) = 5时被触发，直接修改对象内部D数组的对应元素
• 保留原有无参数Let data，确保testArray = passArray的完整数组赋值逻辑正常工作

3. 测试验证 #

运行你的测试代码后：

• testArray = passArray依然会调用无参数Let data，将整个数组赋值给D
• testArray(1,1) = 5会调用带参数Let data，直接修改D(1,1)的值
• Debug.Print testArray(2,1)会输出9，Debug.Print testArray(1,1)会输出修改后的5

如果需要支持不同维度的数组，可以进一步调整参数数量，或者使用可变参数来适配更灵活的索引需求。

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