色番号に対応する色を表示する

Excel2013で、VBAを使い色番号に対応する色を表示します。

「番号」と「色」をセルに入力し、リボンの［開発］－［コードの表示］をクリックします。

下のVBAコードを入力します。

Sub setcolorindex()
  For i = 0 To 56
      Cells(i + 2, 2).Value = i
      Cells(i + 2, 3).Interior.ColorIndex = i
     
  Next
End Sub

リボンの［マクロ］をクリックし、一覧から作成したマクロ setcolorindexを実行します。

色番号に対応する色が表示されました。