Sub NewColor_10進数() '----- 背景色 ----- Range("B2").Interior.Color = 16764159 'セルにインデックス番号「ピンク」を設定 Range("B4").Interior.Color = 16772300 'セルにインデックス番号「ブルー」を設定 '----- フォント色 ----- Range("B6:B7").Font.Color = 12611584 '色のインデックス番号「青」を設定 '----- シート名色 ----- Worksheets("Sheet1").Tab.Color = 255 'シートに色のインデックス番号「赤」を設定 End Sub