塗りつぶし

緑色

Sub 塗りつぶし_緑色()        If Selection(1).Interior.ThemeColor = xlThemeColorAccent6 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent6            .TintAndShade = 0.399975585192419            .PatternTintAndShade = 0        End With            ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent6 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.4 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent6            .TintAndShade = 0.599993896298105            .PatternTintAndShade = 0        End With        ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent6 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.6 Then                With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent6            .TintAndShade = 0.799981688894314            .PatternTintAndShade = 0        End With            ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent6 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.8 Then            With Selection.Interior            .Pattern = xlNone            .TintAndShade = 0            .PatternTintAndShade = 0        End With                With Selection.Font            .ColorIndex = xlAutomatic            .TintAndShade = 0        End With        Else            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent6            .TintAndShade = 0            .PatternTintAndShade = 0        End With        End If
End Sub

水色

Sub 塗りつぶし_水色()        If Selection(1).Interior.ThemeColor = xlThemeColorAccent5 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent5            .TintAndShade = 0.399975585192419            .PatternTintAndShade = 0        End With            ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent5 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.4 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent5            .TintAndShade = 0.599993896298105            .PatternTintAndShade = 0        End With        ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent5 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.6 Then                With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent5            .TintAndShade = 0.799981688894314            .PatternTintAndShade = 0        End With            ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent5 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.8 Then            With Selection.Interior            .Pattern = xlNone            .TintAndShade = 0            .PatternTintAndShade = 0        End With                With Selection.Font            .ColorIndex = xlAutomatic            .TintAndShade = 0        End With        Else            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent5            .TintAndShade = 0            .PatternTintAndShade = 0        End With        End If
End Sub

橙色

Sub 塗りつぶし_橙色()        If Selection(1).Interior.ThemeColor = xlThemeColorAccent4 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent4            .TintAndShade = 0.399975585192419            .PatternTintAndShade = 0        End With            ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent4 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.4 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent4            .TintAndShade = 0.599993896298105            .PatternTintAndShade = 0        End With        ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent4 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.6 Then                With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent4            .TintAndShade = 0.799981688894314            .PatternTintAndShade = 0        End With            ElseIf Selection(1).Interior.ThemeColor = xlThemeColorAccent4 _        And Round(Selection(1).Interior.TintAndShade, 2) = 0.8 Then            With Selection.Interior            .Pattern = xlNone            .TintAndShade = 0            .PatternTintAndShade = 0        End With                With Selection.Font            .ColorIndex = xlAutomatic            .TintAndShade = 0        End With        Else            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .ThemeColor = xlThemeColorAccent4            .TintAndShade = 0            .PatternTintAndShade = 0        End With        End If
End Sub

黄赤

Sub 塗りつぶし_黄赤()        If Selection(1).Interior.Color = 65535 Then            With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .Color = 255            .TintAndShade = 0            .PatternTintAndShade = 0        End With            With Selection.Font            .ThemeColor = xlThemeColorDark1            .TintAndShade = 0        End With        ElseIf Selection(1).Interior.Color = 255 Then            With Selection.Interior            .Pattern = xlNone            .TintAndShade = 0            .PatternTintAndShade = 0        End With                With Selection.Font            .ColorIndex = xlAutomatic            .TintAndShade = 0        End With        Else                With Selection.Interior            .Pattern = xlSolid            .PatternColorIndex = xlAutomatic            .Color = 65535            .TintAndShade = 0            .PatternTintAndShade = 0        End With                With Selection.Font            .ColorIndex = xlAutomatic            .TintAndShade = 0        End With        End If
End Sub