还是组合框那点事儿

huangyz_xy

我在窗体中建了一个组合框，要以某列的值为数据源，但是这列中有很多的重复值，是否可以在组合框中只显示这些值的单一值？

山菊花

Private Sub UserForm_Initialize()
    Dim nRow%, Arr()
    Dim ds As Object
    Set ds = CreateObject("Scripting.Dictionary")
    nRow = Sheet1.Range("b65536").End(xlUp).Row
    Arr = Sheet1.Range("b2:b" & nRow).Value
    For i = 1 To nRow - 1
        ds(Arr(i, 1)) = ""
    Next
    Me.ComboBox1.List = ds.keys
End Sub

huangyz_xy

山菊花 发表于 2015-7-31 10:22
Private Sub UserForm_Initialize()
    Dim nRow%, Arr()
    Dim ds As Object

谢谢,一下搞定

huangyz_xy

山菊花 发表于 2015-7-31 10:22
Private Sub UserForm_Initialize()
    Dim nRow%, Arr()
    Dim ds As Object

    Dim nRow%, Arr()   
    Dim ds As Object   
    Set ds = CreateObject("Scripting.Dictionary")      
    nRow = Sheets("业务清单").Range("H65536").End(xlUp).Row  
    Arr = Sheets("业务清单").Range("H2:H" & nRow).Value  
    For i = 1 To nRow - 1   
        ds(Arr(i, 1)) = ""   
    Next   
    Me.ComboBox_Sd.List = ds.keys
    Me.ComboBox_Ed.List = ds.keys
如果添加两个时间复合框，都以H列为值，怎么会出现“运行时错误，70,！拒绝的权限”