列表框按钮代码出错啦，各位老师帮忙看下错在哪里了！谢谢！《未解决》

neverking

如题，具体内容见附件，谢谢！

zldccmx

      '撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2009-7-5 下午 08:44:16
Private Sub UserForm_Initialize()
    Dim Col As New Dictionary
    Set Col = New Dictionary
    '*********************************************
    '以上需要引用Microsfot Scripting Runtime工程库
    '否则会出错。当然，你也可以这样
    '*********************************************
    '
    'Dim Col
    'Set Col = CreAteObject("Scripting.dictionAry")
    '
    '*********************************************
    With Sheet1
        Dim rng As Range
        Dim i As Integer
　　　i = Sheet1.[a65536].End(xlUp).Row
        For Each rng In Sheet1.Range("A4:A" & i )
            If Trim(rng) <> "" Then
                Col(rng.Value) = ""
            End If
        Next
        Me.ComboBox1.List = Col.Keys
        Me.ComboBox2.ListIndex = 0
        Set Col = Nothing
        Set arr = Nothing
        Set rng = Nothing
    End With
End Sub



[ 本帖最后由 zldccmx 于 2009-7-5 20:58 编辑 ]

gongzl1981

在 UserForm_Initialize()中有一段是这样的：
   For Each rng In Sheet1.Range("A4:A" & [a65536].End(xlUp).Row)
        If Trim(rng) <> "" Then
            Col.Add rng, key:=CStr(rng)
        End If
    Next
将下面一句改一下：
   For Each rng In Sheet1.Range("A4:A" & [a65536].End(xlUp).Row)
改为 For Each rng In Sheet1.Range("A4:A" &sheet1. [a65536].End(xlUp).Row)

上面改了后，在客户名称的combobox中就可以

zldccmx

修改窗体初始化代码即可＠_@

gongzl1981

另外在
ReDim arr(2 To Col.Count)
    For i = 3 To Col.Count
        arr(i) = Col(i)
    Next
中，不明白为什么要将 arr定义为 arr(2 to col.count) 这样就会少几个客户：
我认为如下:
ReDim arr(1  To Col.Count)
    For i = 1  To Col.Count
        arr(i) = Col(i)
    Next

zldccmx

你在代码中既使用了Collection 又使用了数组来给下拉列表赋值，付出的代价太大了
直接使用字典给下拉列表赋值，是字典的通常用法。

[ 本帖最后由 zldccmx 于 2009-7-5 21:00 编辑 ]

zldccmx

如果坚持用Collection，只需要将
Col.Add rng, key:=CStr(rng)
修改成
col.Add rng.Value

zldccmx

Col.Add rng　是将一个RANGE对象添加到了收集中，这并不是我们所要的，我们需要的是添加值
所以就必须用　Col.Add rng.Value

neverking

我已经按各位老师的意思 改过了  为什么还是显示不出来数据  能不能上传下附件  谢谢！！

zldccmx

用3楼的代码绝对没有问题