エクセルVBA 【リストボックスの値でオートフィルタしたい】

エクセルVBA初心者です。
以下の内容がわかる方いらっしゃいましたら
どのようなプログラムを記述すればよいかご回答お願い申し上げます。

【リストボックスの値でオートフィルタしたい】

ListBox1～4 を用意している。
ListBox1～4 には複数の項目が入っており、複数項目の選択ができる。
ListBox1～4 で選択された項目でオートフィルタしたい。(ANDではなくORで）

オートフィルタのRageとfieldは以下の通りです。
Worksheets("Sheet1").Range("A3").AutoFilter field:=7,

※何も項目が選択されないListBoxが存在する場合があります。
※リストボックスの値は「文字列」です。

漠然とした質問で申し訳ありませんが、何卒よろしくお願い申し上げます。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

実際のプログラムの抜粋は以下の通りです。
醜く拙いプログラムですみません・・・
：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：
Dim RER() As String
Dim r As Integer
Dim rnt As Integer

For r = 0 To ListBox4.ListCount - 1
If ListBox4.Selected(r) = True Then

        rnt = rnt + 1
        ReDim Preserve RER(1 To rnt)
        RER(rnt) = ListBox4.List(r)
    End If
Next r

：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：：
※上記部分はJER、KER、GERと共通で書いています。
以下がフィルター部分のプログラムです
Worksheets("記録表").Select

Worksheets("記録表").Range("A3").AutoFilter field:=7, Criteria1:=RER(), Operator:=xlFilterValues, Criteria2:=GER(), Operator:=xlFilterValues, Criteria3:=KER(), Operator:=xlFilterValues, Criteria4:=JER(), Operator:=xlFilterValues
ここにより詳細な情報を記載してください。

meg_

2020/08/20 06:32

> ListBox1～4 で選択された項目でオートフィルタしたい。(ANDではなくORで）オートフィルタで複数条件の設定って出来ましたか？

riko

2020/08/20 06:46

質問ありがとうございます。参考になるかわかりませんが私が書いたプログラムの抜粋を追記しました。 teratail自体も初めて利用するので作法がわからずご迷惑をおかけするかもしれません。何卒よろしくお願いいたします。

meg_

2020/08/20 06:49

出来るのですね。VBAでフィルター操作したことがなかったため失礼しました。

riko

2020/08/20 06:52

いいえ、質問して頂けるだけでも救われます。ありがとうございます。

meg_

2020/08/20 07:05

・コードは「コードの挿入」で記入しましょう。・”リストボックス”とはどれのことでしょうか？（フォームコントロール？ ActiveXコントロール？ユーザーフォームのリストボックス？）説明と画像があると分かりやすくなるかと思います。

riko

2020/08/20 07:58

教えて頂きありがとうございます。次回以降は気を付けます。 meg様の助けもあり、今回の私の疑問は解決いたしました。今後ともよろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

PER、JER、KER、GERを一つにまとめてみました。

VBA
1Dim arr As Variant
2    arr = Split(Join(PER, ",") & "," & Join(JER, ",") & "," & Join(KER, ",") & "," & Join(GER, ","), ",")
3Worksheets("記録表").Range("A3").AutoFilter field:=7, Criteria1:=arr, Operator:=xlFilterValues
4

投稿2020/08/20 07:00