Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
921 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77496】フィルター並べ替え後の検索 キキ 15/10/16(金) 16:52 質問[未読]
【77498】Re:フィルター並べ替え後の検索 β 15/10/16(金) 17:12 発言[未読]
【77499】Re:フィルター並べ替え後の検索 β 15/10/16(金) 17:27 発言[未読]
【77500】Re:フィルター並べ替え後の検索 キキ 15/10/16(金) 17:50 お礼[未読]
【77521】Re:フィルター並べ替え後の検索 キキ 15/10/19(月) 12:00 お礼[未読]
【77496】フィルター並べ替え後の検索
質問  キキ  - 15/10/16(金) 16:52 -
引用なし
パスワード
   はじめまして、こんにちは。マクロ初心者です。
おわかりになる方がおられましたら、ご教授頂ければ幸いです。

題名が意味不明なものになってしまいましたが、処理したいことは以下の内容でございます。

●エクセルシート画面●
A列：業者名/B列：伝票番号/C列：商品納品日
各列にはそれぞれのデータが入っており、2000行近くあります。

●処理したい内容●
「1.→本日納品するものをC列の日付フィルターで指定
2.-1→A列にM社がある場合→M社をフィルターで指定
2.-1-1→B列に伝票番号の入力がある場合（空白以外の場合）→フィルターで空白以外を指定
2.-1-2→B列に伝票番号の入力がない場合（空白の場合）→ポップアップで＜該当データはありません＞と表示
2.-2→A列にM社がない場合、ポップアップで＜該当データはありません＞と表示

説明がわかりずらいようでしたら申し訳ございません。。

何卒よろしくお願い申し上げます。
【77498】Re:フィルター並べ替え後の検索
発言  β  - 15/10/16(金) 17:12 -
引用なし
パスワード
   ▼キキ さん：

いくつか質問です。

１．M社は固定ですか？
　　それとも、抽出したい業者を、何らかの手段で指定して抽出ですか？
２．該当なしですが
　　日付（当日？）、業者、伝票の指定で抽出した結果としてゼロ件だったときに
　　メッセージを出すのでいいのですか？
【77499】Re:フィルター並べ替え後の検索
発言  β  - 15/10/16(金) 17:27 -
引用なし
パスワード
   ▼キキ さん：

とりあえず。
M社は固定で。該当なしは３つの指定の結果がゼロ件ならメッセージ。

Sub Test()
　　
　　ActiveSheet.AutoFilterMode = False　'念のためいったん解除
　　ActiveSheet.Range("A1").AutoFilter　　'オートフィルター設定
　　
　　With ActiveSheet.AutoFilter.Range
　　　　.AutoFilter Field:=1, Criteria1:="M社"
　　　　.AutoFilter Field:=2, Criteria1:="<>"
　　　　.AutoFilter Field:=3, Criteria1:=">=" & Date, Operator:=xlAnd, Criteria2:="<=" & Date
　　　　If .Columns(1).SpecialCells(xlCellTypeVisible).Count = 1 Then
　　　　　　MsgBox "該当なし"
　　　　End If
　　End With

End Sub
【77500】Re:フィルター並べ替え後の検索
お礼  キキ  - 15/10/16(金) 17:50 -
引用なし
パスワード
   β様

ご回答頂きありがとうございます！
本日は退社してしまいました為、回答のお礼のみ先に返信させて頂きます。

来週月曜日に確認させていただきます＾＾
ありがとうございましたm(__)m
【77521】Re:フィルター並べ替え後の検索
お礼  キキ  - 15/10/19(月) 12:00 -
引用なし
パスワード
   β様

お世話になっております。
先日は、迅速にご丁寧に回答頂きありがとうございました。

早速試しましたところ、回答頂いた内容でうまく作動致しました。
大変感謝しております。ありがとうございました。

キキ
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
921 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free