当前位置: YIQ网 游戏生活 数码 Excel如何在VBA使用字典Dictionary对象通用代码

软件 中国天气通专业版最新版 全程云手机版 商旅e路通官方版 波奇库洛app 贝乐虎动画屋软件 南航e家苹果app官方版

游戏 100天扫除僵尸手机版 浴火银河联盟破解版 亡灵塔防内购破解版 异常2官方手游 正统三国单机破解版 龙骑帝国单机破解版

Excel如何在VBA使用字典Dictionary对象通用代码

更新时间:2023-01-11 17:43:13 来源:YIQ网

字典Dictionary对象是一个非常强大的辅助对象,利用该对象可以实现相关的提取的不重复值的任何案例。本文将简要介绍在VBA中使用字典Dictionary对象的通......

字典Dictionary对象是一个非常强大的辅助对象,利用该对象可以实现相关的提取的不重复值的任何案例。本文将简要介绍在VBA中使用字典Dictionary对象的通用代码。

1、新建一个空白工作簿,在工作表界面按下组合快捷键 Alt+F11 或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击 查看代码 进入VBA编辑环境,如下图所示:

2、在 代码窗口 中复制粘贴以下代码:

Sub Dic()

'定义字典对象变量

Dim oDic As Object

'创建字典对象

Set oDic = CreateObject(Scripting.Dictionary)

Dim arrKey

Dim arrItem

With oDic

'添加键和项目(key,item),其中键不能重复

.Add 1, a

.Add 2, b

' 判断是否存在某个键

MsgBox .Exists(2)

'把键2的项目修改为d

.Item(2) = d

'返回键的数组

arrKey = .keys

'返回项目的数组

arrItem = .items

'清空字典

.RemoveAll

End With

'释放字典对象,清空内存

Set oDic = Nothing

End Sub

如下图所示:

3、以上代码是在VBA中使用字典对象的通用代码,任何具体的案例都可以在这个代码的基础上进行修改,建议收藏保存,避免每次使用字典对象时需要重复输入以上代码。

本文标题:Excel如何在VBA使用字典Dictionary对象通用代码
本文永久链接:https://www.yiq.com/shenghuo3801460.html
the end
声明:YIQ网稿件来源主要为网站原创、用户投稿、网络资源整理等。如果相关权益人认为本文侵犯您的权益,请备好权益证明、身份证明,及时联系QQ 1926491587 我们将会在48小时内给文章处理!

数码列表

网站介绍 | 版权声明 | 联系我们 | 网站地图 | 违法和不良信息举报中心

作品版权归作者所有,如果侵犯了您的版权,请联系我们,本站将在3个工作日内删除

健康游戏忠告:抵制不良游戏,拒绝盗版游戏。注意自我保护,谨防受骗上当。适度游戏益脑,沉迷游戏伤身。合理安排时间,享受健康生活。

邮箱:电话: