vba字典的高级用法

VBA字典用法小记

十分鄙视那些将蓝桥玄霜大大的成果上传后还要收取下载券的做法，本来想直接上传一份大大的原版，可是百度文档提示已经有重复的文档，没办法，只好自己修改一下，在上传，想无私奉献的大大致敬！！！！！！！！！！

常用语句：

Dim d

Set d = CreateObject(\d.Add \ d.Add \d.Add \代码详解

1、Dim d ：创建变量，也称为声明变量。变量d声明为可变型数据类型(Variant)，d后面没有写数据类型，默认就是可变型数据类型(Variant)。也有写成Dim d As Object的，声明为对象。

2、Set d = CreateObject(\：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\\windows\\system32\\scrrun.dll了。

3、d.Add \：添加一关键字”a”和对应于它的项”Athens”。 4、d.Add \“Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。 5、d.Add \“Cairo”：添加一关键字”c”和对应于它的项”Cairo”。

Exi

VBA字典用法小记

十分鄙视那些将蓝桥玄霜大大的成果上传后还要收取下载券的做法，本来想直接上传一份大大的原版，可是百度文档提示已经有重复的文档，没办法，只好自己修改一下，在上传，想无私奉献的大大致敬！！！！！！！！！！

常用语句：

Dim d

Set d = CreateObject(\d.Add \ d.Add \d.Add \代码详解

1、Dim d ：创建变量，也称为声明变量。变量d声明为可变型数据类型(Variant)，d后面没有写数据类型，默认就是可变型数据类型(Variant)。也有写成Dim d As Object的，声明为对象。

2、Set d = CreateObject(\：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\\windows\\system32\\scrrun.dll了。

3、d.Add \：添加一关键字”a”和对应于它的项”Athens”。 4、d.Add \“Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。 5、d.Add \“Cairo”：添加一关键字”c”和对应于它的项”Cairo”。

Exi

常见字典用法集锦及代码详解

前言

凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。

凡是上过EH论坛的想学习VBA里面字典用法的，几乎都看过研究过

northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触

到和学习到字典的，在此，对他们表示深深的谢意，同时也对很多把字典用得出神入化的高手们致敬，从他们那里我们也学到了很多，也得到了提高。

字典对象只有4个属性和6个方法，相对其它的对象要简洁得多，而且容易理解使用方便，功能强大，运行速度非常快，效率极高。深受大家的喜爱。

本文希望通过对一些字典应用的典型实例的代码的详细解释来给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料，希望大家能喜欢。

给代码注释估计是大家都怕做的，因为往往是出力不讨好的，稍不留神或者自己确实理解得不对，还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方，请大家跟帖时指正批评，及时改正。

字典的简介

字典（Dictionary）对象是微软Windo

Excel VBA中for循环语句的用法

听语音

? ? ? ? ? ? ?

|

浏览：21306 |

更新：2015-05-30 16:57 |

标签：excel

? 1

? 2

? 3

? 4

? 5

? 6

分步阅读

for循环语句在VBA中扮演着比较重要的角色，为我们批量的处理表格数据提供了一个很好的途径，下面小编根据自己的一些亲身经验为大家分享一下Excel VBA中for循环语句的两个用法吧！

工具/原料 ? ?

office Excel软件 具备一定的VB基础更好

方法/步骤 1. 1

我们常用的for循环语句有两种，一个是for ……next结构；一个是For each……next结构。这两种结构主要都是针对多数据循环遍历的时候用到的。那么下面我将分别来介绍一下两种循环结构的具体用法，首先还是要打开VBA编辑器

2. 2

1.for……next结构 这个结构一般是这样的：

for i=初始值 to 结束值 step 步长值 ……

next

具体解释一下，初始值指的是循环开始的值，结束值指的是循环结束的值，实质上就是i值得一个判断，如果i值在起始值和结束值之间，那么进入循环语句，然后i值每运行到next语句后会自

VBA中DIR函数用法讲解

1、dir代码演示

先上一段代码，作用是获取某个文件夹下子文件夹和文件的名称 没加注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show

str1 = a.SelectedItems(1)

str2 = Dir(str1 & IIf(Right(str1, 1) = \ Do While Len(str2) <> 0

If str2 <> \ i = i + 1 Cells(i, 1) = str2

End if

str2 = Dir Loop End Sub

加了注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.Fil

VBA中DIR函数用法讲解

1、dir代码演示

先上一段代码，作用是获取某个文件夹下子文件夹和文件的名称 没加注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show

str1 = a.SelectedItems(1)

str2 = Dir(str1 & IIf(Right(str1, 1) = \ Do While Len(str2) <> 0

If str2 <> \ i = i + 1 Cells(i, 1) = str2

End if

str2 = Dir Loop End Sub

加了注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.Fil

VBA编程技巧 之 字典对象使用经验谈（更新至四之一） 字典对象使用经验谈 目录

前言_______________________________________01 楼 一、字典的基本功能___________________________01 楼 二、The Hardcore of Dictionary__________________02 楼 二之一、多层字典对象应用案例分析 1 _____________16 楼 二之二、多层字典对象应用案例分析 2 _____________30 楼 三之一、动态的树形数据结构的构建________________35 楼 三之二、动态树形结构的遍历____________________54 楼 三之三、送你把漂亮的解牛小刀___________________64 楼 三之四、上帝的归上帝，凯撒的归凯撒______________66 楼 四之一、利用字典动态的构建自定义数据类型___________68 楼 前言

相信大家对字典对象已经是耳熟能详了。现在帮人写个代码如果不来个字典，出门都不好意思和人打招呼。EH里也有大量的帖子详尽的介绍了字典对象的功能和各种使用方法，我大致翻过这些帖子

目 录

前言 .............................................................................................. 6 致谢 .............................................................................................. 7 第1章 介绍 ............................................................................... 8

1.1 金融学概览 ........................................................................................................................ 8

1.2 收益分布假设 ...........................................................................................

VBA编程规则

1、 在自定义函数前加上Private关键字进行声明，该函数将不会出现在Excel的“粘贴函数”

对话框中，但仍然可以在公式中运用它们。如果是专门为其他的VBA过程开发的自定

义函数，则应该使用Private关键字进行声明。

2、 通常，用户自定义函数后，在“粘贴函数”对话框中将会出现在“用户定义”类别中。如果希望自定义函数出现在其它的类别中，必须编写和执行VBA代码为自定 义函数指定类别。如运行Application.MacroOptions Macro:=”SumPro”,Category:=4语句后，将自定义的SumPro函数指定给“统计函数”类别。

3、与Sub过程不同，自 定义函数Function过程并不出现在宏对话框中；当执行VBE编辑器中的“运行——运行子过程/用户窗体”命令时，如果光标位于某Function过 程中，就不能获取宏对话框并从中选择要运行的宏。因此，在开发过程的时候，必须采取其它方式对自定义函数进行测试，可以设置调用该函数的过程；如果该函数 是用在工作表公式中的，可以在工作表中输入简单的公式进行测试。

4、如果在公式中使用了自定义函数，但返回值“VALUE！”，表明函数中有错误。错误的原因可能是代码中的

一、形容词、副词的比较级和最高级的构成规则

1.一般单音节词和少数以-er，-ow结尾的双音节词，比较级在后面加-er，最高级在后面加-est;

(1)单音节词

如：small→smaller→smallest short→shorter→shortest

tall→taller→tallest great→greater→greatest

(2)双音节词

如：clever→cleverer→cleverest narrow→narrower→narrowest

2.以不发音e结尾的单音节词，比较在原级后加-r，最高级在原级后加-st;

如：large→larger→largest nice→nicer→nicest able→abler→ablest

3.在重读闭音节(即：辅音+元音+辅音)中，先双写末尾的辅音字母，比较级加-er，最高级加-est;

如：big→bigger→biggest hot→hotter→hottest fat→fatter→fattest

4.以“辅音字母+y”结尾的双音节词， 把y改为i，比较级加-er，最高级加-est;

如：easy→easier→easiest heavy→heavier→heaviest

busy→busier→