エクセルＶＢＡでの複数条件でオートフィルタをする方法

Question

VBA初心者です。
例えば、シートに

   A   　B 
1  桃　　100
2　柿  　150
3  葡萄　400

というデータが書いてあって、ある時は「桃or柿」、またある時は「柿」だけ、「柿or葡萄」というようにＶＢＡでオートフィルタをかけてデータを抽出したいと思っています。

その条件は、別にリストボックスが用意されていて、ユーザが選択した項目に該当するデータだけを取得したいのですが・・・

不特定数の複数項目をオートフィルタの「or」条件で結ぶ事が出来ずに困っています。それともオートフィルタでは無理なのでしょうか？
（知識が乏しくてすみません）

どなたか良い解決策、または別策がありましたらご教授下さい。

Wendy02 · Accepted Answer

こんにちは。

リストボックスということですと、TSV の読み込みの部分は出来上がっているということでしょうか？質問を見た感じでは、AutoFilter よりも、AdvancedFilter のほうが印象的には相応しいように思いますが。

コントロールツールのListBoxを設定してください。

プロパティは、MultiSelect 1-fmMultiSelectMulti　してください。
選択する内容は、ワークシートに書いたものを、ListFillRange に設定してください。
例： K1:K3 

ListBox のクリックイベントや、Change イベントですと、そのまま反応してしまいますので、ダブルクリックイベントにしました。ただし、右クリックすると、選択は、すべてクリアされます。

ListBox のアイテム数（30個以内）なら、複数を選択できます。

A1から、リストが存在し、1行目がタイトル行があるという条件の元で成立します。そうでない場合は、また、ご指摘ください。


'シートモジュールを使います。
'--------------------------------------------------------------

Dim Form2 As String
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'リストボックスのダブルクリックで、フィルターが掛けられます。
　　
　　'適当な場所に、Criteria を置いてください。
　　Dim myCriteria As Range
　　Set myCriteria = Range("L1:L2") '空いているところならどこでも可
　　Call MakeForm
　　If Form2 <> "" Then
　　　　myCriteria.Cells(2, 1).FormulaLocal = Form2
　　　　With Range("A1").CurrentRegion
　　　　　　.AdvancedFilter _
　　　　　　Action:=xlFilterInPlace, _
　　　　　　CriteriaRange:=myCriteria, _
　　　　　　Unique:=False
　　　　End With
　　End If
　　Set myCriteria = Nothing
End Sub
Private Sub MakeForm()
'数式を作るサプルーチン
Dim i As Integer
Dim Ar As String
Dim buf As String
Dim Form1 As String
　For i = 0 To ListBox1.ListCount - 1
　　　If ListBox1.Selected(i) Then
　　　　 buf = ListBox1.List(i)
　　　　 Form1 = Form1 & "," & "A2=""" & buf & """"
　　　End If
　　　buf = ""
　Next i
　If Len(Form1) > 1 Then
　　Form1 = Mid(Form1, 2)
　　Form2 = "=OR(" & Form1 & ")"
　End If
End Sub
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
　　'右クリックしたら、選択をすべて消す
　　If Button = 2 Then
　　　　Dim i As Long
　　　　For i = 0 To ListBox1.ListCount - 1
　　　　　　ListBox1.Selected(i) = False
　　　　Next i
　　End If
　　'フィルターモードクリア
　　If ActiveSheet.FilterMode Then
　　　　ActiveSheet.ShowAllData
　　End If
End Sub

これは、今ひとつ気がかりなのは、TSV でインポートしたときに、空白値が混じりこむことです。その処理をきちんとされていることが条件です。それが不可能というか、部分的に一致する文字を検出する場合は、プログラムの一部を変更するか、空白値を削除するプログラムを書かなくてはなりません。

pbforce · Answer

項目が2つでよければ、手動でオートフィルターがかけれます。

その動作をマクロの記録を使えば、方法は判明しますよ。

hana-hana3 · Answer

１．オートフィルタで設定可能な条件は２つなので、
　　　「桃or柿」「柿」「柿or葡萄」という設定なら可能です。

Selection.AutoFilter Field:=1, Criteria1:= "=" & "柿", Operator:=xlOr, _
        Criteria2:= "=" & "桃"

２．「その条件は、別にリストボックスが用意されていて」というのは、かなり難しくなります。
普通にオートフィルタを設定して、オプションで選択する方が簡単かもしれません。

Wendy02 · Answer

こんにちは。
#3の回答者です。

説明するのは、ちょっとややこしいと思います。

>myCriteria.Cells(2, 1).FormulaLocal = Form2

ポイントは、ここの部分のみです。
Form2 は、他のサブルーチンで作った、モジュールレベルの変数、Form2 を呼んでいるのです。そこには、数式が入ります。これを、通常のフィルターオプション形式で書いていったら、２個・３個ならともかく、それ以上は、面倒で溜まったものではありませんので、数式にしました。

この方法は、Microsoft のサポートにハウツーが出ていたと思います。ここのCriteria は特殊で、Criteria というのは、２行あって、その１行目が空欄でなくてはなりません。その２行目に、数式を入れるのです。True Or False の数式が入るのです。それで、フィルタリングするのです。

後は、一般のフィルタオプション（AdvancedFilter)の方法だけです。
一度、ためしに、記録マクロをとってみてもよいと思います。こういうものは、記録マクロも手書きでも、変わらないのです。少し、工夫を加えてやるだけでよいです。（私が、あまり考えていないのがバレますが（^^;）

Range("A1").CurrentRegion
こういうことはお分かりですよね。

一応、連続のセルが続いていたりすると、余計なところまで巻き込んでしまいますので、列数を決める必要があれば、Columns 辺りで、変えなくてはなりません。また、間が空いていたら、End プロパティでとってあげなくてはなりません。

エクセルＶＢＡでの複数条件でオートフィルタをする方法

項目が2つでよければ、手動でオートフィルターがかけれます。

この回答への補足

１．オートフィルタで設定可能な条件は２つなので、

この回答への補足

こんにちは。

この回答への補足

こんにちは。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング