配色

image-20240507110358586

1
2
3
4
5
6
Sub SetMyColor()
Activeworkbook.Colors(1)=RGB(056,115)
Activeworkbook.Colors(53)=RGB(247,0,0)
Activeworkbook.Colors(52)=RGB(206219231)
Activeworkbook.Colors(51)=RGB(231,239,247)
End Sub