百度360必应搜狗淘宝本站头条
ug5 0软件免费下载右键菜单清理flac文件grub4doss spline
当前位置：网站首页 > 技术文章 > 正文

VBA中的字典(一)

cac55 2024-11-20 12:53 20 浏览 0 评论


一直想写几篇文章来总结一下过去VBA中字典的使用经验。当然这些都是站在前人的肩膀上完成的。字典相对于集合或数组来说，更容易理解和运用。

字典在数据处理中，运行速度是极快的，搭配一些函数来使用，我是认为是相当完美了。我在字典使用中，主要用到以下几点：

  1. 去重
  2. 求和
  3. 计数
  4. 数据匹配

我将会分别用几篇文章来分享一下字典的使用经验。

字典的声明

字典不是VBA内置的类型，VBA中的字典是微软Windows脚本语言中的一个很有用的对象，字典是由具有唯一性的关键字（Key）和它的项（Item）组成的集合，Key相当于字典中的每个字，具有不重复性，Item相当于对字典中每个字对应的解释。

因为字典不是VBA内置的类型，它是Windows脚本语言的类型，所以声明字典的方法就和VBA内置对象不同，它有两种方法声明，一种是前期绑定声明，一种是后期绑定声明。前期声明的话，我们需要去引用对应的scrrun.dll文件，相对来说比较麻烦。

因此，在VBA中，我们大都使用后期声明。如下：

Dim d As Object
Set d = CreateObject("scripting.dictionary") 	'建立字典

字典如何赋值

字典赋值的时候，有三个参数是必需的。如下：

语法：

[DictionaryObject].Add([Key], [Item])

参数：

参数

说明

[DictionaryObject]

必需的。字典的名称

[Key]

必需的。在 Dictionary 中引用 Item 的数据。

[Item]

必需的。设置或返回 Dictionary 中 Item 的值

如下面的例子：

Dim dic As Object, i As Long
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To 100
dic.Add i, ""
Next

我们设置字典的名称为dic，并将1到100分别赋值给了Key。但每个对应的Item均为空。

字典对象的方法

字典有6个方法，如下表：

方法

说明

Add(key,item)

增加键/条目对到 Dictionary

Exists(key)

如果指定的键存在，返回 True，否则返回 False

Items()

返回一个包含 Dictionary 对象中所有条目的数组

Keys()

返回一个包含 Dictionary 对象中所有键的数组

Remove(key)

删除一个指定的键/条目对

RemoveAll()

删除全部键/条目对

上面我们赋值的时候，已经使用add的方法为字典赋值了。

后面我们会通过各种实例对字典中的各种方法进行讲解。因此暂不详述了。

字典的四个属性

属性

说明

CompareMode

设定或返回键的字符串比较模式

Count

只读。返回 Dictionary 里的键/条目对的数量

Item(key)

设定或返回指定的键的条目值

Key(key)

设定键值

下面的代码举例说明字典中 Count 属性的使用方法：

Dim a, d, i 		'创建一些变量

Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athem" 		'添加一些关键字和条目。
d.Add "b", "Belgre"
d.Add "c", "Caire"

a = d.Keys		 '获得关键字

For i = 0 To d.Count -1 		'遍及数组
	Debug.Print a(i)		 '打印关键字
Next

这篇文章我们对字典的一些关键信息进行了梳理，简要的描述了字典的一些操作。后面我们将深入的对字典实际中的各种应用方法逐一的进行说明。

相关推荐

Mac电脑强制删除任何软件方法-含自启动应用

对于打工者来说，进入企业上班使用的电脑大概率是会被监控起来，比如各种流行的数据防泄漏DLP，奇安信天擎，甚至360安全卫士，这些安全软件你想卸载是非常困难的，甚至卸载后它自己又安装回来了，并且还在你不...

Linux基础知识 | 文件与目录大全讲解

1.linux文件权限与目录配置1.文件属性Linux一般将文件可存取的身份分为三个类别，分别是owner/group/others，且三种身份各read/write/execute等权限文...

文件保护不妥协:2025 年 10 款顶级加密工具推荐

数据安全无小事，2025年这10款加密工具凭借独特功能脱颖而出，从个人到企业场景全覆盖，第一款为Ping32，其余为国外英文软件。1.Ping32企业级加密核心工具，支持200+文件格...

省心省力 一个软件搞定系统维护_省心安装在哪里能找到

◆系统类似于我们居住的房间，需要经常打理才能保持清洁、高效。虽然它本身也自带一些清理和优化的工具，但借助于好用的第三方工具来执行这方面的任务，会更让人省心省力。下面笔者就为大家介绍一款集多项功能于一身...

JAVA程序员常用的几个工具类_java程序员一般用什么软件写程序

好的工具做起事来常常事半功倍，下面介绍几个开发中常用到的工具类，收藏一下，也许后面真的会用到。字符串处理：org.apache.commons.lang.StringUtilsisBlank(Char...

手工解决Windows10的若干难题_windows10系统卡顿怎么解决

【电脑报在线】很多朋友已经开始使用Win10，估计还只是测试版本的原因，使用过程中难免会出现一些问题，这里介绍解决一些解决难题的技巧。技巧1：让ProjectSpartan“重归正途”从10074...

System32文件夹千万不能删除，看完这篇你就知道为什么了

C:\Windows\System32目录是Windows操作系统的关键部分，重要的系统文件存储在该目录中。网上的一些恶作剧者可能会告诉你删除它，但你不应该尝试去操作，如果你尝试的话，我们会告诉你会发...

Windows.old 文件夹:系统备份的解析与安全删除指南

Windows.old是Windows系统升级（如Win10升Win11）或重装时，系统自动在C盘创建的备份文件夹，其核心作用是保留旧系统的文件、程序与配置，为“回退旧系统”提供保...

遇到疑难杂症?Windows 10回收站问题巧解决

回收站是Windows10的一个重要组件。然而，我们在使用过程中，可能会遇到一些问题。例如，不论回收站里有没有文件，都显示同一个图标，让人无法判别回收站的空和满的真实情况；没有了像Windows7...

卸载软件怎么彻底删掉?简单几个步骤彻底卸载，电脑小白看过来

日常工作学习生活中，我们需要在安装一些软件程序，但随着软件的更新迭代速度，很多时候我们需要重新下载安装新的程序，这时就需要将旧的一些软件程序进行卸载。但是卸载软件虽然很简单，但是很多小伙伴们表示卸载不...

用不上就删!如何完全卸载OneDrive?

作为Windows10自带的云盘，OneDrive为资料的自动备份和同步提供了方便。然而，从隐私或其他方面考虑，有些人不愿意使用OneDrive。但Windows10本身不提供直接卸载OneDri...

【Linux知识】Linux下快速删除大量文件/文件夹方法

在Linux下，如果需要快速删除大量文件或文件夹，可以使用如下方法：使用rm命令删除文件：可以使用rm命令删除文件，例如：rm-rf/path/to/directory/*这个命令会递...

清理系统不用第三方工具_清理系统垃圾用什么软件

清理优化系统一定要借助于优化工具吗？其实，手动优化系统也没有那么神秘，掌握了方法和技巧，系统清理也是一件简单和随心的事。一方面要为每一个可能产生累赘的文件找到清理的方法，另一方面要寻找能够提高工作效率...

系统小技巧:软件卸载不了?这里办法多

在正常情况下，我们都是通过软件程序组中的卸载图标，或利用控制面板中的“程序和功能”模块来卸载软件的。但有时，我们也会发现利用卸载图标无法卸载软件或者卸载图标干脆丢失找不到了，甚至控制面板中卸载软件的功...

麒麟系统无法删除文件夹_麒麟系统删除文件权限不够

删除文件夹方法例：sudorm-rf文件夹名称。删除文件方法例：sudorm-r文件名包括扩展名。如果没有权限，给文件夹加一下权限再删。加最高权限chmod775文件名加可执行权限...

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表
赣ICP备2023011147号-26