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