塗りつぶし
緑色
緑色
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
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
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
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
End Sub