分享学习心得
记录生活点滴

Excel编程VBA中的字典用法CreateObject("Scripting.Dictionary")

本文于 2020-07-31 05:34 更新,已是最新版。

一、定义字典

Set d = CreateObject(“Scripting.Dictionary”)

二、呼之即来,挥之即去

d(“张三“)=1 ‘相当于给字典赋值,张三过来(没有就生成)拿个1站一边去
d(“李四”)=2 ‘相当于给字典赋值,李四过来(没有就生成)拿个2站一边去
d(“李四”)=3 ‘相当于改变值,字典中已经有李四了,李四跑过来,丢下2换个3站一边去
注:这时字典中有两个人的存在,张三=1 和 李四=3,相当于实现了去重复的功能

s=d(“张三”) ‘s=1 即叫了声张三,张三就告诉你他拿的是1
s=d(“李四”) ‘s=3 即叫了声李四,李四就告诉你他拿的是3
s=d(“麻子”) ‘s=”” 没有找到麻子怎么办呢,字典里就自动生成一个麻子d(“麻子”) =“”,告诉你他手上是空的
注:这时字典中有三个人的存在,张三=1 ; 李四=3;麻子=“”

三、将字典里的东西变成数组

arr= d.Keys ‘把名字的集合按先来后到的原则放到一维数组里 arr(0)=“张三” ; arr(1)=“李四” ; arr(2)=“麻子”
arr1=d.Items ‘把名字对应的值的集合按先来后到的原则放到一维数组里 arr1(0)=“1” ; arr1(1)=“3” ; arr1(2)=“”

四、查找字典中有没有这个人

s=d.Exists(“张三”) ‘s=True 有的
s=d.Exists(“http://www.excelba.com”) ‘s=False 没有

五、清空数组

d.RemoveAll

赞(0) 打赏
转载请注明出处:平平无奇的博客 ppwq.net » Excel编程VBA中的字典用法CreateObject("Scripting.Dictionary")

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

平平无奇的博客 ppwq.net

联系我们我要留言

觉得文章有用就打赏一下文章作者吧

非常感谢你的打赏,我们将继续给力更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

微信扫一扫打赏