VBA初心者ですみません
フィルタ内D列にA社、B社、C社・・・と入力してあり、フィルタ外でA社(BA3)、B社(BA4)、C社(BA5)とある場合で、フィルタ外の値(BA3~5)を参照して表示する場合で分からなくて困っています
B社のみを表示する場合は
Range("A1").AutoFilter field:=4, Criteria1:=Range("BA4").Value
これでいけました
ここからが壁になってまして
B社、C社を表示する場合は
Range("A1").AutoFilter field:=4, Criteria1:=Range("BA4:BA5").Value
なんて安易に考えてやってみたところ
B社を表示した直後C社を表示して終わる結果になってしまいました
B社とC社を同時表示してほしいのですが・・・。
そんなのも分からないならセル参照なんてしないでArrayで直接社名指定しろよと怒られそうですが
すでに入力してあるデータ整理の為、何か方法があれば教えて頂けると幸いです。
No.1
- 回答日時:
オートフィルタでやるのなら
Range("$A$1").AutoFilter _
Field:=1, _
Criteria1:=Range("BA4").Value, _
Operator:=xlOr, _
Criteria2:=Range("BA5").Value
でしょうけど フィルタの詳細設定でやった方がいいと思います。
ありがとうございます。
2つを超えた場合も知りたかったのです。
丁寧に説明して頂いたのに申し訳ございません。
説明ヘタですみません。
No.2ベストアンサー
- 回答日時:
こんにちは!
OR条件が三つと判っているのであれば・・・
Sub Sample1()
Dim myAry As Variant
myAry = Array(Range("BA3"), Range("BA4"), Range("BA5"))
Range("A1").AutoFilter field:=4, Criteria1:=myAry, Operator:=xlFilterValues
End Sub
くらいで大丈夫だと思います。
OR条件の数が限定されない場合は
Sub Sample2()
Dim i As Long, myStr As String, myAry As Variant
For i = 3 To 5 '←ここでフィルタ条件数を決める//
myStr = myStr & Cells(i, "BA") & ","
Next i
myAry = Array(Split(Left(myStr, Len(myStr) - 1), ","))
Range("A1").AutoFilter field:=4, Criteria1:=myAry, Operator:=xlFilterValues
End Sub
といった感じで対応できると思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に 1 2023/07/14 09:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
オートフィルタの検索値を、所定のセルから参照(複数条件/部分一致)
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
6
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
9
VBAのautofilter、criteriaの配列指定について(Excel2016)
Excel(エクセル)
-
10
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
11
【エクセルVBA】 A1セルを参照してオートフィルタを抽出するChangeイベントが連続処理できない
Excel(エクセル)
-
12
EXCELマクロでワイルドカードを使ったオートフィルタ処理の方法がわからない
Excel(エクセル)
-
13
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
14
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
15
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
18
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
19
オートフィルタで未入力(空白)を無視した抽出法
PowerPoint(パワーポイント)
-
20
ヘッダー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで日付の入ったセルの...
-
エクセルでセルに「氏名を入力...
-
Excel ウインドウ枠の固定をす...
-
Excelファイルの「数式」タブ→...
-
関数を教えて下さい。
-
スマートな関数を教えて下さい。
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシートの関数VLOOKUP...
-
Excelのif関数で文字が見えなく...
-
Excel 2019 のピボットテーブル...
-
Excel 2019 は、SPILL機能があ...
-
各ページの1番上の表示について
-
写真のコピー
-
条件付き書式を教えてください
-
INDEX関数やMATCH関数で値を取...
-
エクセル グラフ軸について
-
excelの不要な行の削除ができな...
-
Excelで行をコピー、同じ行内に...
-
エクセル関数に詳しい方、教え...
-
Excel 改ページの文字色の変更...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報