【エクセルマクロ】セルの色を置換する:使用例3選

エクセルマクロ_セルの色を置換_アイキャッチ ExcelVBA

エクセルマクロで、セルの背景色を置換するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。
 

セルの色を置換(Select Case使用)

以下のマクロを実行すると、セルの背景色を置換します。


Sub セルの背景色を変更()
  
    Dim MyRange As Range
  
    '指定範囲
    For Each MyRange In Range("A2:F21")
        Select Case MyRange.Interior.Color
        
            'イエローだったらグリーンに色を変換
            Case 65535
                MyRange.Interior.Color = 5287936
                
            'オレンジだったらイエローに色を変換
            Case 49407
                 MyRange.Interior.Color = 65535
        
        End Select
    Next
  
End Sub

 

Select Case を使用して、セルの塗りつぶしの色を変更します。
・イエローをグリーンに置換
・オレンジをイエローに置換


 
 

セルの色を置換(ReplaceFormat使用)

以下のマクロを実行すると、セルの背景色を置換します。


Sub セルの色を変換()

    '置換前の色(黄色)
    Application.FindFormat.Interior.Color = 65535
    
    '置換後の色(青色)
    Application.ReplaceFormat.Interior.Color = 15773696
    
    '置換実行
    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

End Sub

 

ReplaceFormat を使用して、セルの色を置き換えます。
・イエローをブルーに置換


 
 

セルの色を置換(配列使用)

以下のマクロを実行すると、配列を使用してセルの背景色を置換します。


Sub セルの色を変更()

Dim BeforeColor() As Variant
Dim AfterColor() As Variant
Dim Q As Long
    
 '置換前の色を配列に入れる
 BeforeColor = Array(65535, 49407)
    
 '置換後の色を配列に入れる
 AfterColor = Array(5287936, 65535)
    
 '配列をループ
 For Q = 0 To UBound(BeforeColor)
    
   '置換前の色を設定
   Application.FindFormat.Interior.Color = Int(BeforeColor(Q))
        
   '置換後の色を設定
   Application.ReplaceFormat.Interior.Color = Int(AfterColor(Q))
        
   'セルの塗りつぶしの色を置換実行
   Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
       xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
        
 Next Q

End Sub

 

配列を使用して、置換前と置換後の色を指定しました。
複数セルの色を一括置換することができます。

[BeforeColor = Array(65535, 49407)] で、置換前の色を指定
[AfterColor = Array(5287936, 65535)] で、置換後の色を指定

[65535] を [5287936] に置換(黄色を緑色に置換)
[49407] を [65535] に置換(オレンジを黄色に置換)


 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】色付けを自動化する使用例まとめ
 

【エクセルマクロ】色付け処理を自動化する:超便利32選
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説