2016-07-14 146 views
0

我有一个问题,我的组合框1,我想做一些隐藏的过滤器,使查看大量的数据更容易,我想选择什么,我通过组合框筛选出来,其中输入选择是这个处理数据的一部分。VBA - 动态范围填充组合框

这里有一些代码,我试图写入填充组合框,但它出现了一个错误,说它是Method的错误使用。

Sub ComboBox1_DropButton_Click() 
Dim i As Range 

With Sheets("Pipe 16") 
Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) 
End With 
Me.ComboBox1.ListFillRange = "i" 

End Sub 

任何帮助表示赞赏。

编辑

这不能由Dynamically set ListFillRange in Excel ComboBox using VBA

+0

的[动态使用VBA设置ListFillRange在Excel中组合框(http://stackoverflow.com/questions/4200712/dynamically-set-listfillrange-in-excel-combobox-using-vba) – Dave

+0

有无可能的复制只是尝试了在这里建议什么,它不工作@Dave – lewisthegruffalo

+0

Try Me.ComboBox1.List = i.Value –

回答

2

ListFillRange所示的答案回答接受的范围内的地址不是自己的范围内。

Sub ComboBox1_DropButton_Click() 

    Dim i As Range 

    With Sheets("Pipe 16") 
     Set i = .Range("G5:G" & .Range("G" & .Rows.Count).End(xlUp).Row) 
    End With 
    Me.ComboBox1.ListFillRange = i.Address 

End Sub