표에서 필터 기능 사용할 때 매크로로 인한 메시지 박스를 차단하는 방법

VBA
작성자
눈사람
작성일
2021-04-30 17:53
조회
48

안녕하세요.

표에서 자동 계산 부분을 시트보호 없이 매크로를 이용하여, 선택할 수 없도록 하였는데,

표의 필터 또는 정렬 기능을 이용하면, 매크로가 동작이 되면서 메시지 박스가 나옴니다.

 

▼ 선택할 수 없게 하는 매크로
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng1 As Range

Set rng1 = Sheet2.Range("A6").CurrentRegion

If Not Intersect(Target, rng1, Range("J:J")) Is Nothing Then
Application.EnableEvents = False
Beep
MsgBox "해당 영역은 선택이 제한되어 있습니다." & vbCrLf & "(자동 계산 영역)"
Range("A1").Select
Application.EnableEvents = True
End If

If Not Intersect(Target, rng1, Range("M:M")) Is Nothing Then
Application.EnableEvents = False
Beep
MsgBox "해당 영역은 선택이 제한되어 있습니다." & vbCrLf & "(자동 계산 영역)"
Range("A1").Select
Application.EnableEvents = True
End If

End Sub

rng1 은 표 전체 영역을 지정합니다.

표의 필터 및 정렬 기능을 사용해도 메시지 박스가 나오지 않게 하려면 어떻게 해야 하나요?

전체 3

  • 2021-05-02 17:09

    안녕하세요.

    Intersect로 범위를 잘못 지정하신듯 합니다.

    If Not Intersect(Target, rng1, Range("M:M")) Is Nothing Then

    로 지정하시면, 선택된 셀 + M열 + rng1 이라는 범위가 모두 겹칠때에만 명령문이 실행되는데요. 아마 원하시는 동작은 아래 코드로 작성하신게 아닐까 생각됩니다.

    If Not (Intersect(Target, Range("M:M")) Is Nothing or Intersect(Target, rng1) Is Nothing) Then

    한번 확인해보시겠어요?

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


  • 2021-05-03 12:39

    rng1으로 지정한 표 내에서 m:m 영역 부분 겹치는 것 자체는 문제가 없는데, 표에서 소팅 기능을 활용할 때마다 메시지 박스가 출력되어, 이 부분이 불편하여 개선하고자 질문을 드린겁니다.

    답변 주신 방법으로 처음에 했었는데 m:m 영역 전체에 셀을 선택하면 메시지박스가 나와서 rng1 영역을 추가한 것입니다.

    매크로로 소팅기능 사용 시, 메시지박스 차단 하는 방법이 없을까요?


  • 2021-05-03 13:24

    추가로 관련 파일을 올려 봅니다. 자료는 수정본이고, 영역은 수정했습니다.

    첨부파일 : 표의-소팅-기능-사용-시-메시지-박스-출력.xlsm


전체 2,958
번호 카테고리 제목 작성자 작성일 추천 조회
2946 함수/공식
New 총데이터시트에서 해당텍스트 클릭 시 다른시트에 원하는 내용이 자동으로 입력? 첨부파일
확그냥막그냥 | 08:58 | 추천 0 | 조회 4
확그냥막그냥 08:58 0 4
2945 함수/공식
New 주식 자동 리밸런싱 계산 가능할까요? 첨부파일
qnd | 01:00 | 추천 1 | 조회 13
qnd 01:00 1 13
2944 문서서식
New 사용자 지정 정렬 첨부파일 (1)
wbyu**** | 2021.05.14 | 추천 0 | 조회 17
wbyu**** 2021.05.14 0 17
2943 함수/공식
New 동적범위 적용 질문
두부 | 2021.05.14 | 추천 0 | 조회 17
두부 2021.05.14 0 17
2942 함수/공식
New 가로방향으로 수집되는 값을 세로방향으로 나열하는 법 첨부파일 (1)
녹차라면 | 2021.05.14 | 추천 0 | 조회 35
녹차라면 2021.05.14 0 35
2941 대시보드
New 간트차트 상 병합된 셀의 필터링 &진척도 표시 관련 첨부파일 (1)
asuka | 2021.05.14 | 추천 0 | 조회 26
asuka 2021.05.14 0 26
2940
New INDEX 함수앞 -- 표시는 어떨때 사용하나요? 첨부파일 (1)
무궁화 | 2021.05.14 | 추천 0 | 조회 41
무궁화 2021.05.14 0 41
2939
New 안녕하세요 ~ VBA 카카오톡 관련문의 입니다 (2)
호기윤 | 2021.05.14 | 추천 0 | 조회 33
호기윤 2021.05.14 0 33
2938 함수/공식
New 교차판매 (cross-selling)분석을 위해 어떻게 가공해야하는지 모르겠습니다 ㅠ (1)
동엽 | 2021.05.13 | 추천 0 | 조회 41
동엽 2021.05.13 0 41
2937 함수/공식
New 엑셀 함수질문있습니다. 첨부파일 (1)
BackGom | 2021.05.13 | 추천 1 | 조회 43
BackGom 2021.05.13 1 43
2936 함수/공식
New 전체직원에서 중복되지 않은 값을 다른곳에 추출 ! 도와주세요 ㅠ 첨부파일 (2) 답변완료
E | 2021.05.13 | 추천 0 | 조회 52
E 2021.05.13 0 52
2935 문서서식
New 데이터 정규화 도와주세요.... 첨부파일
닉뿡뿡 | 2021.05.13 | 추천 1 | 조회 52
닉뿡뿡 2021.05.13 1 52
2934 함수/공식
New 안녕하세요 이 함수식의 해석좀 부탁드려도 될까요 (2) 답변완료
Hynix | 2021.05.13 | 추천 0 | 조회 55
Hynix 2021.05.13 0 55
2933 문서서식
New 셀병합 세로로 병합된 범위 문제 (1)
엑셀고수왕소취 | 2021.05.13 | 추천 0 | 조회 39
엑셀고수왕소취 2021.05.13 0 39
2932 피벗테이블
New 피벗테이블 행 필드 순서변경 질문드립니다. 첨부파일 (1)
월마리아 | 2021.05.12 | 추천 0 | 조회 26
월마리아 2021.05.12 0 26
2931 VBA
New VBA 문제 관련 (VBA를 사용하여 사진 옮기기) 첨부파일 (7) 답변완료
철모대장 | 2021.05.12 | 추천 0 | 조회 59
철모대장 2021.05.12 0 59
2930 VBA
New 이건 VBA로 해결해야 할 것 같습니다. 첨부파일 (3) 답변완료
. | 2021.05.12 | 추천 1 | 조회 78
. 2021.05.12 1 78
2929 VBA
New 행방향 필터 문의드립니다 ( 가로필터) 첨부파일 (2)
김희주 | 2021.05.12 | 추천 0 | 조회 65
김희주 2021.05.12 0 65
2928 문서서식
New 도와주세요! 매크로 말고 서식 설정으로 숫자와 한글 같이 나오게 할 수 있나요? (2)
회계직원 | 2021.05.12 | 추천 0 | 조회 40
회계직원 2021.05.12 0 40
2927 차트/그래프
엑셀 간트차트 자동화 양식 (진행상황, 업무흐름 표시) 문의 (2) 답변완료
비엘 | 2021.05.12 | 추천 1 | 조회 70
비엘 2021.05.12 1 70
2926 함수/공식
날짜 일수별 사용현황 합계 분석이 가능할까요 (3)
쭈니준이 | 2021.05.12 | 추천 0 | 조회 49
쭈니준이 2021.05.12 0 49
2925 함수/공식
엑셀 수량 집계 함수 질문합니다. (1)
상길 | 2021.05.11 | 추천 1 | 조회 51
상길 2021.05.11 1 51
2924 함수/공식
다량의 데이터에서 특정값을 포함하는 행 추출방법 첨부파일 (1)
고래 | 2021.05.11 | 추천 0 | 조회 68
고래 2021.05.11 0 68
2923 함수/공식
엑셀 A라는 파일에 엑셀 1월, 2월,3월 각 파일을 가지고 A라는 파일에 매달 업데이트 하는 방법 도와주세요! (5)
jyk0077@hanmail.net | 2021.05.11 | 추천 2 | 조회 78
jyk0077@hanmail.net 2021.05.11 2 78
2922 VBA
이게 가능할까요 ? (2)
12394 | 2021.05.11 | 추천 0 | 조회 83
12394 2021.05.11 0 83
2921 VBA
패턴을 찾아 색칠해 주는 방법 문의 첨부파일 (4)
눈사람 | 2021.05.11 | 추천 0 | 조회 52
눈사람 2021.05.11 0 52
2920 파워쿼리/피벗
ximage 함수조정등으로 이미지링크외 기타 웹페이지캡쳐 다운
오재석 Diego | 2021.05.11 | 추천 1 | 조회 60
오재석 Diego 2021.05.11 1 60
2919 함수/공식
엑셀 다중조건을 만족하고 중복값 제거 후 고유값 개수 카운트 공식 문의 첨부파일 (1)
우와토넛 | 2021.05.10 | 추천 0 | 조회 67
우와토넛 2021.05.10 0 67
2918 VBA
자동 셀병합 함수 오류 (1)
꼬구마 | 2021.05.10 | 추천 0 | 조회 40
꼬구마 2021.05.10 0 40
2917 파워쿼리/피벗
엑셀로 카카오톡 대화내용을 읽어들여 올 수 있나요? (2) 답변완료
만법귀일 | 2021.05.10 | 추천 0 | 조회 101
만법귀일 2021.05.10 0 101