【分享成果，随喜正能量】真正的修佛之人。首先，得明白自己的来处和归宿，懂得敬畏自己的生命和他人的生命，尽其所能释放善意。学会悲天悯人，渡人的同时渡己，始终走在止于至善的路上。真正的慈悲为怀，并不一定只是钱财的救济，有的时候，一个善举，也是一种慈悲。。
我给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
【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
