我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部《VBA即用型代码手册(汉英)》的创作,这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是: VBA命令及语法列表之字典基本代码
第二章 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实践经验,全部浓缩在下面的各个教程中:
领取专属 10元无门槛券
私享最新 技术干货