配色 123456Sub SetMyColor() Activeworkbook.Colors(1)=RGB(0,56,115) Activeworkbook.Colors(53)=RGB(247,0,0) Activeworkbook.Colors(52)=RGB(206,219,231) Activeworkbook.Colors(51)=RGB(231,239,247)End Sub