根据2个组合框过滤列表框

Question

所以我对编码非常陌生，想学习如何基于2个组合框上的选择来过滤列表框。所以我想做的是，当VBA初始化列表框上显示的整个范围时，当选择1个组合框时，它会过滤范围，当选择第二个组合框时，它会向下过滤更多，并且两个组合框都可以单独使用。但是我找不到在线的任何内容，无论是VBA excel还是类似的东西。

Private Sub ComboBox1_Change()

Dim Database(1 To 100, 1 To 4)
Dim my_range As Integer
Dim colum As Byte
On Error Resume Next

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("MASTER")

sh.Range("G5").AutoFilter Field:=7, Criteria1:=Me.ComboBox1.Value



For i = 5 To sh.Range("G100000").End(xlUp).Row
If sh.Cells(i, 1) = Me.ComboBox1 Then

my_range = my_range + 1
For colum = 1 To 5
Database(my_range, colum) = sh.Cells(i, colum)

Next colum
End If
Next i
Me.ListBox1.List = Database
End Sub


Private Sub UserForm_Initialize()



With Me.ComboBox1
.Clear
.AddItem ""
.AddItem "L461"
.AddItem "L462"
.AddItem "L463"
.AddItem "L464"
.AddItem "L465"
 End With

结束子