겨울이 오고 요즘 폭뜨를 하고있다.
특히 갑자기 추워졌던 지난 주말엔 엑셀로 배색차트 만드는 법에 관한 포스팅을 보고!!
비오는 토요일 스벅으로 친구를 불려내서 도와달라고 괴롭히는 악행까지 저지르며 배운 것이 있느니..
이 기쁨을 함께 나누고 싶다 ㅋㅋㅋㅋ
내가 본 것 중 가장 쓰기 편한 엑셀 배색차트 !!
난 워낙 이런 걸 못해서 도움이 필요했지만 많은 다른 분들은 튜토리얼을 보면 그냥 따라 할 수 있을 것 같다.
친구도 그냥 휘리릭 하니까 됐던 걸 보면.. ;;;
하지만 나처럼 인터넷이나 쓸 줄 아는 실질적인 컴맹인 분들을 위해
(여러분, 우리는 컴맹이 맞습니다. 온라인으로 물건 살 줄 안다고 컴맹이 아닌게 아님 ㅠ ㅠ)
엑셀이 뭔지 처음 보는 분도 따라 할 수 있는 걸 기준으로 설명해보겠다.
이 방법은 일단 엑셀의 마크로(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
그래서 나의 컬러차트는 이렇게 배열되었다 ^ ^
차트만드는 것도 뜨개만큼이나 재미있어서 이것저것 만들어보았는데 그건 다음에 공개하기로 ㅎㅎ
위의 차트는 장갑을 뜨려고 만들었다.
워낙 폭뜨하다보니 블로깅 할 사진 찍는 것 조차 잊어서 시작부분 사진이 없지만,
남친 생일에 주려고 뚜껑있는 장갑을 만드는 중이다.
벙어리장갑 + 반손가락장갑이 합쳐진 디자인으로 작년까지 무지에서 꽤 비싸게 파는 걸 봤는데 요즘은 얼마인지 급 궁금 ㅎㅎ
그때그때 필요한 부분을 구글링해가며 직접 정리한 도안으로 만들었다 ^ ^
왼쪽은 다 만들었고, 오른쪽을 만들면서 사진도 자세히 찍고 도안을 정리해보도록... 노력해야겠다 ㅎ;;
음 간만에 유용한 포스팅이었던 것 같아 스스로 기쁘다 ㅎㅎ 누군가에게 도움이 되었길
그럼 이만 즐뜨~!