승승아빠 엑셀 추가기능(엑셀 리본메뉴): Color index for Excel vba(엑셀 VBA 컬러 인덱스)

2020년 7월 27일 월요일

Sub FindColorIndex ()

  Dim j As Integer

  For j = 1 To 56
   Cells(j, 1).Value = j
   Cells(j, 2).Interior.ColorIndex = j
  Next

End Sub