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

VBA中的字典(一)

cac55 2024-11-20 12:53 18 浏览 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

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

相关推荐

正点原子开拓者FPGA开发板资料连载第四十章 SD卡图片显示实验

1）实验平台：正点原子开拓者FPGA开发板2）摘自《开拓者FPGA开发指南》关注官方微信号公众号，获取更多资料：正点原子3）全套实验源码+手册+视频下载地址：http://www.openedv.c...

东芝存储改名为铠侠了，铠侠microSD卡128GB全网首测

作为一个数码爱好者，平时总爱把玩各种科技数码产品，最近又迷上了口袋云台相机，大疆OsmoPocket、飞宇口袋相机、SnoppaVmate口袋相机什么的，不过这类产品由于设计的机身体积很小（毕竟为...

SD存储卡卡面上奇奇怪怪的图标，你知道几个?

现在对高像素照片、连拍、4K甚至8K的需求越来越多，对存储卡的传输速度、容量等，要求也越来越多了。但是，看到SD存储卡卡面上奇奇怪怪的图标，让人非常迷惑。这篇文章让你简单认识这些图标和奇奇怪怪的数字。...

拍摄4K视频上选!铠侠 EXCERIA PLUS microSD卡

大家好，我是波导终结者。今天跟大家分享的是铠侠的EXCERIAPLUS极至光速microSDXCUHS-1存储卡，名字有点长，但是不用担心，我会帮大家梳理好存储卡的选购建议。有不少刚入门的朋友...

高速稳定，一卡多用:铠侠极至光速microSD存储卡评测

Hello，大家好，我是小胖子。半个月前收到了KIOXIA铠侠寄来的一张256GB的TF卡，用了大半个月，让我们看看这款产品表现如何吧。其实很多人并不太了解铠侠，问我铠侠是什么品牌，好不好。其实，东芝...

读速205MB/s、V30规格，雷克沙SILVER系列存储卡再添新成员

IT之家6月19日消息，雷克沙今日推出3款SILVER系列SD/microSD存储卡新品，支持4K60fps录像。据介绍，该系列存储卡均符合V30标准，其中micr...

相机、无人机拍视频，选择SD存储卡有什么需要知道的?

本文章不涉及产品推荐导购行为，致力于给到小白带来基础知识。相机一般使用SD卡，无人机一般使用microSD卡（也叫TF卡），使用的标准和图标标识是一样的。相机、无人机拍视频，选择SD存储卡有什么需要知...

PNY推出适用Switch 2的microSD Express卡，读取速度高达890MB/s

任天堂Switch2开始预订，其比前代产品变得更加昂贵，各种配件的价格都高于预期，这也包括转向microSDExpress存储。此时，PNY推出了新款microSDExpress闪存卡。新款mi...

SD卡迎来25周年:全球售出120亿张，容量翻50万倍

IT之家5月21日消息，科技媒体betanews今天（5月21日）发布博文，报道称SD卡迎来了25周年的生日。自2000年首款SD存储卡问世以来，已走过25个年头...

微单相机买一款什么样的SD卡才够用?写入速度更为关键

最近，评价君朋友发现自己的卡拍摄视频时候总断流，于是感觉写入速度应该是不够的，打算换卡，评价君正好跟他说道说道。目前的SD存储卡，很多只标注读取速度，比如95MB/s，80MB/s等等，而没有写写入速...

金士顿Canvas Go!Plus 系列存储卡评测

前言2020年，金士顿推出了CanvasGo!Plus系列存储卡，凭借其优秀的读写速度和稳定性获得了广大用户的认可。时隔5年，金士顿推出了其全新升级产品:SDG4/SDCG4，可选容量覆盖64GB...

TF卡速度等级|MK米客方德（tf卡速度等级图）

TF卡（TransFlash卡，又称MicroSD卡）是一种常见的便携式存储媒体，广泛用于智能手机、相机、平板电脑等设备中。TF卡的性能通常由速度等级来衡量，这些等级反映了TF卡的数据传输速度。拓优星...

关于SD卡，看这张表就够了（sd卡的作用）

这里是溢图科技（原“相机笔记”）。这两天有不少存储产品促销，随之而来的就是关于SD卡的一些提问。文章以前已经写过很多了，这里主要给大家看一张表格：上面就是SD卡协会官方制作的“族谱”，明确给出了不同版...

轻量化储存的首选——凯侠极致光速256G microSD存储卡实测

对于摄影师而言，我们经常会接触到相关存储设备，像照片拍摄中给相机安装的SD卡，视频录制中外录高规格画面的SSD等，都属于专业的存储介质，被应用于商业拍摄、电影级别拍摄之中。而针对生活中我们日常用于拍摄...

首发1569元，读取速度可达250MB/s，闪迪推出最新2TB至尊超极速存储卡

近日，闪迪（SanDisk）正式发布了其最新的2TB至尊超极速microSDXCUHS-I存储卡。据悉，这款存储卡的读取速度可达250MB/s，写入速度则达到150MB/s。这意味着用户在处理高分辨...

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

一周热门
最近发表
标签列表