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 |