Excel VBA 指定した値を含むデータのセルに色をつける

Sub 抽出色()
Dim 検索文字 As String
  検索文字 = InputBox("検索する文字列を入力してください。")
  Application.ReplaceFormat.Clear
  Application.ReplaceFormat.Interior.ColorIndex = 3
  Range("A1").CurrentRegion.Replace 検索文字, "", LookAt:=xlPart, ReplaceFormat:=True
  Application.ReplaceFormat.Clear
End Sub

3行目【検索文字 = InputBox(“検索する文字列を入力してください。”)】
InputBox【ｲﾝﾌﾟｯﾄﾎﾞｯｸｽ】関数を使用して、ユーザーに検索する文字列を入力してもらい、変数「検索文字」に代入します。

4行目【Application.ReplaceFormat.Clear】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのReplaceFormat【ﾘﾌﾟﾚｲｽﾌｫｰﾏｯﾄ】プロパティを使用して、置換え後の書式設定を表すCellFormat【ｾﾙﾌｫｰﾏｯﾄ】オブジェクトを取得し、Clear【ｸﾘｱ】メソッドで現在設定されているかもしれない置換え後の書式設定を削除します。

5行目【Application.ReplaceFormat.Interior.ColorIndex = 3】
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのReplaceFormat【ﾘﾌﾟﾚｲｽﾌｫｰﾏｯﾄ】プロパティを使用して、置換え後の書式設定を表すCellFormat【ｾﾙﾌｫｰﾏｯﾄ】オブジェクトを取得し、Interior【ｲﾝﾃﾘｱ】プロパティで取得した塗りつぶし属性を表すInterior【ｲﾝﾃﾘｱ】オブジェクトを取得して色を設定するColorIndex 【ｶﾗｰｲﾝﾃﾞｯｸｽ】プロパティに赤を表す3を指定します。

6行目【Range(“A1”).CurrentRegion.Replace 検索文字, “”, LookAt:=xlPart, ReplaceFormat:=True】
Raneg【ﾚﾝｼﾞ】オブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティでA1セルから始まるデータ範囲を参照して、Range【ﾚﾝｼﾞ】オブジェクトの置換えを表すReplace【ﾘﾌﾟﾚｲｽ】メソッドを実行します。

検索する文字列を設定する引数What【ﾜｯﾄ】には、変数「検索文字」を指定し、置換え後の文字列を設定する引数Replacement【ﾘﾌﾟﾚｲｽﾒﾝﾄ】には、文字列を置き換えないので、長さ0の文字列「””」を指定します。

検索内容を完全一致にするか部分一致にするかを設定する引数LookAt【ﾙｯｸｱｯﾄ】に部分一致を表す定数「xlPart」を指定し、置換えの書式を設定するかしないかを設定する引数ReplaceFormat【ﾘﾌﾟﾚｲｽﾌｫｰﾏｯﾄ】に書式の設定を表すTrueを指定します。

7行目【Application.ReplaceFormat.Clear】
置換え後の書式を設定した場合、その書式設定が以降も残ってしますので、Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのReplaceFormat【ﾘﾌﾟﾚｲｽﾌｫｰﾏｯﾄ】プロパティを使用して、置換え後の書式設定を表すCellFormat【ｾﾙﾌｫｰﾏｯﾄ】を取得し、Clear【ｸﾘｱ】メソッドを使用して設定した置換え後の書式設定を削除します。