![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
いつもお世話になっております。
現在第一条件から第三条件までの入力フォームを作成し、その条件に基づいたオートフィルタを作成中なのですが、
第二条件以下に未入力の場合のオートフィルタができなくて困っています。
これら未入力(空白)でもきちんと抽出できるオートフィルタを作るにはどうしたら良いですか?
以下に私が作成したものを転記いたしますので、どなたかご教示くださいますよう、お願いいたします。
With Worksheets("業種別検索")
myCriteria1 = .Range("a2").Value
myCriteria2 = .Range("b2").Value
myCriteria3 = .Range("c2").Value
End With
With Worksheets("元データ")
If Worksheets("元データ").AutoFilterMode = False Then
Range("A6:z6").Select
Selection.AutoFilter
Else
Sheets("元データ").Select
Selection.AutoFilter
Range("A6:z6").Select
Selection.AutoFilter
End If
.Range("A1").CurrentRegion.AutoFilter 17, myCriteria1, xlAnd
.Range("A1").CurrentRegion.AutoFilter 18, myCriteria2, xlAnd
.Range("A1").CurrentRegion.AutoFilter 19, myCriteria3, xlAnd
End With
No.2ベストアンサー
- 回答日時:
こんにちは。
こんな考え方でいかがでしょうか?
空白値の場合は、オートフィルタの選択を無視するという方法です。考え方としては、ものすごく単純なんですが、「Criteriaありき」という方法ですと、どうしても、オートフィルタがうまく行かないようですね。
Range("A6:z6").Selectということは、6行目から、という意味だと思います。まだ、なんとか私は、おやりになっていることに付いていっていると思います。
なお、これで、今回のスタイルとしてのマクロは、第三段目になると思います。一応、そういうわけで、プロシージャ名に気を使いました。
'---------------------------------------
Sub オートフィルタ複合選択3()
Dim myCriteria1 As String
Dim myCriteria2 As String
Dim myCriteria3 As String
With Worksheets("業種別検索")
myCriteria1 = Trim(.Range("a2").Value)
myCriteria2 = Trim(.Range("b2").Value)
myCriteria3 = Trim(.Range("c2").Value)
End With
With Worksheets("元データ")
.Select
If .AutoFilterMode Then
'.ShowAllData 'すべて出す
.AutoFilterMode = False 'フィルタモード解除
End If
With .Range("A6", .Range("A65536").End(xlUp).Offset(, 25))
If myCriteria1 <> "" Then
.AutoFilter 17, myCriteria1, xlAnd
End If
If myCriteria2 <> "" Then
.AutoFilter 18, myCriteria2, xlAnd
End If
If myCriteria3 <> "" Then
.AutoFilter 19, myCriteria3, xlAnd
End If
End With
End With
End Sub
で、できました!やった~!
Wendy02さん、いつもありがとうございます!!
これで検索機能は完成です!
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
EXCELのオートフィルタで空白セルを無視したいのですが
Excel(エクセル)
-
VBAでのフィルタについて(空白行の削除)
Excel(エクセル)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
-
4
エクセルのオートフィルタで抽出できない
Excel(エクセル)
-
5
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
6
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
7
VBAのコードがエラーになってしまいます。(エクセル)
Excel(エクセル)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
ShowAllDataのエラーを回避したい
Access(アクセス)
-
10
VBAで文字列を数値に変換したい
Excel(エクセル)
-
11
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
12
Excel VBA オートフィルタの結果をコピーして貼り付けたい(空白行も含める)
Visual Basic(VBA)
-
13
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
14
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
15
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルでオートフィルタのボ...
-
エクセルの偶数行(奇数行)の抽出
-
Excelのオートフィルタで非表示...
-
【EXCEL】条件に一致した最新デ...
-
マクロで条件に合った行の選択...
-
エクセル2000のフィルタオ...
-
Excel共有ブックのオートフィル...
-
オートフィルタで選択した項目...
-
エクセルで行の数字が飛び飛び...
-
エクセルにて、フィルタをかけ...
-
エクセル関数で、数字の入った...
-
エクセルで検索窓のようなもの...
-
VBA オートフィルタで抽出した...
-
関数で小数点以下を抽出したい
-
エクセルで、条件に一致した行...
-
オートフィルタの印刷がしたい...
-
オートフィルタで選択したデー...
-
オートフィルタで未入力(空白...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
Excel共有ブックのオートフィル...
-
access マクロでのフィルタの...
-
エクセルにて、フィルタをかけ...
-
エクセルで検索窓のようなもの...
-
データの抽出を教えてください
-
なぜShowAllDataだとうまく行か...
-
エクセル、オートフィルタで最...
-
オートフィルタで3つ以上の条...
-
エクセルで、条件に一致した行...
-
Excelで文字を入力と自動的にフ...
-
可視セルを対象としたcountifが...
-
【EXCEL】条件に一致した最新デ...
-
今日の日付のデータをすばやく...
-
ACCESSでスペースの抽出
おすすめ情報