VBAObject对象的函数参数传递

　　VBA的函数参数传递方式是Byval和Byref，数值类型、Stirng等那些值类型的是要非常注意用哪种方式的。对于Object对象引用类型的一直都说2种方式完全没有区别。
　　Object对象的Byval和Byref参数真的没有区别吗？
　　对于操作的这个Object对象来说，可以认为是没有区别，但是传递过程和其他数据类型的参数传递是一样的，遵守的规则并没有改变。ByVal参数传递的时候，会在内存中另外复制一份，函数操作这个副本和传递之前的那个变量已经没有了任何关系；Byref会把参数的内存地址传递给函数，函数接收到这个是通过内存地址来读取或者改写的，操作的就是原来的变量。
　　对于Object对象，其实我们传递的只是他的指针，也就是VarPtr得到的那个数字，是指向Object所在内存的地址。
　　可以理解为参数其实就是一个LongPtr类型，所以你是复制一份这个LongPtr类型的数字传递，还是把这个LongPtr类型所在的内存地址传递给函数，对于Object这个对象来说，是没有区别的。它最终都要通过这个数字所代表的内存地址找到Object对象。
　　SubTestObject（）DimrngAsRangeSetrngRange（A1）DimVarPtr中保存的数据AsLongCopyMemoryVarPtr（VarPtr中保存的数据），VarPtr（rng），4PrintfVarPtr（rng）x0x，ObjPtr（rng）0xx，VarPtr中保存的数据0xx，VarPtr（rng），ObjPtr（rng），VarPtr中保存的数据TestObjectByValrngTestObjectByValByRefrngEndSubFunctionTestObjectByVal（ByValrngAsRange）DimVarPtr中保存的数据AsLongCopyMemoryVarPtr（VarPtr中保存的数据），VarPtr（rng），4PrintfByVal：VarPtr（rng）x0x，ObjPtr（rng）0xx，VarPtr中保存的数据0xx，VarPtr（rng），ObjPtr（rng），VarPtr中保存的数据EndFunctionFunctionTestObjectByValByRef（ByRefrngAsRange）DimVarPtr中保存的数据AsLongCopyMemoryVarPtr（VarPtr中保存的数据），VarPtr（rng），4PrintfByRef：VarPtr（rng）x0x，ObjPtr（rng）0xx，VarPtr中保存的数据0xx，VarPtr（rng），ObjPtr（rng），VarPtr中保存的数据EndFunction输出：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的那个地址。