Question

我的ComboBox1有问题，我试图制作一些隐藏的过滤器，以便更容易查看大量数据，我想选择通过组合框过滤掉的内容，其中输入选择是此处理数据的一部分

这是我尝试编写用于填充ComboBox的一些代码，但它出现了一个错误，说它是对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

中显示的答案无法解答这个问题

Answer 1

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

Answer 2

ComboBox1.RowSource =“” ComboBox1.List = ActiveSheet.Range（“ B3”，ActiveSheet.Range（“ B”＆Rows.Count）.End（xlUp））。Value

VBA - 带动态范围的填充组合框

2 个答案: