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 매크로가 실행됩니다.
실행하면 다음과 같은 색상표 화면이 나옵니다.
클릭또는옆으로스크롤가능
그림을 옆으로 스크롤해 보면, 파스텔톤의 아름다운 색깔들도 좀 나옵니다.
엑셀 글자색, 배경색 색상표 만들기 비베 매크로
(엑셀에서 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
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 매크로 | 오피스
<< Home