vba - VBA 过滤数据 - 组合框刷新
问题描述
我已经尝试了很长时间，但似乎我找不到解决方案。为了解释这个过程，在用户表单（ComboBox_Shelf）中，用户选择了某个条目，该条目是自动过滤另一个工作表中的大数据的输入。然后过滤的输出显示在同一窗口的另一个组合框中（ComboBox_Bricks）。问题是，选择不同的条目时，过滤无法正常工作。例如，在屏幕截图中，选择了 Max Muster 作为条目，但是，砖块显示在过滤后应该只显示“Gold”，但是，不知何故，它过滤了两个条目而不是选择的一个。
下面这行代码------PCPcockpit.ComboBox_Bricks.RowSource = APISheet & "!" & Sheets(APISheet).Range("A2", Sheets(APISheet).Range("A2").End(xlDown)).Address----- 每次过滤后用户签出积木列表时调用. 因此，它通常应该显示过滤掉的列表。
Sub Filterindata()
ThisWorkbook.Sheets(APISheet).AutoFilterMode = False
ThisWorkbook.Sheets("API").Range("A1:CH22").AutoFilter Field:=86,
Criteria1:=PCPcockpit.ComboBox_Shelf.value
Call Globalvariables
PCPcockpit.ComboBox_Bricks.RowSource = APISheet & "!" & Sheets(APISheet).Range("A2", Sheets(APISheet).Range("A2").End(xlDown)).Address
End Sub