エクセルで特定の文字列を含むセルを自動的に塗りつぶしたい

質問

ということなのですが。条件付き書式、あるいはマクロなどで解決できないでしょうか？　特定の文字列に「等しい」セルを塗りつぶすというのは、かんたんにできるようなのですが、「含む」になると、過去ログから見つけられませんでした。

300ファイルくらいあるデータから、特定の文字を含むセルをマーキングし、情報を抽出せねばなりません。

どなたか知恵をかしてくださいませ！

回答No.6

kojitti · ベストアンサー

これでどうでしょうか？
Sub main()
Moji = "特定の文字列"
For i = 1 To Sheets.Count
With Worksheets(i).Range("a1:IV65536")
Set c = .Find(Moji, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next i
End Sub

お礼

いけてます。
しかし、網掛けなのが少し見えずらいかもしれません…。
ぜいたくですが。
色をしくとかって可能ですか？　さらにぜいたくですが、
その横一列をピンク色とかにするのって可能ですか？

お手数おかけします。

回答No.9

kojitti

＞しかし、網掛けなのが少し見えずらいかもしれません…。ぜいたくですが。

この部分をお好みに変えればよいとおもいます。
c.Interior.Pattern = xlPatternGray50

＞その横一列をピンク色とかにするのって可能ですか？
もちろん可能なのですが、そもそもシートの全セルを検索対象にしていますが、検索対象とするのは特定の列のみでよいのでしょうか？

補足

すみません。お手数おかけしております。

検索文字が含まれる列は、3列ほどに限定されています。パターンのところは、ほかの質問者の方への回答などから調べればわかりそうなので、もしあれでしたら…。

回答No.8

imogasi

＃５です。お礼の記述に関連して。当方ＷＩＮ９８ＳＥで
エクセル２０００でやってます。ですから２０００でうまく行かないのは信じられません。ＯＳのバージョンは関係ないと思います。かといって原因を思いつくものはありませんが。
文字列を英数半角、全角等変えてテストしてみてもらえませんか。式をミスタイプしないようにして。Ｂ付きとＢなし(FIND,FINDB)の関連はないかなあ。

お礼

ありがとうございました。
B付き、Bなしも試してみます。
半角、全角は両方試してみたのですけど…。

回答No.7

maruru01

こんにちは。maruru01です。

条件付き書式で、以下のような式もあります。

「数式が」
「=COUNTIF(A1,"*abc*")>0」

お礼

わたしがあほなせいなのか、できません。
アスタリスクって必要なんですよね？

回答No.5

imogasi

１つの同じシート内の操作に限られますが、
（やって見るとＣＴＲＬキーを押しながら、別のシートタブを次々クリックすると、同一区画の範囲指定で良ければ、２以上シート間でも１回の下記の操作で書式設定ができました。）
（１）「特定の文字列を含む」を問題にする、セルを範囲指定する。
（２）書式－条件付き書式－「数式が」を選ぶ
（３）数式のボックスに
=FIND("dd",A2)>0と入れる。（仮にddを含むを考える）。
（４）書式を指定する。「パターン」のタブをクリックして色を指定。
（５）「ＯＫ」をクリック
これでｄｄを含むセル（だけ）の色が変わります。
検索にはFIND,FINDB,SEARCH,SEARCHBがありますので
違いを調べて、適当なものを使ってください。

お礼

ありがとうございました。さっそくやってみました。
OSがXPだとうまくいくのですが、2000だと、
なぜか処理できません。
ファイルの書式設定のせいなのかなと思うのですが…。

回答No.4

how-do-you-do

#3の方と同じですが...

[数式が]　=ISERROR(FIND("検索文字",対象セル))=FALSE

回答No.3

ja7awu

条件付き書式で「含む」ですと、こんな感じでどうでしょうか。

例：　セルA1の文字列に"abc" が含まれているとき

[数式が]　=LEN(A1)<>LEN(SUBSTITUTE(A1,"abc",""))

300ファイルもあるのに、こんなことでいいのかな？　と気にはなりますが・・・
詳しい状況が解りませんので、そこには触れません。

回答No.2

4500rpm

＃１です。
少しちがってました。
１）編集→置換でオプションを押して下さい。
２）検索する文字列と置換後の文字列を同じ文字にして、置換後の書式でセルの色を指定して下さい。
これで置換すると指定文字が含まれているセルの色が変わります。書式設定により文字色を変えたりすることもできます。
くれぐれも置換後の文字を同じにして下さい。

回答No.1

4500rpm

エクセル２００２ですが、編集の検索で書式を設定するところがあるので、そこで設定するとできると思います。

お礼

すみません。明記してなかったのですが、エクセルは2000を使ってます。