AdvancedFilter 検索 複数条件

質問

AdvancedFilterを使って検索をしたいのですが、複数条件のVBAマクロの書き方を教えてください。

エクセル2010です。

2行目が見出し行で実際のデータは4行目から入っており、

T列を複数条件で検索をしたいのですが、

T4＝スカート 150サイズ,ズボン 120サイズ,Tシャツ 150サイズ
T5＝スカート,ズボン 150サイズ,
T6＝Tシャツ 150サイズ,スカート 120サイズ

1セルに対して、検索用文字列が数十種類入っている状態です。

これをUseFormを利用して複数条件で検索をしたいのですが、

テキストボックス1、テキストボックス2、コマンドボタン1

があるとして、

テキストボックス1にスカート
テキストボックス2に150

と入れて検索をかけたとき、T4のみが抽出結果に表示させたいです。

テキストボックス1にスカートのみで検索をかけると、T4-6が出るように表示させたいです。

テキストボックス1にTシャツ
テキストボックス2に150

T4とT6が出るようにしたい。

このような事は出来るのでしょうか？

Private Sub CommandButton2_Click()
Worksheets("マスタ").Activate
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("BH1:BU4").ClearContents
Range("BH1:BU4").NumberFormatLocal = "@"

Range("BS2").Value = Range("T2").Value
Range("BS2").Value = Range("T2").Value

If Me.TextBox1.Value <> "" Then ' 種類
Range("BS3").Value = "*" & Me.TextBox1.Value & "*"
End If

If Me.TextBox2.Value <> "" Then ' サイズ
Range("BS4").Value = "*" & Me.TextBox2.Value & "*"
End If

If Cells(3, Columns.Count).End(xlToLeft).Column > 48 Then
Range("A2:AW" & Rows.Count).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("BH2").CurrentRegion, Unique:=False
End If
Range("BH1:BU4").ClearContents
Range("A1").Activate
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

これだと機能しないため、マクロを組める方、教えてほしいです。

オートフィルタだと、どうしてもフィルタボタンが出てしまい、見にくいので、

AdvancedFilterでやりたいのが希望です。

VBAわかる方、教えてください。

宜しくお願い致します。

回答No.9

cj_mover

＃２ー８、ｃｊです。＃８補足欄拝見しました。

> B列に変えたらいけました。ありがとうございます。

了解です。よかったです。

> T4＝あああ 20　いいい 20　ううう 90
> T5＝あああ 50
> T6＝おおお 20
>
> とあるとして、
>
> テキストボックス1に【あああ】
> テキストボックス2に【20】
>
> と入れた場合、T4のみが出てくるようにしたいのですが、
>
> 今のコードで試したところ、T4とT6が出てきてしまうのですが、

ご説明自体はよく解りますが、現象としては不可解です。
ご提示の条件で（最下行の基準をB列に変え）繰り返し動作確認しましたが、
何れも正常な結果を返すようです。
「何処に」＊５点　「何を」＊５点　という条件ひとつひとつについて、
もう一度確認してみて下さい。
併せて、
CommandButton2をクリックしているか、
Private Sub CommandButton2_Click()の（実際の）記述が具体的にどうなっているか、
書換えた部分があるなら、その部分に注目するように再チェックしてみてください。
また、今回、Ｂ列の最下行を基準にするということですから、
記述の書換え（Ｂ列）が適用されていること、
実際のＢ列の最下行が６行めより下にあること、
を、（各試行ごとに変えることなく）確かめてください。
私が提示した１）２）３）については、何れも、
ご説明通りの条件でテストすると、ご指摘のような不正処理を再現出来ません。
何か他の（説明にない）条件が原因と思えるぐらい、普通は起こり得ない現象です。
現在知り得る限りでは、「1+1は2です」「よね？」的に不思議な心持ちです。
とりあえず、確認して貰って、それでも活路を見いだせない場合は、
実際の"今のコード"を提示してみてください。
実際のコードが私の期待する通りのものであるのに、
間違いなく、不正な結果を出すのでしたら、
その場合は、いよいよ実物ファイルをアップして貰って見てみないと解らないかも知れません。
少なくとも今の私には、それ以外考えられません。

ところで、
先回までのやり取りの中で色々新しく解ってきたことを踏まえて、
私が提示したものの中では、Excel数式を使うタイプの２）をお奨めしたいと考えていましたが、
２）や３）は、（各[車種][型番]の組合せが）カンマで区切られている前提で書いていますので、
例えば、（テキストボックス1に【あああ】テキストボックス2に【20】は共通）
　T4＝あああ 20,いいい 20,ううう 90
　T5＝あああ 50,いいい 20
　T6＝おおお 20
というサンプルでは、正しくT4だけを抽出しますが、
　T4＝あああ 20　いいい 20　ううう 90
　T5＝あああ 50　いいい 20
　T6＝おおお 20
というサンプルでは、T4,T5を抽出し、不正に終ります。
（今、問題にしているサンプルの場合は、偶々、どれも正しい結果を返す筈ですが、、、。）
前提が変わったのか、前提が間違っていたのか、今回の説明が違うのか、どれかだと思いますが、
区切り文字を変えるってことは、対象の文字列も変われば、抽出条件も変わる、ということです。
この点も、よく確認した上で、あなたが求める仕様について、
未だに言い表せていない要求仕様があるなら、少し整理する時間が必要かも知れませんね。
最終的にどんな仕様にするか、については、こちらで決められるものではないですから、、、。
一般論として、ですが、Ｑ＆Ａの質疑で途中で前提が変わる、というのは好ましいことではありません。
私自身も、もう少し察しが良ければ、という点もあるのかも知れませんが、
こういう場所では、書いてあること、だけが頼りです。

ベストな結果が得られるように、したいですね。

補足

申し訳ございませんでした。

T列の書き方は（,）で区切られておりません。。

,で区切らないと結果が出ないのであれば、全て、,で区切るように作ります。

あああ 20,いいい 20,ううう 90

と言うことですよね？

すいません、,で区切っていると言ったつもりはなかったのですが、説明不足でした。

ただただ、T列に、文字が入っているだけのような形です。

下記コードです。

Private Sub CommandButton1_Click()
Dim sCriteria_1 As String '　抽出条件「品目」
Dim sCriteria_2 As String '　抽出条件「品目
Dim sCriteria_W As String '　抽出条件文字列
Dim nBottomRow As Long '　Ｔ列を基準に最下行を取得

' ' 抽出条件「品目」を取得
sCriteria_1 = TextBox1.Value

' ' 抽出条件「品目」が空なら、メッセージを表示して、処理終了
If sCriteria_1 = "" Then
MsgBox "車種を入力してください！"
Exit Sub
End If

' ' 抽出条件「サイズ」を取得
sCriteria_2 = TextBox2.Value

' ' 対象シートについて、選択、フィルター抽出状態ならばキャンセル
With Worksheets("商品マスタ")
.Select
If .FilterMode Then .ShowAllData
End With

' ' Ｔ列を基準に最下行を取得
' ' Ａ列を基準に最下行を取得
nBottomRow = Cells(Rows.Count, "B").End(xlUp).Row

If sCriteria_2 = "" Then
' ' 抽出条件文字列を作成
sCriteria_W = "*" & sCriteria_1 & "*"
' ' 抽出条件項目名を設定
Cells(nBottomRow + 1, "T").Value = Cells(2, "T").Value
Else
' ' 抽出条件数式文字列を作成
sCriteria_W = "=FIND(""" & sCriteria_2 & """,T3,FIND(""" & sCriteria_1 & _
""",T3))<FIND("","",T3&"","",FIND(""" & sCriteria_1 & """,T3))"
' ' 抽出条件項目名は設定しない
End If

' ' 実際に使用する抽出条件
Cells(nBottomRow + 2, "T").Formula = sCriteria_W

' ' フィルタオプションの実行
Range("A2:AW" & nBottomRow).AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Cells(nBottomRow + 1, "T").Resize(2), _
Unique:=False

' ' 抽出条件をクリア
Cells(nBottomRow + 1, "T").Resize(2).ClearContents

' ' 以下、元コードのまま
Range("A1").Activate

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub