매크로를 원하는 범위에서만 사용하는 방법을 알고싶습니다.

VBA
작성자
호랑이파워
작성일
2021-12-06 01:37
조회
164
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요.

엑셀로 VLOOKUP만 사용하다가 VBA를 알아버린 초보가

데이터가 많이 있을때 필요한 "클릭하면 한 줄 색상이 변하는 코드"를 넣어서

사용해보다가 궁금한 부분이 생겨서 여쭤봅니다.

 

위와 같은 데이터가 있는 파일에 셀을 클릭하면 초록색 배경색상이 표시되는 코드를 넣었습니다.

 

사용하다보니 불편한 점이 있어서 바꿔볼려고 하는데 쉬운듯 어려워 도움을 요청합니다.

  1. A열 마지막 행을 번호를 찾아서 그 범위에서만 색상이 바뀌고 싶습니다.('변수 = Cells(Rows.Count, "a").End(xlUp).Row 을 사용하면 될듯하지만 어디에 어떻게 추가를 해야할지 잘 모르겠습니다.)
  2. 5행,8행은 색상이 이미 있는데 클릭하면 색상이 사라져 버려서 9행부터 마지막행까지 그 범위에서만 사용이 가능하도록 하고 싶습니다.

 

 

# 매번 기초없이 하느라 아무것도 모르는 초보에게 답변주시는 분들에게 다시 한번 감사드립니다.

# 예제파일도 첨부하였습니다.

 

'클릭하면 색상이 바뀌는 코드 START
Option Explicit
Dim R As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRow As Integer
On Error Resume Next
iRow = Target.Row
R.Interior.ColorIndex = xlNone
Range(Cells(iRow, 1), Cells(iRow, 12)).Interior.ColorIndex = 35 '색상코드 36
Set R = Range(Cells(iRow, 1), Cells(iRow, 12)) '12는 가로 몇칸을 표시
End Sub
'클릭하면 색상이 바뀌는 코드 END

 

 

회원등급 : 4레벨
포인트 : 192 EP
총질문 : 5 개 (마감율 : 100%)
채택답변 : 0 개
전체 3

  • 2021-12-06 07:35

    행 위치가 9행 이후부터만 매크로를 적용할 수 있도록 함수 맨 앞단에 조치하면 됩니다.

    고쳐진 파일 첨부하겠습니다.


  • 2021-12-06 07:44
    채택된 답변

    파일 첨부합니다

    도움이 되면 좋겠습니다

    첨부파일 : 색상코드_VBA_해법제안.xlsm


    • 2021-12-06 11:57

      @김학동 님 !

      알려 주신 코드를 그냥 사용하지 않고 더 공부하며 적용해 보겠습니다.

      정말 감사합니다.

       

      좋은 하루 보내세요!


전체 5,121
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (28)
트로피 오빠두엑셀 | 2021.10.12 | 추천 22 | 조회 744
트로피 오빠두엑셀 2021.10.12 22 744
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 27 | 조회 2315
트로피 오빠두엑셀 2021.10.28 27 2315
26015 함수/공식
New 혹시 Crtl + F 찾기 같은 함수와 있나요
태혁 | 11:39 | 추천 0 | 조회 14
태혁 11:39 0 14
26014 차트/그래프
New 해당 스크린샷의 그래프를 어떻게 만드는지 알려주세요
민석 | 11:39 | 추천 0 | 조회 12
민석 11:39 0 12
26005 함수/공식
New 한 숫자값에 대한, 홀수/짝수값을 나열하고 싶습니다. (3)
땅콩구리아빠 | 08:43 | 추천 0 | 조회 25
땅콩구리아빠 08:43 0 25
26000 VBA
New Rng.find 함수로 찾은 값을 DB안에 넣고싶습니다. (1)
가을전어 | 2022.01.16 | 추천 0 | 조회 28
가을전어 2022.01.16 0 28
25994 함수/공식
New 날짜 입력하면 당일 주야간 합구하는 함수나 방법을 배우러 왔습니다. (1)
현주아빠 | 2022.01.16 | 추천 0 | 조회 27
현주아빠 2022.01.16 0 27
25993 VBA
New workday 함수를 vba로.. (1)
Hong | 2022.01.16 | 추천 0 | 조회 22
Hong 2022.01.16 0 22
25989 차트/그래프
New 표 자동 입력 첨부파일 (2) 답변완료
미르 | 2022.01.16 | 추천 0 | 조회 32
미르 2022.01.16 0 32
25983 함수/공식
New 년도에 따른 출장 일수 구하고 싶은데 도움 부탁드립니다. (1)
kjin1020@naver.com | 2022.01.16 | 추천 0 | 조회 25
kjin1020@naver.com 2022.01.16 0 25
25982 함수/공식
New 입력하면 옆 셀에 자동으로 '1'이 입력되는 방법 (1) 답변완료
올리주인 | 2022.01.16 | 추천 0 | 조회 42
올리주인 2022.01.16 0 42
25973 함수/공식
New index match로 불러온 여러 목록의 사진을 다시 취합해서 불러오고 싶습니다. 첨부파일
배고픈콩콩 | 2022.01.16 | 추천 0 | 조회 36
배고픈콩콩 2022.01.16 0 36
25969 VBA
New 검색한 셀의 가로열 전부를 복사하는 방법이 알고 싶습니다. vba
ㅈㄱㄹ | 2022.01.16 | 추천 0 | 조회 24
ㅈㄱㄹ 2022.01.16 0 24
25945 함수/공식
New if 함수 중첩 (3)
shheee | 2022.01.15 | 추천 0 | 조회 49
shheee 2022.01.15 0 49
25938 기능/도구
New 수식이 포함된 시트에서 수식이 입력된 셀을 제외한 셀을 선택하는 방법을 알고자 합니다 (1)
yya**** | 2022.01.15 | 추천 0 | 조회 34
yya**** 2022.01.15 0 34
25932 문서서식
New 안녕하세요...도움을 요청합니다. 첨부파일 (1)
violet**** | 2022.01.15 | 추천 0 | 조회 46
violet**** 2022.01.15 0 46
25919 함수/공식
New 중복일 경우 1개만 카운트 첨부파일 (3) 답변완료
s77**** | 2022.01.14 | 추천 0 | 조회 79
s77**** 2022.01.14 0 79
25918 함수/공식
New 대출 이자율을 구하는 함수가 있을까요? (3)
늦깎이 | 2022.01.14 | 추천 0 | 조회 58
늦깎이 2022.01.14 0 58
25909 문서서식
New 셀값에 보이지 않는 값이 있습니다 이게 뭔지 알려주세요ㅠㅠ 첨부파일 (2) 답변완료
닉으로 | 2022.01.14 | 추천 0 | 조회 58
닉으로 2022.01.14 0 58
25908 함수/공식
New 혹시 매주 월요일마다 자동 작성되게 할 수 있나요? (5)
태혁 | 2022.01.14 | 추천 0 | 조회 81
태혁 2022.01.14 0 81
25905 대시보드
New 데이터 관리 때문에 질문 드립니다. 첨부파일 (4)
콜럼버스 | 2022.01.14 | 추천 0 | 조회 48
콜럼버스 2022.01.14 0 48
25896 함수/공식
수입, 지출누적액 구하는 방법 (6)
칼있으녀 | 2022.01.14 | 추천 0 | 조회 81
칼있으녀 2022.01.14 0 81
25892 VBA
VBA 크롤링 - innerText 의 특정 문자 제외하는 방법 도움요청드립니다. (5) 답변완료
98e | 2022.01.14 | 추천 0 | 조회 49
98e 2022.01.14 0 49
25888 함수/공식
일주일째 골머리 입니다 도움요청드립니다 첨부파일 (5)
k5188 | 2022.01.14 | 추천 0 | 조회 133
k5188 2022.01.14 0 133
25884 함수/공식
참조가 잘안되면 어떤 함수를 써야하나요 (3)
박모씨 | 2022.01.14 | 추천 0 | 조회 59
박모씨 2022.01.14 0 59
25876 피벗테이블
피벗으로 가공한 데이터 정렬 문의 첨부파일 (2) 답변완료
엑셀어린잉 | 2022.01.13 | 추천 0 | 조회 54
엑셀어린잉 2022.01.13 0 54
25875 함수/공식
ROW 함수를 이용한 셀좌표값을 SUMIF 문에 자동으로 입력되게 할수 없을까요? 첨부파일 (6)
속등가설분전반 | 2022.01.13 | 추천 0 | 조회 68
속등가설분전반 2022.01.13 0 68
25873 함수/공식
importhtml 함수 질문드립니다. 첨부파일 (1) 답변완료
감성카드 | 2022.01.13 | 추천 0 | 조회 59
감성카드 2022.01.13 0 59
25872 함수/공식
수식 질문 첨부파일 (6) 답변완료
k5188 | 2022.01.13 | 추천 0 | 조회 65
k5188 2022.01.13 0 65
25870 VBA
VBA로 IE다루는 중 웹페이지 대화상자 닫는 법 (1)
케케케 | 2022.01.13 | 추천 0 | 조회 40
케케케 2022.01.13 0 40
25869 문서서식
항상고맙습니다...어려운 부문이 있어 문의드립니다. 첨부파일
violet**** | 2022.01.13 | 추천 0 | 조회 50
violet**** 2022.01.13 0 50
25868 파워쿼리/피벗
쿼리 새로고침 시 중복데이터 (1)
뿌잉뿌잉 | 2022.01.13 | 추천 0 | 조회 34
뿌잉뿌잉 2022.01.13 0 34