엑셀 VBA 기초 - 반복문과 IF의 활용 - 3편

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

오늘은 엑셀 VBA 반복문과 IF에 대해

1편과 2편에 이어서 활용하는 법에 대해

알려드릴게요.

 

만약 1편과 2편을 못 보셨다면

밑에 링크를 참고해주시고요. 

red-s.tistory.com/2404

엑셀 VBA 기초 - 반복문과 IF의 활용 - 1편

red-s.tistory.com/2406

엑셀 VBA 기초 - 반복문과 IF의 활용 - 2편

이번 글에서는 

도형의 이름을 설정해주고 

도형의 색을 변경시키는

방법에 대해 알려드릴게요.

 

가장 먼저 도형을 추가해주시고

옆에 표를 만들어 원하는 색깔을 

넣어 주시면 됩니다.

 

도형을 넣는 방법은

 

 

이렇게 삽입에서 도형을 클릭 

원하시는 도형을 클릭해서 

셀에 드래그해주시면 됩니다.

 

표를 만드는 방법은

표를 만들 자리를 드래그해주고

테두리를 추가해주시면 됩니다.

 

그리고 도형의 이름을 변경

해주셔야 하는데요.

 

도형을 클릭해주시고 해당 부위의

이름을 수정하고 엔터 눌러주시면

이름이 변경됩니다.

그럼 이제 Alt + F11 눌러주세요

 

그다음 어떠한 객체를 선택하기 위해

for each 문과 변수 타입을 

object로 설정하겠습니다.

 

 

이렇게 적어주세요.

 

그럼 설명 들어가겠습니다.

 

Dim shape As Object

변수의 이름은 shpae

변수 타입은 object타입이야

 

for each shape in activeSheet.shapes

지금 활성화돼있는 셀이 도형이

 

if shape.name = "동그라미" then

만약 변수의 이름이 동그라미 라면

 

shape.fill.forecolor.rgb = range("g4"). interior.color

도형의 색을 g4셀의 안쪽에 있는

색으로 채워줘

 

라는 뜻입니다.

 

당연히 동그라미와 사각형

삼각형은 동일한 뜻이고요.

 

또 "동그라미"라는 이름 대신

range("F4")라는 이름으로 

적어주셔도 동일한 효과를 

낼 수 있습니다.

 

그 후에 엑셀에 매크로 시작이란

사각형은 하나 만들고 매크로 지정

을 눌러 우리가 만든 매크로와

연결해주면 됩니다.

 

이렇게 만든 매크로 이름을

눌러 확인 버튼 눌러주시면

연결됩니다.

 

그다음에 엑셀 화면에서

버튼을 눌러주게 되면 

 

이렇게 변하게 되죠.

 

신기하고 오늘은 

조금 쉬웠을 거라고 생각합니다.

 

여기까지 궁금하신 점 있으시면

댓글 남겨주시고요.

 

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