|
Option Explicit
Option Base 1
'# Check the Color Chart of ActiveWorkbook
'# Author : Joowon Oh (abyul@naver.com )
'# Homepage : http://abyul.com/
Sub checkColorChart()
Dim TheArray As Variant
'엑셀 파일의 colorIndex를 색상표에 맞춰 표시하기 위한 배열
TheArray = Array(1, 53, 52, 51, 49, 11, 55, 56, 9, 46, 12, 10, 14, 5, 47, 16, 3, 45, 43, 50, 42, 41, 13, 48, 7, 44, 6, 4, 8, 33, 54, 15, 38, 40, 36, 35, 34, 37, 39, 2, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
Dim i As Integer
For i = 1 To 56
Selection.Interior.ColorIndex = TheArray(i)
Selection = ActiveWorkbook.Colors(TheArray(i))
If i Mod 8 = 0 Then
Selection.Offset(1, -7).Select
Else
Selection.Offset(0, 1).Select
End If
Next i
End Sub |
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별
