ComboBox 过滤另一个工作表中的数据

Question

我正在尝试制作一个包含一些标准的 ComboBox 下拉菜单。

我想按总产品持有量过滤。

这个ComboBox在“Main Menu”表中，要过滤的数据在“Consolidated Database”表中。

因此，当我从下拉列表中选择条件时，“综合数据库”中的数据会根据该选择进行过滤。

例如，我从下拉列表中选择“1”，然后“合并数据库”中的数据在 BC 列（“SUM PH ALL”）上被“1”过滤，并且该工作表中的所有数据也按该标准过滤。
如果我在“主菜单”表的下拉列表中选择“1”会发生什么：

VBA 代码显示错误。

Private Sub ComboBox1_Change()
    Dim lastr As Integer
    lastr = Range("BC" & Rows.Count).End(xlUp).Row
    Sheets("Consolidated Database").Range("BC2:BC" & lastr).AutoFilter _
    Field:=55, Criteria1:=ComboBox1.Value, Operator:=x1FilterValues
End Sub

Private Sub ComboBox1_DropButtonClick()
    Me.ComboBox1.ListFillRange = "SUM_PH_ALL"
End Sub

Answer 1

代码工作得很好，原来有一个错字。 感谢@TimWilliams 指出我的错字。 所以，这是我更正后的代码：

Private Sub ComboBox1_Change()

Dim lastr As Integer

lastr = Range("BC" & Rows.Count).End(xlUp).Row

Sheets("Consolidated Database").Range("BC2:BC" & lastr).AutoFilter Field:=55, Criteria1:=ComboBox1.Value, Operator:=xlFilterValues

End Sub

 

Private Sub ComboBox1_DropButtonClick()

Me.ComboBox1.ListFillRange = "SUM_PH_ALL"

End Sub