일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 |
- 카톡 영상 유출
- 영통사기
- 영상 사기
- 카카오톡 협박
- 엑셀#직장인칼퇴#칼퇴#직장인엑셀#VBA 배열#배열변수
- 팀카시아
- 몸캠피씽
- 영통협박
- 사이버범죄구제업체
- 라인 영상통화 사기
- 몸캠피싱
- 영상유출
- 랜덤채팅 사기
- 영상통화 유출
- 카톡 영상 사기
- 동영상유포협박
- 사이버범죄구제
- 사이버 범죄 구제 업체
- 라바웨이브
- 영통 협박
- 동영상 사기
- 라인 영상통화 협박
- 카카오톡 사기
- 영상통화사기
- 영상사기
- 카톡 영상 협박
- 영상통화 사기
- 영상통화 협박
- 메신저톡 사기
- 라인 동영상 유포
- Today
- Total
Lost Information!
엑셀 VBA 기초 - 컬러색상표 직접 만들어보자 - 2편 본문
모두가 칼퇴하는 그날까지~
지난 글에서는
컬러 색상표를 만드는
방법에 대해 힌트를
조금 알려드렸는데요.
혹시 생각해보셨나요?
만일 저번 내용을 모르시거나
기억이 나질 않으신다면
밑에 글을 참고해주세요.
그럼 이번 글에서는
컬러 색상표 만들기에 대해
마무리하도록 하겠습니다.
먼저 저번 글에서
이렇게 범위를
지정해주었는데요.
그럼 이제
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 찾는 방법까지 사용한다면
앞으로는 사용하고 싶은 색상의
번호를 몰라 사용 못하는 일은
전혀 없을 거라고 생각합니다.
여기까지 궁금하신 점은
댓글에 남겨주시고
공감과 구독도 부탁드립니다.