VBA的函数参数传递方式是Byval和Byref，数值类型、Stirng等那些值类型的是要非常注意用哪种方式的。对于Object对象引用类型的一直都说2种方式完全没有区别。
Object对象的Byval和Byref参数真的没有区别吗？
对于操作的这个Object对象来说，可以认为是没有区别，但是传递过程和其他数据类型的参数传递是一样的，遵守的规则并没有改变。
ByVal 参数传递的时候，会在内存中另外复制一份，函数操作这个副本和传递之前的那个变量已经没有了任何关系；
Byref 会把参数的内存地址传递给函数，函数接收到这个是通过内存地址来读取或者改写的，操作的就是原来的变量。
对于Object对象，其实我们传递的只是他的指针，也就是VarPtr得到的那个数字，是指向Object所在内存的地址。
可以理解为参数其实就是一个LongPtr类型，所以你是复制一份这个LongPtr类型的数字传递，还是把这个LongPtr类型所在的内存地址传递给函数，对于Object这个对象来说，是没有区别的。它最终都要通过这个数字所代表的内存地址找到Object对象。
Sub TestObject()Dim rng As RangeSet rng = Range("A1")Dim VarPtr中保存的数据 As LongCopyMemory VarPtr(VarPtr中保存的数据), VarPtr(rng), 4Printf "VarPtr(rng) = x0%x, ObjPtr(rng) = 0x%x, VarPtr中保存的数据 = 0x%x", VarPtr(rng), ObjPtr(rng), VarPtr中保存的数据TestObjectByVal rngTestObjectByValByRef rngEnd SubFunction TestObjectByVal(ByVal rng As Range)Dim VarPtr中保存的数据 As LongCopyMemory VarPtr(VarPtr中保存的数据), VarPtr(rng), 4Printf "ByVal: VarPtr(rng) = x0%x, ObjPtr(rng) = 0x%x, VarPtr中保存的数据 = 0x%x", VarPtr(rng), ObjPtr(rng), VarPtr中保存的数据End FunctionFunction TestObjectByValByRef(ByRef rng As Range)Dim VarPtr中保存的数据 As LongCopyMemory VarPtr(VarPtr中保存的数据), VarPtr(rng), 4Printf "ByRef: VarPtr(rng) = x0%x, ObjPtr(rng) = 0x%x, VarPtr中保存的数据 = 0x%x", VarPtr(rng), ObjPtr(rng), VarPtr中保存的数据End Function输出：VarPtr(rng) = x022edd0, ObjPtr(rng) = 0xfaaddd0, VarPtr中保存的数据 = 0xfaaddd0ByVal: VarPtr(rng) = x022ecc0, ObjPtr(rng) = 0xfaaddd0, VarPtr中保存的数据 = 0xfaaddd0ByRef: VarPtr(rng) = x022edd0, ObjPtr(rng) = 0xfaaddd0, VarPtr中保存的数据 = 0xfaaddd0
从打印输出可以看出，Byval传递需要复制参数，其实只是把保存对象地址的那个内存地址，也就是VarPtr得到的那个地址复制改变了，而这个地址中保存的数据仍然是ObjPtr的那个地址。
本文使用 文章同步助手 同步
