欧易

欧易(OKX)

国内用户最喜爱的合约交易所

火币

火币(HTX )

全球知名的比特币交易所

币安

币安(Binance)

全球用户最多的交易所

字典(Dictionary),在VBA语言中的应用

2023-02-17 15:41:50 748

摘要:大家好,我们今日继续讲解VBA代码解决方案的第126讲内容:在VBA中字典的应用。也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的。字典,其实就是一些"键-值"对。使用起来非常方便,有类似于微型数据库的作用,可...

大家好,我们今日继续讲解VBA代码解决方案的第126讲内容:在VBA中字典的应用。也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的。

字典,其实就是一些"键-值"对。使用起来非常方便,有类似于微型数据库的作用,可用于临时保存一些数据信息。

一 VBA中创建字典:用的是WSH引用。

Dim myd As Object

Set myd = CreateObject("Scripting.Dictionary")

二 字典的方法,有Add、Exists、Keys、Items、Remove、RemoveAll,六个方法。

① Add 用于添加内容到字典中。如myd.Add key, item 第一个参数为键,第二个参数为键对应的值

② Exists用于判断指定的关键词是否存在于字典(的键)中。如myd.Exists(key)。如果存在,返回True,否则返回False。通常会在向字典中添加条目的时候使用,即先判断字典中是否已存在这个记录,如果不存在则新增,否则进行其它的操作。

③ Keys获取字典所有的键,返回类型是数组。如myd.Keys()

④ Items获取字典所有的值,返回类型是数组。如myd.Items()

⑤ Remove从字典中移除一个条目,是通过键来指定的。myd.Remove(key)如果指定的键不存在,会发生错误。

⑥ RemoveAll 清空字典。

三 字典的属性 有Count、Key、Item、ConpareMode四种属性

① Count用于统计字典中键-值对的数量。也可以简单理解为统计字典中键的个数;

② Key用于更改字典中已有的键。如:myd.Key("oapp") = "Orange" 如果指定的键不存在,则会产生错误。

③Item用于写入或读取字典中指定键的值,如果指定的键不存在,则会新增。如.Item("oapp") = 10

下面以一个实例来说明字典的应用:在下图的A列有不同的键,要在对应的键中写入键值,然后把C列对应的键去掉,同时增加一个键,最后在E,F列写出最后的键和键值:

代码如下:

Sub mynzdd()

Dim dic As Object

Sheets("sheet4").Select

Set dic = CreateObject("Scripting.Dictionary") "引用字典

Dim arr(1 To 100), i As Long "建立一个数组用来给键赋值

For i = 1 To 100

arr(i) = i + 99

Next i

i = 1

Do While Cells(i, 1) <> ""

dic(Cells(i, "a").Value) = arr(i) "写入键和键值,要注意写入的方法

i = i + 1

Loop

i = 1

Do While Cells(i, 3) <> ""

dic.Remove (Cells(i, "c").Value) "移除C列的键值

i = i + 1

Loop

dic.Add arr(100), "234" "增加一个键对应的键是arr(100)即199,键值是234

[e1].Resize(dic.Count, 1) = Application.Transpose(dic.Keys) "转置显示键

[f1].Resize(dic.Count, 1) = Application.Transpose(dic.items) "转置显示键值

End Sub

代码截图:

返回的结果如下:

我们可以看到,重复的键已经自动的去除了,需要删除的键也已经删除了,需要增加的也增加了,非常的简单。

今日内容回向:

1 什么是字典.它的方法和属性有哪些?

2 如何利用字典去重复的数据?

版权声明:本站所有文章皆是来自互联网,如内容侵权可以联系我们( 微信:bisheco )删除!
友情链接
币圈社群欧易官网