【Excel VBA编程】共享对象状态——多个变量引用同一对象
VBA中的普通数据类型（如Integer、String）是值类型，赋值时会创建副本。而对象变量是引用类型，赋值时传递的是引用。理解并善用这一特性，是编写高效、模块化VBA代码的关键
那么要如何理解这一特性呢？接下来给大家举几个例子
示例1
一个最直接、也是平时常用却从未正视过的例子：让两个Range对象变量rng1和rng2都指向Sheet1工作表中的C2单元格。rng1变量修改C2单元格内容，rng2变量修改C2单元格显示样式（如字体加粗、改变单元格底色等）
Dim rng1 As RangeDim rng2 As RangeSet rng1 = Worksheets("Sheet1").Range("C2")Set rng2 = rng1' rng1 修改单元格内容rng1.Value = "Rng1变量"' rng2 修改单元格的格式rng2.Font.Bold = Truerng2.Interior.Color = vbYellow
执行以上代码后，可以看到C2单元格变化
其原理：rng1和rng2都指向同一个Range对象。因此，无论是通过rng1还是rng2来改变单元格的值或格式，效果都是相同的，因为它们操作的是内存中的同一个对象实例
友情提示：给对象变量赋值时，必须使用Set语句，如Set rng2 = rng1。如果省略Set，VBA会尝试进行值赋值，从而导致“运行时错误91：对象变量或With块变量未设置”
示例2
当需要将一个对象（如数据字典）传递给另一个过程或函数进行处理时，除了通过之前讲过的参数传递外，还可以使用Set语句直接赋值给另一个对象变量，使多个变量引用同一个对象实例
示例代码如下：
模块最上方定义全局对象变量globalDict
主程序MainPro创建字典对象，并向字典中添加了一个元素Key1对应的内容是“Value1”
子程序SubProcess通过Set语句让变量UpdateDict指向字典并修改字典内数据
Public globalDict As ObjectSub MainPro()Set globalDict = CreateObject("Scripting.Dictionary")' 向字典添加数据globalDict.Add "Key1", "Value1"Debug.Print "MainPro中Key1:" & globalDict("Key1")' 调用子过程Call SubProcessSet globalDict = NothingEnd SubSub SubProcess()Dim UpdateDict As ObjectSet UpdateDict = globalDictIf Not UpdateDict Is Nothing Then' 修改字典内容UpdateDict("Key1") = "Updated Value"' 遍历字典Dim key As VariantFor Each key In UpdateDict.KeysDebug.Print "SubProcess中" & key & ": " & UpdateDict(key)Next keyEnd IfSet UpdateDict = NothingEnd Sub
其中，全局变量globalDict指向一个字典对象。在子过程中通过`Set UpdateDict= globalDict`语句，让变量UpdateDict也指向了同一个字典对象。对UpdateDict的任何修改都会直接作用于该字典
此时，可能有朋友就疑惑了，既然都定义了全局变量，全部使用全局变量不行吗？还要再通过set语句让多个临时变量引用，有那个必要吗？
其实，在VBA编程中，虽然直接使用全局变量确实是一种简洁的方法，但通过Set语句让多个变量引用同一个对象仍然具有重要的实用价值，这并非多此一举
例如，当我们阅读代码时，看到局部变量名，如UpdateDict，能立即理解该变量在当前过程中的用途，而不需要追溯全局变量的定义。这种“自文档化”的代码风格显著提高了可读性。当然好处不仅仅是这一条，还体现在代码维护、复用、调试等方面，随着代码量输出，相信大家有更深刻地体会
结束语
以上提到的都是对象变量引用，那么，VBA有没有为普通数据类型（如 Integer、String）提供一些机制，让这些值类型的数据也能实现类似“引用”的效果呢？
感兴趣的小伙伴可以持续关注，等待后续的分享哦
本公众号一直在不间断地分享免费的编程案例和实用技巧。无论您是用来提升自动化办公效率还是想提升自我，请关注我的公众号“努力鸭是黑色的”，解锁更多的编程知识