【烟花原创】VBA零基础之第145篇 字典（二十二）

hwc2ycy

四、实战

12．数组中存储字典（二）

这篇还是接上一题，改用字典套字典的写法，相信可能大家易于接受。

上一篇是大数组套小数组，小数组再来套字典。

思路：

直接采用字典套字典的写法。

大字典里关键字是以性别联合点数作为关键字，例如男1，女2。关键字对应的Item里存储字典。嵌套的字典里关键字就是员工姓名，Item就是行号。

剩下的遍历数据，基本上与原来的写法相差无几。

代码：

另外，由于当前的源数据全是用函数随机生成的，所以当代码写入单元格后，函数自动重算，有童鞋可能会纳闷结果怎么就不对了。这个不用担心，只需要手工修改当前工作簿的运算模式即可。

或者用代码来修改 Application.Calculation =xlCalculationManual

关于字典就正式告一段落，更多的精彩需要大家自己多多发掘。另外有个动态二级菜单就不举例了，在单元格中可以利用数据有效性来实现。在窗体中，关于下拉列表联动实现方法也很多，数组，字典，SQL都能实现。相关的例子可以在论坛找找。

更多的关于字典的用法，可以参考蓝桥玄霜版主的这篇贴子：

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

http://www.excelpx.com/thread-145901-1-1.html

ghostjiao

{:1312:}今天的分评完了，没了，明天再来加分 花亲
先搬个小板凳占位

qilinzhishen

占位

yewei113

支持

我的一生141314

支持

tingfeng461002