Lost Information!

엑셀 VBA 기초 - 컬러색상표 직접 만들어보자 - 2편 본문

개인브랜드블로그를 만들어 보자/엑셀VBA

엑셀 VBA 기초 - 컬러색상표 직접 만들어보자 - 2편

Lostinformation 2020. 11. 27. 20:52

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

 

지난 글에서는 

컬러 색상표를 만드는

방법에 대해 힌트를 

조금 알려드렸는데요.

 

혹시 생각해보셨나요?

 

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

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2452

 

엑셀 VBA 기초 - 컬러색상표 직접 만들어보자 - 1편

모두가 칼퇴하는 그날까지~ 지난 글에서는 AdvancedFilter의 추가 조건에 대해서 알려드렸는데요. 만일 저번 내용을 모르시거나 기억이 나질 않으신다면 밑에 글을 참고해주세요. red-s.tistory.com/245

red-s.tistory.com

 

그럼 이번 글에서는 

컬러 색상표 만들기에 대해

마무리하도록 하겠습니다.

 

먼저 저번 글에서 

이렇게 범위를 

지정해주었는데요.

 

그럼 이제 

ALT + F11을 눌러주세요.

 

이렇게 적어주시면 됩니다.

 

생각보다 간단한만큼

바로 설명 들어갑니다.

 

Option Explicit

변수를 지정하지 않은

변수가 나온다면 

오류를 내줘

 

Sub ColorTest01()

ColorTest01라는

매크로를 만들게
    
Dim rngD    As Range

rngD라는 변수를

설정하고 

 

Dim rngT    As Range

rngT라는 변수도

설정할게

 

Set rngD = Range("rngR")

범위로 지정한 rngR을

rngD로 설정할게

 

rngD.Interior.ColorIndex = 0

그리고 rngD의 색상은

초기화해줘

 

For Each rngT In rngD

rngT라는 변수는

rngD안에서 순환해줘

 

If rngT <> "" Then

만약 rngT가 공백이

아니라면

 

rngT. Offset(0, 1). Interior.ColorIndex = rngT

rngT는 오른쪽으로

한 칸 움직인 다음에 색상을

rngT 값 색상으로 넣어줘

(offset의 경우는

정말 많이 사용하기에

기억나지 않으시면 offset의

관련한 제 글을 읽어주세요)

 

End If
Next rngT

End Sub

 

이렇게 실행하면

 

이렇게 자주 사용하는

숫자에 따른 colorIndex값을

확인할 수 있습니다.

 

한번 만들어 놓으면 눈으로 

쉽게 확인하고 코드에 

숫자를 입력할 때 확인하기

좋으니 꼭 따라 해 보세요.

 

그리고 Option Explicit

나중에 코드가 길어지면

길어질수록 변수를 제대로

설정하지 않고 매크로를

만드는 경우가 있는데요.

 

이때 특히 오류가 나게 되면

찾기 힘들기에 꼭 변수 설정에

Option Explicit 관한 코드를

적어 제대로 변수 설정을

하지 않으면 오류가 나도록

설정해주는 것이 좋습니다.

 

또한 저번 글에서 알려드렸던

color 찾는 방법까지 사용한다면

앞으로는 사용하고 싶은 색상의

번호를 몰라 사용 못하는 일은

전혀 없을 거라고 생각합니다.

 

여기까지 궁금하신 점은

댓글에 남겨주시고

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

 

2 Comments
댓글쓰기 폼