核心内容摘要
17c134路nom：解锁数字时代的未知疆域
VBA中的普通数据类型如Integer、String是值类型赋值时会创建副本。
而对象变量是引用类型赋值时传递的是引用。
理解并善用这一特性是编写高效、模块化VBA代码的关键那么要如何理解这一特性呢接下来给大家举几个例子示例1一个最直接、也是平时常用却从未正视过的例子让两个Range对象变量rng1和rng2都指向Sheet1工作表中的C2单元格。
rng1变量修改C2单元格内容rng2变量修改C2单元格显示样式如字体加粗、改变单元格底色等Dim rng1 As RangeDim rng2 As RangeSet rng1 Worksheets(Sheet
.Range(C
Set rng2 rng1 rng1 修改单元格内容rng
Value Rng1变量 rng2 修改单元格的格式rng
Font.Bold Truerng
Interior.Color vbYellow执行以上代码后可以看到C2单元格变化其原理rng1和rng2都指向同一个Range对象。
因此无论是通过rng1还是rng2来改变单元格的值或格式效果都是相同的因为它们操作的是内存中的同一个对象实例友情提示给对象变量赋值时必须使用Set语句如Set rng2 rng1。
如果省略SetVBA会尝试进行值赋值从而导致“运行时错误91对象变量或With块变量未设置”示例2当需要将一个对象如数据字典传递给另一个过程或函数进行处理时除了通过之前讲过的参数传递外还可以使用Set语句直接赋值给另一个对象变量使多个变量引用同一个对象实例示例代码如下模块最上方定义全局对象变量globalDict主程序MainPro创建字典对象并向字典中添加了一个元素Key1对应的内容是“Value1”子程序SubProcess通过Set语句让变量UpdateDict指向字典并修改字典内数据Public globalDict As ObjectSub MainPro()Set globalDict CreateObject(Scripting.Dictionary) 向字典添加数据globalDict.Add Key1, Value1Debug.Print MainPro中Key1: globalDict(Key
调用子过程Call SubProcessSet globalDict NothingEnd SubSub SubProcess()Dim UpdateDict As ObjectSet UpdateDict globalDictIf Not UpdateDict Is Nothing Then 修改字典内容UpdateDict(Key
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提供一些机制让这些值类型的数据也能实现类似“引用”的效果呢感兴趣的小伙伴可以持续关注等待后续的分享哦本公众号一直在不间断地分享免费的编程案例和实用技巧。
无论您是用来提升自动化办公效率还是想提升自我请关注我的公众号“努力鸭是黑色的”解锁更多的编程知识