처음만드는 - 엑셀로 배색차트 만들기

겨울이 오고 요즘 폭뜨를 하고있다. 

특히 갑자기 추워졌던 지난 주말엔 엑셀로 배색차트 만드는 법에 관한 포스팅을 보고!!
비오는 토요일 스벅으로 친구를 불려내서 도와달라고 괴롭히는 악행까지 저지르며 배운 것이 있느니..

이 기쁨을 함께 나누고 싶다 ㅋㅋㅋㅋ

내가 본 것 중 가장 쓰기 편한 엑셀 배색차트 !! 

깊은 감사를  !

난 워낙 이런 걸 못해서 도움이 필요했지만 많은 다른 분들은 튜토리얼을 보면 그냥 따라 할 수 있을 것 같다. 
친구도 그냥 휘리릭 하니까 됐던 걸 보면.. ;;;

하지만 나처럼 인터넷이나 쓸 줄 아는 실질적인 컴맹인 분들을 위해 
(여러분, 우리는 컴맹이 맞습니다. 온라인으로 물건 살 줄 안다고 컴맹이 아닌게 아님 ㅠ ㅠ) 
엑셀이 뭔지 처음 보는 분도 따라 할 수 있는 걸 기준으로 설명해보겠다. 



이 방법은 일단 엑셀의 마크로(Macro) 기능을 사용해서

1. 컬러팔렛을 만들어 색과 그 색을 지명하는 색번호를 지정하고 
2. 지정된 색번호로 숫자차트를 만든 후
3. 마크로를 돌려서,
4. 컬러차트를 생성한다.

는 원리이다. 거기에 컬러팔렛, 숫자차트, 컬러차트가 나타나는 위치도 지정해주어야 한다.



말로는 좀 어렵게 느껴지지만 생각보다 쉽다. 

자세한 부분은 잠시 후에 다시 설명하고, 일단 엑셀을 켜서 새 워크북을 하나 연다. 

그럼 이런 화면이 나온다. 

막막... 

일단 처음 할 일은 셀의 크기를 정사각형으로 만드는 거다.

1. A와 1 사이의 삼각형이 있는 회색네모를 클릭해 전체를 선택하고,

2. A와 B칸 사이의 선을 이동해 원하는 넓이로 만든 다음,

3. 1과 2칸 사이의 선을 움직여 정사각형으로 만든다.

그럼 이렇게 될 거다. 

다음으로 팔레트를 지정해야 하는데, 제일 위의 사진을 보면 오리지널 코드의 팔렛은 D5, D6, D7, D8, D9 셀에 지정되어 있다.

우리도 똑같은 위치에 숫자 12345을 넣고 색깔도 정해준다. 
색깔은 노란줄있는 페인트버켓아이콘과 그 옆의 작은 삼각형을 눌러서 변경. 

그리고 오리지널 코드에 숫자차트가 있는 부분인 L6 부터 Y15까지의 셀에 1~5 중의 숫자를 랜덤으로 넣어준다. 이건 안해도 되지만 해놓는 편이 알아보기 편하다.

이렇게

여기까지 했으면 드디어 마크로메뉴를 열어야 한다. 

그전에 일단 여기까지 저장을 해두자 ! 
그리고 혹시 다른 엑셀파일이 열려있다면 다 닫는 것이 좋다. 

마크로메뉴를 여는 단축키는 Alt + F11 이다. 맥에서는 Fn + Alt + F11. 
아니면 메뉴바의 Tools 에서 마크로 - 비주얼베이직에디터 를 클릭해서 열어준다. 

그러면 이렇게 창이 두 개 뜰 것이다.

왼쪽 프로젝트 창의 Sheet1이 선택되어져 있는 걸 확인하고, 오른쪽의 빈 창에 아래코드를 붙여 넣어 준다. ( 아래의 코드는 한군데가 바뀌었다. 원작은 여기에)

혹시나 왼쪽 창 하나만 뜬다면 Sheet1을 더블클릭해서 코드창을 띄워준다.

Sub Paintbynumbers()
Dim Chart, Palette, c As Range
Set Chart = Range("L6:Z24")
Set Palette = Range("D5:D9")
For Each i In Palette
 For Each c In Chart
 If c.Value = i Then
 i.Copy
 c.Offset(rowoffset:=17).Select
 Selection.PasteSpecial Paste:=xlPasteFormats
 Else
 End If
  Next c
 Next i
 Application.CutCopyMode = False
 End Sub

붙여넣은 다음 마크로를 돌려준다. 
메뉴바에서 RUN을 클릭, 제일 위의 Run Sub을 선택하면 된다.
(마크로프로젝트 창 두 개가 가장 위에 있는 상태에서 - 아니면 메뉴바에 Run 메뉴가 나타나지 않음) 
그러면 커서가 깜빡거리며 코드가 돌아간다.

두구두구 ~ 잠시 기다리면.. 짜잔 !! 

짠 !

이렇게 아래쪽에 컬러차트가 나타나면 성공한 것이다  ^ ^

원하는 패턴으로 숫자를 채워서 다시 마크로를 돌리면 컬러차트가 만들어지고, 팔렛에서 색깔을 바꾼 뒤에 돌리면 새로운 색이 적용된다.


짜잔 ~ 즐겁게 사용하기 전에 한가지 팁이 있다. 숫자차트, 컬러차트의 위치와 크기를 변경하는 법이다.

위의 코드에서 빨간색으로 써 있는 부분을 다시보자.

첫번째 빨간글씨 줄 - Set Chart 부분이 숫자차트의 위치를 지정하는 코드이다.
L6가 왼쪽위 꼭지점, Z24가 오른쪽아래 꼭지점이다.   
내가 원하는 위치의 두 셀로 고쳐 넣어주면 된다.

두번째 빨간글씨 줄 - 컬러팔렛의 위치이다. 위와 같은 방식으로 셀을 지정하면 된다. 난 굳이 바꾸지 않았다.

세번째 빨간글씨 줄 - row offset 17 이라고 나와 있는데, 숫자차트의 왼쪽위 꼭지점으로부터 
(현재는 L6) 17번 아래 행에 컬러차트를 만든다 - 는 뜻이다. 

차트의 크기를 생각해서 겹치거나 너무 멀어지지 않는 수로 바꾸면 된다.

옆으로 나란히 만들고 싶다면 row 를 column 으로 바꿔줘야 한다.

아래처럼.  G2셀로부터 옆으로 30번째  셀이 컬러차트가 시작되는 위치이다.

Sub Paintbynumbers()
Dim Chart, Palette, c As Range
Set Chart = Range("G2:AD51")
Set Palette = Range("D5:D9")
For Each i In Palette
 For Each c In Chart
 If c.Value = i Then
 i.Copy
 c.Offset(columnoffset:=30).Select
 Selection.PasteSpecial Paste:=xlPasteFormats
 Else
 End If
  Next c
 Next i
 Application.CutCopyMode = False
 End Sub

그래서 나의 컬러차트는 이렇게 배열되었다 ^ ^

차트만드는 것도 뜨개만큼이나 재미있어서 이것저것 만들어보았는데 그건 다음에 공개하기로 ㅎㅎ

위의 차트는 장갑을 뜨려고 만들었다.

워낙 폭뜨하다보니 블로깅 할 사진 찍는 것 조차 잊어서 시작부분 사진이 없지만,

남친 생일에 주려고 뚜껑있는 장갑을 만드는 중이다. 

벙어리장갑 + 반손가락장갑이 합쳐진 디자인으로 작년까지 무지에서 꽤 비싸게 파는 걸 봤는데 요즘은 얼마인지 급 궁금 ㅎㅎ 

그때그때 필요한 부분을 구글링해가며 직접 정리한 도안으로 만들었다 ^ ^

왼쪽은 다 만들었고, 오른쪽을 만들면서 사진도 자세히 찍고 도안을 정리해보도록... 노력해야겠다 ㅎ;;



음 간만에 유용한 포스팅이었던 것 같아 스스로 기쁘다 ㅎㅎ 누군가에게 도움이 되었길 

그럼 이만 즐뜨~!