검색창 기능 구현에 도움이 필요합니다.

VBA
작성자
박성원
작성일
2023-01-03 11:20
조회
78
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

질문 요약 : 1. 워크시트 체인지 프로시져 기반 검색 기능
2. 여러 항목 다중검색 (교집합)
3. 각 항목 키워드 포함 검색
2/3번이 동시에 만족하게 하려면 어디를 손봐야 할까요..

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range
Dim rngArea As Range

Application.ScreenUpdating = False

If Not Application.Intersect(Target, Me.Range("B3:F3")) Is Nothing Then
Set rng = Me.Range("B2:F3")
Set rngArea = Me.Range("B7").CurrentRegion
rngArea.AdvancedFilter 1, rng
Target.Select
End If

End Sub

이런 형식으로 셀값이 변하면 아래 목록에 필터를 걸어주는 방식으로 검색창을 적용하고 싶습니다.

다만 교집합 개념을 이용한 것 자체는 꼭 필요한 기능인지라 포기할 수 없는데

이렇게 코드를 짜놓으니까 주소목록에서 특정 구 데이터만 필터링할 수 있는

특정단어포함필터링이 안되더라구요.

현재 매크로의 교집합 컨셉과 특정단어포함필터링을 모두 살릴 수 있는 방법은 없을까요?

스크랩
공유
전체 2

  • 2023-01-06 19:57
    채택된 답변

    @박성원 님 , 안녕하세요.

    님의 코드에 아래 적색으로 표시된 부분을 추가해보시길 권장 드립니다.

    그리고, 전화번호를 검색하는 E3 셀의 표시형식은 텍스트로 변경하셔야 합니다.

    수고하세요.

     Application.ScreenUpdating = False
     
       '추가사항
        If Not Application.Intersect(Target, Me.Range("C3:E3")) Is Nothing Then
            If Len(Replace(Target, "*", "")) > 0 Then
                If InStr(Target, "*") = 0 Then
                    Target = "*" & Target & "*"
                End If
            End If
        End If
     
     
        If Not Application.Intersect(Target, Me.Range("B3:F3")) Is Nothing Then
            
            Set rng = Me.Range("B2:F3")
            Set rngArea = Me.Range("B7").CurrentRegion
            rngArea.AdvancedFilter 1, rng
            Target.Select
        End If

    • 2023-01-10 15:40

      @Jas 님 조언 감사합니다.
      위 방식으로 제 의도대로 구동하는데 성공했습니다.
      감사합니다


전체 9,421
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (13)
오빠두엑셀 | 2023.01.25 | 추천 7 | 조회 4612
오빠두엑셀 2023.01.25 7 4612
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (125)
오빠두엑셀 | 2021.10.28 | 추천 160 | 조회 9824
오빠두엑셀 2021.10.28 160 9824
48791 파워쿼리/피벗
New 엑셀 표 관련 문의 드립니다.
달려라탁구 | 13:03 | 추천 0 | 조회 5
달려라탁구 13:03 - 5
48790 함수/공식
New 날짜를 선택하면 기간에 따라 몇주차인지 나타내게하고싶습니다. 엑셀파일첨부파일
가영 | 12:58 | 추천 0 | 조회 3
가영 12:58 - 3
48787 함수/공식
New 일정 길이로 문자 추출한 후 추출된 문자의 공백 없애기 한번에 할 수 있을까요?
마케팅엑셀공부 | 12:32 | 추천 0 | 조회 10
마케팅엑셀공부 12:32 - 10
48775 피벗테이블
New 새로고침시 피벗테이블 서식해제 문제 첨부파일
비누진 | 09:39 | 추천 0 | 조회 17
비누진 09:39 - 17
48771 피벗테이블
New 엑셀 피벗테이블용 데이터 합치기 첨부파일 (1)
엑셀왕초보 | 06:31 | 추천 0 | 조회 37
엑셀왕초보 06:31 - 37
48770 VBA
New VBA on error resume 관련 한번만 작동됩니다..꼭 가르침 부탁 드립니다. (2) 답변완료
119구조대 | 05:50 | 추천 0 | 조회 29
119구조대 05:50 - 29
48762 피벗테이블
New 피벗테이블에 함수가 들어갈 수 있나요?? 아~ㅜㅜㅜㅜ 첨부파일
쫌.... | 2023.02.02 | 추천 0 | 조회 30
쫌.... 2023.02.02 - 30
48759 함수/공식
New 엑셀 함수 질문드립니다 첨부파일 (1)
tndka**** | 2023.02.02 | 추천 0 | 조회 25
tndka**** 2023.02.02 - 25
48757 함수/공식
New [엑셀 함수] Weeknum을 이용하여 주차 기간 구하기 엑셀파일첨부파일 (2) 답변완료
Claire | 2023.02.02 | 추천 0 | 조회 35
Claire 2023.02.02 - 35
48750 피벗테이블
New 피벗테이블에서 같은 단어가 1,2로 나누어져버리는데 합칠 수 없나요? 첨부파일 (2)
Jace J | 2023.02.02 | 추천 0 | 조회 30
Jace J 2023.02.02 - 30
48745 함수/공식
New 월별 대여수를 알고싶습니다 ㅜ 엑셀파일첨부파일 (3) 답변완료
우주김 | 2023.02.02 | 추천 0 | 조회 42
우주김 2023.02.02 - 42
48744 문서서식
New 셀 강조 규칙에서 누락되는 셀은 뭘까요? 첨부파일 (1)
JJJeFFF | 2023.02.02 | 추천 0 | 조회 23
JJJeFFF 2023.02.02 - 23
48743 VBA
New 다른 시트에 데이터 누적 기록 문의 드립니다 엑셀파일첨부파일 (3) 답변완료
tabibi**** | 2023.02.02 | 추천 0 | 조회 32
tabibi**** 2023.02.02 - 32
48738 기능/도구
New 해당 강의가 혹시 있을까요?
엑세루마스토루 | 2023.02.02 | 추천 0 | 조회 33
엑세루마스토루 2023.02.02 - 33
48737 함수/공식
New 엑셀 시트에 있는 특정 값을 불러올 수있나요? (7)
김성모 | 2023.02.02 | 추천 0 | 조회 39
김성모 2023.02.02 - 39
48736 함수/공식
New 매크로 설정 시 한번에 저장하는 방법이 있을까요? 첨부파일 (1) 답변완료
현이 | 2023.02.02 | 추천 0 | 조회 32
현이 2023.02.02 - 32
48735 함수/공식
New 조건에 맞는 데이터 불러오는 수식이 궁금합니다. 첨부파일 (2)
배도라스 | 2023.02.02 | 추천 0 | 조회 38
배도라스 2023.02.02 - 38
48729 VBA
New 인풋박스로 유저가 시트 이름을 입력하면 해당 시트에만 특정 코드를 적용하거나 제거하기. 엑셀파일 (2) 답변완료
낚시하는김곰 | 2023.02.02 | 추천 0 | 조회 37
낚시하는김곰 2023.02.02 - 37
48726 VBA
New 셀값을 쿼리로 가져오고 싶습니다...
angelriun | 2023.02.02 | 추천 0 | 조회 27
angelriun 2023.02.02 - 27
48724 함수/공식
New 전주 대비 변경건 추출하는 방법 엑셀파일첨부파일
엑셀고수왕소취 | 2023.02.02 | 추천 0 | 조회 33
엑셀고수왕소취 2023.02.02 - 33
48723 함수/공식
New 트리구조 분류체계 순번 붙이기 관련 질의 드립니다. (1) 답변완료
Baek | 2023.02.02 | 추천 0 | 조회 26
Baek 2023.02.02 - 26
48718 함수/공식
New INDEX함수에서 '이름'을 활용하여 원하는 값을 얻고싶습니다. 엑셀파일첨부파일 (2)
무뼈닭발 | 2023.02.02 | 추천 0 | 조회 54
무뼈닭발 2023.02.02 - 54
48717 VBA
New 한글, 영어, 숫자 추출하기 및 특정단어 제외하기 엑셀파일 (6) 답변완료
심슨바트심슨 | 2023.02.02 | 추천 1 | 조회 43
심슨바트심슨 2023.02.02 1 43
48716 함수/공식
New ★다중조건을 충족하는 합계 구하는 수식 엑셀파일첨부파일 (3)
젬마 | 2023.02.02 | 추천 0 | 조회 44
젬마 2023.02.02 - 44
48714 파워쿼리/피벗
New 원드라이브 또는 쉐어포인트에 있는 데이터를 가져올려 고하면 오류가 발생합니다. 첨부파일
어수민 | 2023.02.02 | 추천 0 | 조회 28
어수민 2023.02.02 - 28
48710 구글시트
New importrange 로 불러온 값의 옆에 기재해둔 데이터가, 원본값이 변동할때도 따라갈 수 있게 조치가 가능한지 여부 (4) 답변완료
유랑 | 2023.02.02 | 추천 0 | 조회 37
유랑 2023.02.02 - 37
48707 함수/공식
New 지정셀이 함수를 사용했는지 단순계산만 했는지 구별이 가능할까요?? (3) 답변완료
엑셀두 | 2023.02.02 | 추천 0 | 조회 41
엑셀두 2023.02.02 - 41
48706 함수/공식
New index-Match, Vlookup 결과값으로 서식까지 끌어오는 방법 없나요? (4) 답변완료
HoDee | 2023.02.02 | 추천 0 | 조회 50
HoDee 2023.02.02 - 50
48704 VBA
New xlsm 파일인데 sheet없이 저장된 파일이 있습니다. 어떻게 저장이 되나요? 엑셀파일첨부파일 (4) 답변완료
수메리안 | 2023.02.02 | 추천 0 | 조회 49
수메리안 2023.02.02 - 49
48703 함수/공식
New 중복 제외하고 다중 조건의 값 카운트하기 (5)
ggplay**** | 2023.02.02 | 추천 0 | 조회 45
ggplay**** 2023.02.02 - 45