[已解决]还是那个查询问题

hytsky

Private Sub UserForm_Initialize()
Dim X As Integer
X = Sheets("产量").Range("A65536").End(xlUp).Row
If X < 3 Then Exit Sub
ComboBox4.List = ADD_COMB_ARR(Range("A3:A" & X))
ComboBox5.List = ADD_COMB_ARR(Range("C3:C" & X))
ComboBox6.List = ADD_COMB_ARR(Range("D3:D" & X))
ComboBox7.List = ADD_COMB_ARR(Range("E3:E" & X))
ComboBox8.List = ADD_COMB_ARR(Range("F3:F" & X))
ComboBox9.List = ADD_COMB_ARR(Range("G3:G" & X))
End Sub
Function ADD_COMB_ARR(Target As Range) '自定义函数 得到不重复内容（数据单元格区域）
Dim Ran As Range
Dim D As New Dictionary
For Each Ran In Target
    D(Ran.Text) = ""
Next
ADD_COMB_ARR = IIf(D.Count > 0, D.Keys, Array(""))
End Function
请问为什么我用这个代码会提示Dim D As New Dictionary用户定义类型未定义,该如何解决

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2011-11-13 09:54

创建字典的两个方法
1 引用 c:\windows\system32\scrrun.dll 然后 dim d as new Dictionary
2 Set d = CreateObject("Scripting.Dictionary")

跳转到最佳答案楼层

青城山苦丁茶

创建字典的两个方法
1 引用 c:\windows\system32\scrrun.dll 然后 dim d as new Dictionary
2 Set d = CreateObject("Scripting.Dictionary")

hytsky

青城山苦丁茶 发表于 2011-11-13 09:54
创建字典的两个方法
1 引用 c:\windows\system32\scrrun.dll 然后 dim d as new Dictionary
2 Set d = Cr ...

谢谢,但是我不知道第一种方法该怎么引用,能否在讲得详细些

zjdh

总结得好！

青城山苦丁茶

hytsky 发表于 2011-11-13 10:04
谢谢,但是我不知道第一种方法该怎么引用,能否在讲得详细些

mxg825

使用字典时，必须引用 microsoft scripting runtime

hytsky

青城山苦丁茶 发表于 2011-11-13 09:54
创建字典的两个方法
1 引用 c:\windows\system32\scrrun.dll 然后 dim d as new Dictionary
2 Set d = Cr ...

版主帮我看下这个问题,谢谢http://www.excelpx.com/forum.php?mod=viewthread&tid=207840&extra=