재고 프로그램 리스트 필터링 업데이트

안녕하세요.

기존 검색된 리스트박스 목록에 다시 조건을 추가하시려면 Filtered_DB 함수를 시트의 원본 데이터에서 받아오지 마시고, 리스트박스 목록을 DB로 변환하여 Filtered_DB 함수에 추가해주세요.

Get_ListItm 함수를 아래 명령문으로 바꾼 뒤, DB = Get_ListItm(Me.lstMain, True) 로 DB를 받아오시면 됩니다.

'########################
' 리스트박스의 아이템 목록을 배열로 반환
' Array = Get_ListItm listbox
'########################
Function Get_ListItm(lstBox As Control, Optional blnAll As Boolean = False) As Variant

Dim i As Long: Dim j As Long
Dim vaArr As Variant

With lstBox
If blnAll = False Then
If .ListIndex <> -1 Then
ReDim vaArr(0 To .ColumnCount - 1)
For i = 0 To .ListCount - 1
If .Selected(i) Then
For j = 0 To .ColumnCount - 1
vaArr(j) = .List(i, j)
Next
Exit For
End If
Next
End If
Else
ReDim vaArr(0 To .ListCount - 1, 0 To .ColumnCount - 1)
For i = 0 To .ListCount - 1
For j = 0 To .ColumnCount - 1
vaArr(i, j) = .List(i, j)
Next
Next
End If
End With

Get_ListItm = vaArr

End Function

제시해드린 답변이 도움이 되셨길 바랍니다. 감사합니다.