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

snipper_008

膜拜，学习

kkk2k6

：）蓝老师你好，今天初次使用“drop down”下拉框控件，可是无法通过vba语句去读取如text、list、item等类似数值，简单地说，就是无法控制、使用这个控件，能介绍一下这个控件的一些常用属性和方法？谢谢！
关于使用“drop down”下拉框控件，没能在帮助和网上能查到相关的资料及实例。
另外还想求教，ComboBox.控件如何能画在Chart图表页面上？因为在Chart图表页面上时，控件箱的ComboBox图标文件是没有激活的，无法选中并插入，用add方法提示为不能插入，这是要去删除所有的.exd文件才能使用？

hhjjpp

明天继续！

hhjjpp

蓝桥玄霜 发表于 2010-10-18 12:48
实例1  普通常见的求不重复值问题
一、问题的提出：
表格中人员有很多是重复的，要求编写一段代码，把重 ...

看了版主的代码，原以为字典不能直接给单元格区域赋值，所以才把key和item分别赋给数组，然后再把数组赋值给单元格区域
但没想到，在2楼实例1附件中增加把字典直接赋值给单元格区域的测试代码：
[f2].Resize(d.Count, 1) = Application.Transpose(d.keys)
居然大获成功！

谢谢指教！！

hhjjpp

其实开始就没讲透多item的情况，真感到别有洞天，10-20楼提及；items方法实际包含key在内，这是不是与前期绑定无关？不仅是后期绑定，t=d.items（实例5）都会得到那种怪气的、以key值为标识值的一维数组（一维之下有一维的二级数组）？
看过的其它字典贴也没有认真地提到这一点！

hhjjpp

132楼-136楼版主有解释，所以实例5那种转置二次并非是吃饱了撑着的搞法！

hhjjpp

141楼所提的多item实例，还是被版主和大侠曲解了，我想还是得用转置两次赋值到2列单元格

1. Sub 练习1()
   
2. '
   
3. Dim d, t
   
4.    Set d = CreateObject("Scripting.Dictionary")
   
5.    d("a") = Array("Athens", "a1")
   
6.   d("b") = Array("Belgrade", "b1")
   
7.   d("c") = Array("Cairo", "c1")
   
8.    t = d.Items
   
9.    [c1].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(t))
   
10. 
    
11. End Sub
    

复制代码

hhjjpp

明白了，这个多item与前期绑定或后期绑定完全无关
实例5，又把key值以一项item属性也添加到字典当中去了，所以resize中参数是4
但是add方法无法直接加多item，所以141楼赋值方法是错误的

hhjjpp

同时发现实例5的Set d(Cells(i, 1).value) = Range(Cells(i, 1), Cells(i, 4))
.value或&""也不是必须的

hhjjpp

1. Sub 练习1()
   
2. '
   
3. Dim d, t
   
4.    Set d = CreateObject("Scripting.Dictionary")
   
5.    d.Add "a", Array("Athens", "a1")
   
6.    d.Add "b", Array("Belgrade", "b1")
   
7.    d.Add "c", Array("Cairo", "c1")
   
8.    t = d.Items
   
9.    [c1].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(t))
   
10. 
    
11. End Sub
    

复制代码

如果要用add方法就这样用！