Фильтр списка на основе 2 Combobox (ов) - PullRequest
Новая
       24

Фильтр списка на основе 2 Combobox (ов)

0 голосов
/ 04 июля 2019

enter image description here

Так что я очень новичок в кодировании и хочу узнать, как я могу отфильтровать список на основе выбора из 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

End Sub

...