엑셀 VBA 기초 - change 이벤트 - 2편

모두가 칼퇴하는 그날까지~

 

지난 글에서는 

change 이벤트를

만드는 방법에 대해

알려드렸는데요.

 

만일 저번 내용을 모르시거나

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2432

엑셀 VBA 기초 - change 이벤트 - 1편

이번 글에도 이어서 

알려드리도록 하겠습니다.

 

 

저번과 같이 똑같은 표가

있다고 가정하겠습니다.

 

저번 글에서는 성별을

선택하게 되면 노란색으로

색상이 변하게 설정했는데요.

 

문제는 다른 성별로 

변경했을 때 변경되었던

셀의 색상이 남아있어서

남성과 여성 모두 

노란색이다 보니 구분이 

잘 되지 않았죠.

 

바로 이렇게 말이죠

 

그래서 전체 표에 대해

초기화해주는 구문을

넣어주도록 하겠습니다.

 

 

저번 글과 달라진 곳을

찾으셨나요?

 

네 바로 if 밑에 구문을

하나 추가해주었는데요.

 

If Intersect(Target, Range("d3")) Is Nothing Then Exit Sub

만약 타깃의 값과 d3의 값이 

모두 참이 아니라면

아무 일도 일어나지 않아

 

rngR.interior.Colorindex = 0

rngR변수의 내부 색상을 흰색으로

변경시켜 

 

즉 표의 전체 범위를 흰

색으로 변경해라는 말이 되고

이후에 조건에 맞는 셀이

노란색으로 변하게 되니

문제없이 작동하게 됩니다.

 

이렇게 문제없이 작동하게 되죠.

 

이렇게 resize 구문으로 

한 셀이 아닌 원하는 만큼의 행의

색상을 변경하고 change 이벤트로

원하는 곳을 강조할 수 있습니다.

 

또한 데이터 유효성 검사로 

목록을 지정하게 되면

엑셀로 누군가에 파일을 

보냈을 때도 또는 발표를 할 때도

한눈에 들어올 수 있게 

만들어 발표 효과도 

높일 수 있습니다.

 

또한 조건을 남성과 여성 외에

추가로 평균점수 80점 이상을

추가하여 다른 색상으로 

변경되도록 설정할 수도 있겠죠.

 

아니면 둘 조건을 다 만족할 때

색상이 변경되게 설정할 수도 

있을 테고요.

 

바로 이렇게 말이죠.

 

제가 보여드린 것들은

하나의 예시일 뿐이니 

꼭 다시 한번 적으면서

자신의 것으로 만드셨으면

좋겠습니다.

 

또한 자신의 데이터에도

이것저것 적어가며

실행하게 된다면

저보다 더 예쁘게

또는 한눈에 들어오도록

만들 수 있을 거라고 생각합니다.

 

그리고 이번 글만 보고 

어렵다거나 이해가 안 가신다는

분들이 간혹 있으신데요.

 

귀찮으시겠지만 제 글의 

처음부터 읽어주시면 조금은

엑셀을 익히는데 큰 도움이

될 거라고 생각합니다.

 

여기까지 궁금하신 점이 있다면

댓글에 남겨주시고

공감과 구독도 부탁드립니다.