Excelマクロ オートフィルター条件設定で不等号を使いたい
請求シートより抽出条件シートに条件を設定し、抽出シートにコピーするマクロ
を作成しています。
抽出条件に比較演算子の不等号<>を使った場合、条件が無視されてしまいます。
どのようにしたら良いでしょうか?
請求シートのA列には会社番号が数字4桁で入力されています。
抽出条件シートA5セルに下記の条件を設定した場合、
1と2の場合は上手くフィルターが機能しますが、3の不等号を
使った場合は機能しません。どなたか宜しくお願いします。
1:1000
2:>1000
3:<>1000
Sub テスト()
Dim LastRow As Long, LastColumn As Long
Dim myData As Range
Dim myCriteria As Range
With Worksheets("請求")
LastColumn = .Cells(5, Application.Columns.Count).End(xlToLeft).Column
LastRow = .Cells(Application.Rows.Count, "A").End(xlUp).Row
Set myData = .Range("A5", .Cells(LastRow, LastColumn))
End With
Set myCriteria = Worksheets("抽出条件").Range("A5").CurrentRegion
Worksheets("抽出").Range("A6:R1000").ClearContents
myData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=myCriteria, _
CopyToRange:=Worksheets("抽出").Range("A5:R5"), Unique:=False
Set myData = Nothing
Set myCriteria = Nothing
End Sub
No.1ベストアンサー
- 回答日時:
会社番号は数字とのことですが、4桁固定の文字(数字の)になっていると思います。
※数字なら「<>1000」で問題なくできましたので…
文字と仮定した場合、以下の条件ならできました。
<>*1000*
試してください。
jcctairaさん、お返事有り難うございます。
A列セルの書式を確認してみました。
請求シート・抽出条件シート・抽出シートは全て「標準」になってました。
この書式を文字列・数値のそれぞれに変えてテストしてみましたが
<>1000 と <>*1000* ではやはり抽出されませんでした。
jcctairaさんの環境ではできたようなので、自分でも色々と試してみたいと
思います。
最初に書き忘れましたが、当方、Excel2010で動作確認をしております。
No.3
- 回答日時:
抽出条件シート
A5 を空白にして、
A6に以下の数式を入れてみてください。
=請求!A6<>"1000"
いちいち、数式を入れるのが面倒なら、マクロで条件を作って数式を入れてもよいと思います。
請求シートの会社番号は文字列が入っているようです。
Wendy02さん。
お返事有り難うございます。
教えて頂いた通りにやってみましたが、やはり結果は同じでした。
見た目では会社番号には文字列らしきものは入っていないのですが
きっと何かあるのでしょうね。
スペースが入っている、文字列が入っている、はたまた他の理由にせよ
不等号<>だけが機能しないのは不思議でならないのですが、いったん
解決済みとさせて頂きます。
有り難うございました。
No.2
- 回答日時:
TOGOASKさん
Excel2010で動作確認を行いました。
抽出条件のA列だけに「<>1000」を行ったら正常に抽出されました。
※会社番号を数字4桁で確認
抽出条件とかに何か(スペース文字とか?)残っているのでしょうかね?
色々大変ですが、試行錯誤して確認してください
jcctairaさん。
再度のお返事有り難うございます。
スペースが入っている、文字列が入っている、はたまた他の理由にせよ
不等号<>だけが機能しないのは不思議でならないのですが、いったん
解決済みとさせて頂きます。
有り難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) Sheet1をフィルターで「りんご」を抽出し、Sheet2へ地域を貼り付ける下記マクロを変更して S 2 2022/12/11 03:01
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
X-Ripperというフリーウェアに...
-
サイホンの原理
-
「パラメータが少なすぎます。3...
-
【エクセルVBA】 A1セルを参照...
-
エクセルで色の付いたセルを抽...
-
エクセルで、抽出したデータだ...
-
RT-PCRトラブルシューティング...
-
ACCESSのフォームからレポート...
-
エクセル VBA メール本文に指定...
-
Excelマクロ オートフィルター...
-
乾燥ワカメがアルコールで柔ら...
-
エクセルで近似値を特定の行か...
-
未審査請求包袋抽出表作成とは...
-
PCゲーム 音声 画像 抽出方法
-
コンボボックス全ての値を取得...
-
音楽をDVDから抽出したいのです...
-
関数 同じ文言を抽出 すべての...
-
Access サブフォームでの選択行...
-
AccessでIDを入力したら他の項...
-
ACCESS フォームで抽出したデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
AccessのWHERE句において、変数...
-
未審査請求包袋抽出表作成とは...
-
「パラメータが少なすぎます。3...
-
PDFファイルから特定の文字を検...
-
エクセルで色の付いたセルを抽...
-
X-Ripperというフリーウェアに...
-
ACCESSのクエリー抽出条件にIIF...
-
【AccessVBA】レコードセットOp...
-
PDFファイル/抽出許可され...
-
access クエリ yes/no型のクエ...
-
ACCESS クエリ 条件以外のレ...
-
エクセル VBA メール本文に指定...
-
Excel 文字列から6桁の数値の抽出
-
アクセス 同じフィールド(テキ...
-
Access チェックボックスを利用...
-
エクセル関数で住所から丁目番...
-
Accessの選択クエリの抽出条件...
-
コンボボックス全ての値を取得...
-
AdvancedFilter 検索 複数条件
おすすめ情報