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

VBA
작성자
새우튀김
작성일
2021-01-11 17:46
조회
72

제품 관리 폼을 제작하면서 저는 제가 추가적으로 옵션단추를 달아서 제품 구분별로 필터링 할 수 있게 했습니다.

 

위 명령문은 5개의 옵션 단추 중 1개에 클릭 이벤트인데요

Filtered_DB(DB, "완제품")

위 명령문이 먼저 완제품이 포함된 제품정보를 필터링 해줍니다.

여기까지는 좋은데 필터링 한 다음에 검색창에 검색을 하면 전체 데이터에서 검색을 하기 때문에 제품구분별 필터가 풀려버립니다.

제품 구분 필터링을 유지하고 있으면서 그 필터링 한 데이터에서 검색을 통해 한 번 더 필터링을 해주고 싶습니다.

어딜 고쳐야 할까용??

전체 2

  • 2021-01-12 04:58
    채택된 답변

    안녕하세요.

    기존 검색된 리스트박스 목록에 다시 조건을 추가하시려면 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

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


    • 2021-01-12 22:16

      저는 DB를 이중으로 거쳐서 진행했어요;;;

      예를 들어 첫번째 DB 필터링에 "완제품"이라고 필터링 하고 다음 두번째 필터에서 검색창에 대한 내용을 필터링하고 그 값을 리스트

      박스에 업데이트 했습니당,,,,,

      그리고 무식하게 각 옵션단추 클릭 이벤트 마다 IF문으로 떄웠어요 ㅋㅋㅋㅋ

      오빠두님이 말씀하신 방법대로 수정 해보겠습니다!!


전체 2,160
번호 카테고리 제목 작성자 작성일 추천 조회
2152 VBA
New 다른 시트에 있는 VBA 코드(적용), 해당 시트 수정 시 전체 Sheet VBA 실행 방법 문의 드립니다. 첨부파일
주유 | 21:21 | 추천 0 | 조회 9
주유 21:21 0 9
2151 VBA
New 오버플로 뜨는 이유와 해결책 첨부파일 (1)
iviolin**** | 18:00 | 추천 0 | 조회 14
iviolin**** 18:00 0 14
2150 함수/공식
New 범위를 지정한 경우의 범위값의 합계 내는 방법 (2)
수에이드 | 14:42 | 추천 0 | 조회 19
수에이드 14:42 0 19
2149 VBA
New VBA 셀병합 코드 수정 부탁드림니다.
이하늘 | 10:59 | 추천 0 | 조회 22
이하늘 10:59 0 22
2148 VBA
New 특정 정보에 연동된 내용을 웹에서 크롤링할 수 있나요..? (1)
robot**** | 04:53 | 추천 0 | 조회 24
robot**** 04:53 0 24
2147 파워쿼리/피벗
New 회사 웹 페이지 데이터 엑셀에 연동시키기 (1)
까비깨비도깨비 | 03:36 | 추천 0 | 조회 30
까비깨비도깨비 03:36 0 30
2146 함수/공식
New 조건부 서식 함수 문의 (2)
최정용 | 02:35 | 추천 0 | 조회 31
최정용 02:35 0 31
2145 기능/도구
New 엑셀 창 크기가 어떠한 경우에도 페이지 전체를 볼수 있는 법이 있을까요? (1)
naver_600b087e6a876 | 02:20 | 추천 0 | 조회 20
naver_600b087e6a876 02:20 0 20
2144 함수/공식
New 함수문의 (1)
ot**** | 2021.01.22 | 추천 0 | 조회 28
ot**** 2021.01.22 0 28
2143 VBA
New winhttp.winHttpRequest.5.1 , 쿠키와 Jsession을 둘다 사용하기 (3)
까미 | 2021.01.22 | 추천 0 | 조회 24
까미 2021.01.22 0 24
2142 함수/공식
New 새로운 달이 나오면 번호가 1부터 매겨지게 하는 방법 첨부파일 (2) 답변완료
블링블링 | 2021.01.22 | 추천 0 | 조회 38
블링블링 2021.01.22 0 38
2141 VBA
New .Delete 후 셀병합이 있을경우 확인창 않나오게 하기 (1) 답변완료
이하늘 | 2021.01.22 | 추천 0 | 조회 19
이하늘 2021.01.22 0 19
2140 VBA
New .Delete 뒤에 옵션 이 있나요? (4) 답변완료
이하늘 | 2021.01.22 | 추천 0 | 조회 22
이하늘 2021.01.22 0 22
2139 기능/도구
New 엑셀 표(Table)에서 절대참조 방법? (1)
Elvin Lee | 2021.01.22 | 추천 0 | 조회 21
Elvin Lee 2021.01.22 0 21
2138 VBA
New 확인란 / 옵션 단추 박스를 눌렀을 때 연결된 시트가 출력 되게 할 수 없을까요?
테일즈 | 2021.01.22 | 추천 0 | 조회 19
테일즈 2021.01.22 0 19
2137 함수/공식
New 다른 시트에서 값을 불러오는 함수 (2)
robot**** | 2021.01.22 | 추천 0 | 조회 24
robot**** 2021.01.22 0 24
2136 함수/공식
New iferror 사용목적? (4)
요시 | 2021.01.22 | 추천 0 | 조회 36
요시 2021.01.22 0 36
2135 함수/공식
New 엑셀 테이블 자동입력관련 (1)
beamwork | 2021.01.22 | 추천 0 | 조회 34
beamwork 2021.01.22 0 34
2134 함수/공식
New 엑셀로 신규거래업체 걸러낼수 있을까요? (3)
dasdas | 2021.01.22 | 추천 0 | 조회 27
dasdas 2021.01.22 0 27
2133 VBA
New 시트 다른 엑셀파일로 시트복사 (2)
이하늘 | 2021.01.22 | 추천 0 | 조회 24
이하늘 2021.01.22 0 24
2132 함수/공식
New 0을 제외하고 값 비교하기 (1)
유빈 | 2021.01.22 | 추천 0 | 조회 27
유빈 2021.01.22 0 27
2131 VBA
New 데이터베이스 변경시 시트 실시간 새로고침 (2) 답변완료
vaipor | 2021.01.22 | 추천 0 | 조회 18
vaipor 2021.01.22 0 18
2130 VBA
New TextJoin 대체 함수 VBA 작성법좀 도와주세요. (2) 답변완료
옛꼬망 | 2021.01.22 | 추천 0 | 조회 22
옛꼬망 2021.01.22 0 22
2129 피벗테이블
New (스핀단추 연동) 피벗 테이블 자동 업데이트 문의 첨부파일 (1)
윤주부 | 2021.01.22 | 추천 0 | 조회 24
윤주부 2021.01.22 0 24
2128 VBA
New 셀선택 프로시저인데 뭐가 잘못된거죠??? (3) 답변완료
이하늘 | 2021.01.22 | 추천 0 | 조회 21
이하늘 2021.01.22 0 21
2127 기능/도구
New 엑셀 하이퍼링크 보안 제거 방법 첨부파일 (3)
hjy**** | 2021.01.21 | 추천 0 | 조회 35
hjy**** 2021.01.21 0 35
2126 함수/공식
New 일자 및 총매출액 변동시 타sheet에 일자, 총매출액 자동추가되는 방법 첨부파일 (2)
마운틴 | 2021.01.21 | 추천 0 | 조회 33
마운틴 2021.01.21 0 33
2125 VBA
New 셀선택영역 vba 질문입니다. (5) 답변완료
이하늘 | 2021.01.21 | 추천 0 | 조회 40
이하늘 2021.01.21 0 40
2124 차트/그래프
New 상위10위 제품 그래프, 한눈에 깔끔하게 만드는 방법 첨부파일 (2) 답변완료
눈물젖은빵 | 2021.01.21 | 추천 0 | 조회 45
눈물젖은빵 2021.01.21 0 45
2123 함수/공식
New 엑셀 함수 관련 질문드립니다.(vlookup 내림차순 ?, 중복된 값 하나만 나타내기 ?) (1)
흙콩 | 2021.01.21 | 추천 0 | 조회 44
흙콩 2021.01.21 0 44