【VBA】指定した文字列が設定されているセルの背景色を置換する

VBAで
 ・指定した文字列が設定されているセルの
 ・背景色を置換する
方法を記載します!

VBAコード

ここでは例として、シート「sample」の文字列「営業」を検索し、見つかったセルの背景色を
 ・背景色無しから
 ・背景色を薄いピンク
置換します。

Option Explicit

Sub sample()

    '置換の設定を初期化
    Application.ReplaceFormat.Clear
    
    '置換後のセルの背景色に薄いピンクを指定
    Application.ReplaceFormat.Interior.Color = XlRgbColor.rgbLightPink
    
    'セルの背景色を置換する
    Worksheets("sample").Cells.Replace what:="営業", Replacement:="", _
                         SearchFormat:=False, ReplaceFormat:=True
                         
    '置換の設定を初期化
    Application.ReplaceFormat.Clear
    
End Sub

what・・・・・・・置換したいセルに設定されている文字列を指定します。
Replacement ・・・空文字列を指定します。
SearchFormat・・・書式を検索しない(False)を指定します。※文字列で検索するため
ReplaceFormat・・ 書式を置換する(True)を指定します。

実行結果

文字列「営業」が設定されているセルの背景色を置換することが出来ました。

タイトルとURLをコピーしました