塗りつぶし

赤色

黄色

灰色

薄色

赤色

Sub 塗りつぶし_赤色() 'セルの塗りつぶしの赤色を自動変換 If Selection(1).Interior.Color = 255 Then With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 255 '赤 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End If End Sub

黄色

Sub 塗りつぶし_黄色() 'セルの塗りつぶしの黄色を自動変換 If Selection(1).Interior.Color = 65535 Then With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 '黄 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If End Sub

灰色

Sub 塗りつぶし_灰色() 'セルの塗りつぶしの灰色を自動変換 If Selection(1).Interior.ColorIndex = 15 Then With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = 15 '灰色 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If End Sub

薄色

Sub 塗りつぶし_薄色() 'セルの塗りつぶしの薄色を自動変換 If Selection(1).Interior.ThemeColor = xlThemeColorAccent1 Then With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = 15 '灰色 .TintAndShade = 0 .PatternTintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent1 '青 .TintAndShade = 0.799981688894314 .PatternTintAndShade = 0 End With End If End Sub

緑色

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

自動

Sub 塗りつぶし_自動() 'セルの塗りつぶしの色を自動変換 If Selection(1).Interior.Color = 65535 Then '黄 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 15773696 '青 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With ElseIf Selection(1).Interior.Color = 15773696 Then '青 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 49407 '橙 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With ElseIf Selection(1).Interior.Color = 49407 Then '橙 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5296274 '緑 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With ElseIf Selection(1).Interior.Color = 5296274 Then '緑 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = 16 '灰 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With Else With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 '黄 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 End With End If End Sub