Sunday, June 10, 2007

Excel 엑셀 색상표, VBA 매크로 색깔 차트; Colorindex Color Code Table

엑셀에서 글자색과 배경색으로 사용할 수 있는 색은 0번에서 56번까지, 57개 색깔밖에 없습니다. 그 57개의 색을 도표로 만드는 엑셀 비베 매크로입니다. 좀더 구체적으로 말하자면, "Font.ColorIndex" 또는 "Interior.ColorIndex" 이런 식으로 사용되는 ColorIndex 라는 속성의 값을 표로 만든 것입니다. ColorIndex 라는 속성은 0~56까지의 값을 지정할 수 있는데 각각의 숫자는 색을 의미합니다.

실행하면 다음과 같은 색상표 화면이 나옵니다.

클릭또는옆으로스크롤가능

그림을 옆으로 스크롤해 보면, 파스텔톤의 아름다운 색깔들도 좀 나옵니다.

엑셀 글자색, 배경색 색상표 만들기 비베 매크로

(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.

Sub ColorIndex_Table()
Dim R, myColor
myColor = 0

Cells(1, 1).Value = "< 색 번호 >"
Cells(1, 2).Value = "< 글자색 >"
Cells(1, 3).Value = "< 배경색 >"

For R = 2 To 29
Cells(R, 1).Font.ColorIndex = 0
Cells(R, 1).Value = myColor

Cells(R, 2).Font.ColorIndex = myColor
Cells(R, 2).Value = "Foreground"

Cells(R, 3).Font.ColorIndex = 0
Cells(R, 3).Interior.ColorIndex = myColor
Cells(R, 3).Value = "Background"

myColor = myColor + 1

Next R

For R = 1 To 29
Cells(R, 1 + 4).Font.ColorIndex = 0
Cells(R, 1 + 4).Value = myColor

Cells(R, 2 + 4).Font.ColorIndex = myColor
Cells(R, 2 + 4).Value = "Foreground"

Cells(R, 3 + 4).Font.ColorIndex = 0
Cells(R, 3 + 4).Interior.ColorIndex = myColor
Cells(R, 3 + 4).Value = "Background"

myColor = myColor + 1

Next R

End Sub

tag: office

엑셀 Excel | 워드 Word | VBA 매크로 | 오피스

0 Comments: