VBA命令及语法列表之字典Dictionaries相关

【分享成果，随喜正能量】真正的修佛之人。首先，得明白自己的来处和归宿，懂得敬畏自己的生命和他人的生命，尽其所能释放善意。学会悲天悯人，渡人的同时渡己，始终走在止于至善的路上。真正的慈悲为怀，并不一定只是钱财的救济，有的时候，一个善举，也是一种慈悲。。

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA命令及语法列表之字典Dictionaries相关

第二章 EXCEL VBA命令和语法列表

11 字典Dictionaries

Description

描述

VBA Code

Required Reference

所需引用

Tools > References > Microsoft Scripting Runtime

Create

创建

Dim dict As New Scripting.Dictionary

dict.Add “”

dict.Add “”

Create From Excel

从 Excel 创建

Dim dict As New Scripting.Dictionary

Dim cell As Range

Dim key As Integer

For Each cell In Range(“A1:A10”)

key = key + 1

dict.Add key, cell.value

Next cell

Create

创建2

Set mydic = CreateObject("scripting.dictionary")

Add Item

添加项目

dict.Add “Key”, “Value”

Change Value

改变值

dict(“Key”) = “Value”

Get Value

获得值

MsgBox dict(“Key”)

Check For Value

检查值

If dict.Exists(“Key”) Then

MsgBox “Exists”

End If

Remove Item

除去项目

dict.Remove (“Key”)

Remove All Items

dict.RemoveAll

Loop Through Items

循环遍历项目

Dim key As Variant

For Each key In dict.Keys

MsgBox key, dict(key)

Next key

Loop Through Items

循环遍历项目2

For Each key In mydic.Keys

‘Cells(i, 1).Resize(1, 3) = Split(key, "|")

Cells(i, 1).Value = key

Cells(i, 4).Value = mydic(key)

i = i + 1

Next

Count Items

计数项目

dict.Count

Make Key Case Sensitive

使关键大小写敏感

dict.CompareMode = vbBinaryCompare

Make Key Case Insensitive

使关键大小写不敏感

dict.CompareMode = vbTextCompare

【分享成果，随喜正能量】我2多年的VBA实践经验，全部浓缩在下面的各个教程中：