Excel2010で検索マクロを描きたい

Question

###前提・実現したいこと
列Aに5桁の文字列（4桁+アルファベット1文字/3356L等）が入力されています。
行数は3000以上あります。
列Aにオートフィルタを掛けていて、プルダウンから検索ボックスに検索したい文字列を入力して検索します。
例）3356L

最初に検索した文字列に追加して、更に検索を行うときに”現在の選択範囲をフィルターに追加する”を毎回チェックして
複数検索をしています。

この一連の操作をVBAで作成したいです。
行いたいこと
1）検索ボックスを作る
2）複数検索できる窓がある
3）検索実行ボタンを押すと、列Aが検索ボックスに入力した文字列でフィルタがかかる。

###試したこと
vba オートフィルタ等で検索して動かしてみましたが
検索だけではなく、別シートに抽出などばかりのコードで
単純に複数検索するものが見つけられませんでした。

###補足情報(言語/FW/ツール等のバージョンなど)
Excel2010を使用しています。

Answer 1

自分の知識をひけらかす輩ばかりで有用な回答が得られませんでした。

解決方法として、ソフトハウスに作らせました。
金さえ払えばここでグダグダ言われなくても解決できます。

Comments

[takito]

ＱＡサイトはどこだって自分の知識をひけらかす場ですけどね、、、お金で解決できたようで何よりです

[jawa]

解決するための情報（知識）を求めて質問したのかと思いましたが。
何を求めて来たんでしょうね。

Answer 2

検索機能で絞り込んでいるので部分一致での検索かと思いましたが、実現したいイメージ図ではフル桁（５桁）入力されていますね。

VBAでAutoFilterに部分一致の検索をさせる場合は条件を２つまでしか指定できませんが（私が知らないだけかも？）、完全一致なら３つ以上のキーワードでの抽出も可能です。

基本的に未完成でも自身で作成されたコードを提示していただいている質問にしかサンプルコードを提供しない主義なのですが、今回は言葉で伝えるのがたいへんだったので簡単なサンプルを書いておきます。

'検索キーワードの配列を作る
Dim aryFilter(3) As String
aryFilter(0)="00001A"
aryFilter(1)="00002B"
aryFilter(2)="00003C"

'オートフィルターの2列目を配列の内容で絞り込む
ActiveSheet.Columns(1).AutoFilter Field:=2, Criteria1:=aryFilter, Operator:=xlFilterValues

実際には検索キーワードに入力されている件数だけ文字列配列を拡張しながら配列を作成する必要があると思いますが、絞り込みに関しては上記のような記述で実現できると思います。
がんばってみてください。

Comments

[退会済みユーザー]

わざわざ主義を捻じ曲げて解凍ありがとう！！！

簡単に主義を曲げるんだね！かっこいいよ！

Answer 3

考え方の提案として

もし、末尾の列などを作業用に使ってよい、という条件なら

仮にそれ（作業用列）が「Ｚ」だとします

１）検索欄に入れたキーワードにマッチする行を見つけ、Ｚ列に【1】を入れます
（入れるものは何でもいいです、数値でも文字でも）

２）オートフィルタ機能を使ってＺ列に【1】の入っている行だけの表示にします

以上はVBAで十分実現できます

こうすればオートフィルタの検索条件を複雑に考えるより楽だと思います

Comments

[退会済みユーザー]

回答ありがとうございます。
ご提示して頂いた内容を実行したプレビューを見てみたいのですが
可能でしょうか。

[takito]

「やりたいこと」で提示されている通りの結果を見られるだけと思いますが、、、どのあたりに不安があるでしょうか？

[退会済みユーザー]

”VBAで十分実現できます”と書かれていたので
そのコードを書いていただけませんか？といことです。

[退会済みユーザー]

追加条件として、Z列は利用できません。利用できるのはA～H列で
他の列には一切書き込み禁止です。
尚且つ、すでにA～Hにはシステムよりインポートしたデータがセットされています。

[takito]

使える列が無いのであれば、この提案は採用できないようですね。
vba オートフィルタ等で検索して動かしてみました、と書かれていたので、先ずはご自身のコードを提示されてはいかがでしょうか。
この部分をこうしたらうまくいきますよ、というアドバイスをすることがteratailの趣旨だと私は理解していますので。

[takito]

> Z列は利用できません。利用できるのはA～H列で他の列には一切書き込み禁止です。
についてですが、書き込み禁止を一時的に解除することも許されないでしょうか？
「どうしたらできるか」を考えてみましたが
エクセルのロックを解除→提案の処理を実行→作業列の内容をクリア→再びエクセルをロック
という方法もあります
それも許されないなら他の案を出すしかなさそうです

[退会済みユーザー]

あなたの思うtetatailの趣旨はどうでもいいんですよ。

手っ取り早く提示できないなら無視すればいいじゃないですか。