特定のセルを検索するマクロ

質問

お世話になります。

現在EXCELで、表の中から特定のセル（行）を抽出するマクロを組んでいます。
マクロの内容は次の通です。

Sub 条件検索()
'
Rows("12:9000").Select
Selection.ClearContents
Range("G10").Select

Dim myCriteria As Range

Set myCriteria = Worksheets("データ検索用").Range("B4").CurrentRegion
'
Sheets("積算データ").Range("A1:O9000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=myCriteria, CopyToRange:=Range("B12"), Unique:=False

「データ検索用」シートにセルB4～G8まで検索条件入力用のセルがあり（入力内容の有無によって条件範囲が可変します）、入力された条件を「積算データ」というシート（A列～O列までの表で約9000行あります）で検索し、セルB12から下に検索結果を表示するというものです。
なお、検索する際にはコマンドボタンを押す事で検索を掛けています。再検索時には既存の検索結果が削除されるようになっています。

このマクロの「検索条件」に於いて、質問があります。

たとえば次のような場合です。

検索対象データ
・コンセントボックス
・コンセントプラグ
・露出コンセント
・埋込コンセント
・防爆コンセント

検索条件：コンセント

検索結果
・コンセントボックス
・コンセントプラグ

となってしまい、検索対象の先頭に検索条件の文字列が無いものは検索されません。

検索対象の文字列に検索条件の文字列が入っていれば、その位置にかかわらず検索結果に反映されるにはどうすればいいでしょうか？

回答No.4

tsubuyuki · ベストアンサー

> 「条件項目名」が複数ある
なるほどです。

>「データ検索用」シートにセルB4～G8まで検索条件入力用のセルがあり
とのことですから、私の予想では「４行目に項目、５行目以降に検索すべき単語」だと思いますので
「４行目には"*"をつけない」と言う逃げの一手でいかがでしょう。

　　If myCell.Row <> 4 Then　

こんな感じでしょうか。

追記）
「露出コンセント」に対比させたくて「露出○○」な言葉を探したら
当該の言葉しか思いつかなかったもので（汗）。
失礼いたしました（大汗）。

お礼

御回答ありがとうございます。

書いて頂いた式を再度入力したのですが・・、なぜか検索結果が全く表示されません(;_;)

疑問に思い直接「*コンセント*」と直接ワイルドカードを入力すると結果が表示されます。

いろいろ検証してみた結果、tsubuyukiさんが示して頂いた例の様に「単一」条件の場合に関してはマクロで「*文字列*」と変換してからの検索はできるのですが、「複数」条件になるとこれができなくなるようです。
試しに、tsubuyukiさんの例で、各項目に番号を付け、検索条件にも番号を追加すると、検索結果が出なくなりました。

「含む」の検索をする場合は手入力で「*」を入れる、という方法の方がいいのかもしれません・・（泣

回答No.3

tsubuyuki

＃１さんが仰るとおり、ワイルドカードを使用して、「含む」の検索をするのが良いかと思います。
積極的な手段とは言いづらいのですが、以下のように。

Sub 条件検索()
Dim myCriteria As Range, myCell As Range

　　　　Rows("12:9000").Delete
　　　　Range("G10").Select

　　　　Set myCriteria = Worksheets("データ検索用").Range("B4").CurrentRegion
　　　　　　　　For Each myCell In myCriteria
　　　　　　　　　　　If myCell <> "条件項目名" Then　　　　' 実際の項目名に変更して下さい
　　　　　　　　　　　　　　myCell = "*" & myCell & "*"
　　　　　　　　　　　End If
　　　　　　　　Next myCell

　　　　Sheets("積算データ").Range("A1:O9000").AdvancedFilter Action:=xlFilterCopy, _
　　　　CriteriaRange:=myCriteria, CopyToRange:=Range("B12"), Unique:=False

　　　　myCriteria.Replace What:="~*", Replacement:="", LookAt:=xlPart
End Sub

単純に、条件として入力されたセル（Ｂ４：Ｇ８）の中身を「*条件*」に書き換えてやります。
それをもってアドバンスドフィルタをかけてやり、最後に「*」を消してやる、と言う考えです。

少々セル番地が違いますが、上記マクロを走らせた結果が添付図です。
コンセントを含む語句のみを抽出してきています。
Ａ列が元のリスト、Ｃ列が条件、Ｅ列が結果、とお読み下さいませ。

お礼

回答ありがとうございます。
添付ファイルに「露出狂」という項目が入っていて笑ってしまいました（笑）。

ただ・・・せっかくコードまで書いた頂いたのに申訳ありませんが、

If myCell <> "条件項目名" Then　　　　
' 実際の項目名に変更して下さい
myCell = "*" & myCell & "*"
End If
Next myCell

の部分で「条件項目名」が複数ある為に悩んでいます。
項目は「追番」「項目」「名称」「摘要」「備考」「施工」の6項目あります。

できれば複数項目の場合についてもお答頂けると助かるのですが・・＞＜

回答No.2

kero1192kero

No.1です。
最初の回答例は、検索条件の入れるセルに入っている語句に直接アスタリスクを付け加えてください。

マクロで記述する場合は、
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1127213686
を参考にして、記述してみてください。

自分が記述してもいいのですが、マクロがかなり未熟なもので、間違えた記述をしてしまうと、御迷惑がかかるので。

お礼

再びありがとうございます。

マクロの例を見て、自分なりに入れてみましたが、エラーが出てしまう為、もう少し勉強してみます。

回答No.1

kero1192kero

検索条件のコンセントの両隣*を付け加えてください。*コンセント*

これでコンセントを含むになるはずです。

お礼

ありがとうございます。

ただ・・・毎回検索条件で「*」を入れる、というのは現実的ではありません＞＜

お答頂いたのに申訳ありません。