[[20210525222526]]　『VBAで指定した文字列を含むセルにそれぞれ違う色ａx（^^）　ページの最後に飛ぶ

『VBAで指定した文字列を含むセルにそれぞれ違う色をつけたい』（^^）

お世話になります。
VBAで指定した文字列を含むセルにそれぞれ違う色をつけたいのですが、ご教授を宜しくお願い致します。

検索範囲　A1～Z100

Aが含むセルに青
Bが含まれるセルに黄
Cが含まれるセルに赤

例

A12345　青
12345B　黄
12C345　赤

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

条件付き書式ではだめでしょうか

（マナ） 2021/05/25(火) 22:44

条件付き書式も考えたのですが、コピー貼り付け作業が多いので消してしまいそうなもので。
（^^） 2021/05/25(火) 23:08

そうですか。マクロは他の回答者をお待ち下さい。

 ※今日はなんだか広告が多いなぁ…

（マナ） 2021/05/25(火) 23:14

    Sub sample1()
        With Range("A1:Z100").FormatConditions
          .Delete
          .Add(Type:=xlTextString, String:="A", TextOperator:=xlContains).Interior.Color = vbBlue
          .Add(Type:=xlTextString, String:="B", TextOperator:=xlContains).Interior.Color = vbYellow
          .Add(Type:=xlTextString, String:="C", TextOperator:=xlContains).Interior.Color = vbRed
        End With
    End Sub
 これだと、大文字小文字を区別してくれないみたいですね。
 なので、   
    Sub sample2()
        With Range("A1:Z100").FormatConditions
          .Delete
          .Add(Type:=xlExpression, Formula1:="=IFERROR(FIND(""A"",A1),0)").Interior.Color = vbBlue
          .Add(Type:=xlExpression, Formula1:="=IFERROR(FIND(""B"",A1),0)").Interior.Color = vbYellow
          .Add(Type:=xlExpression, Formula1:="=IFERROR(FIND(""C"",A1),0)").Interior.Color = vbRed
        End With
    End Sub
（´・ω・`） 2021/05/25(火) 23:31

（´・ω・`）さんありがとうございます。
希望以上の結果です。
助かりました、ありがとうございました。
（^^） 2021/05/25(火) 23:51

コメント返信：

[ 一覧(最新更新順) ]

[[20210525222526]] 『VBAで指定した文字列を含むセルにそれぞれ違う色ａx（^^） ページの最後に飛ぶ

[[20210525222526]]　『VBAで指定した文字列を含むセルにそれぞれ違う色ａx（^^）　ページの最後に飛ぶ