Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11999 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12901】データを抽出 まえだ 04/4/19(月) 14:15 質問
【12903】Re:データを抽出 IROC 04/4/19(月) 15:25 回答
【12907】Re:データを抽出 まえだ 04/4/19(月) 16:19 質問
【12908】Re:データを抽出 IROC 04/4/19(月) 16:22 回答
【12912】Re:データを抽出 まえだ 04/4/19(月) 16:31 質問
【12915】Re:データを抽出 IROC 04/4/19(月) 16:39 回答
【12917】Re:データを抽出 まえだ 04/4/19(月) 16:57 質問
【12918】Re:データを抽出 IROC 04/4/19(月) 17:26 回答
【12919】Re:データを抽出 まえだ 04/4/19(月) 17:36 質問
【12901】データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 14:15 -
引用なし
パスワード
   次のワークシートを作成しました。

「シート1：食数」
日付　　　　入所２F　　　　入所３F
3月16日　　　　45　　　　39
--------------------------
「シート２：shoku」
*抽出エリア
　日付　　　　入所２F　　　　入所３F
*条件エリア
　日付１　　　　　日付２
　「> 04/3/1」　「＜04/03/31」　

このワークシートに表示するフォームより日付を入力してコマンドボタンのOKを押すと、シート2の抽出条件に何月何日以上で、何月何日以内の条件を書き、データを抽出エリアに抽出するようにしたいのですが、日付条件等がうまくいきません。

Private Sub CommandButton1_Click()
Worksheets("shoku").Range("a2").Value = "> " & Format(TextBox1, "yy/m/d")
　　
Sheets("食数").Range("A3:Aa10000").AdvancedFilter Action:=xlFilterCopy, _
　　　　CriteriaRange:=Sheets("shoku").Range("a1:d2"), CopyToRange:=Sheets("shoku").Range("a10:aa10"), Unique:= _
　　　　False
End Sub

表現がうまく出来ませんがよろしくお願いします。
【12903】Re:データを抽出
回答  IROC  - 04/4/19(月) 15:25 -
引用なし
パスワード
   >日付条件等がうまくいきません。

どのように上手く行かないのでしょうか？
【12907】Re:データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 16:19 -
引用なし
パスワード
   ▼IROC さん：
>>日付条件等がうまくいきません。
>
>どのように上手く行かないのでしょうか？

何も表示されません。
手動で検索条件を「4/11」と入力しテストしますと上手く抽出できますが「＞4/11」と検索条件を書きますと何も表示されません。
日付の検索条件設定がまずいのでしょうか、日付Aより大きくて日付Bより小さい範囲を抽出条件としたいのですが方法がわかりません。
【12908】Re:データを抽出
回答  IROC  - 04/4/19(月) 16:22 -
引用なし
パスワード
   フィルタオプションでなく、
オートフィルタを使ってみては如何でしょうか？
【12912】Re:データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 16:31 -
引用なし
パスワード
   ▼IROC さん：
>フィルタオプションでなく、
>オートフィルタを使ってみては如何でしょうか？

マクロの記録でしか組んだことがないのでよくわかりません。
変更点があれば教えていただけないでしょうか。
【12915】Re:データを抽出
回答  IROC  - 04/4/19(月) 16:39 -
引用なし
パスワード
   シート２の抽出エリアは、１行（１件）だけですか？

シートのレイアウトを詳しく教えていただけませんか？
（行、列、セル番地、など。）
【12917】Re:データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 16:57 -
引用なし
パスワード
   ▼IROC さん：
>シート２の抽出エリアは、１行（１件）だけですか？
はい、1行のみです

>シートのレイアウトを詳しく教えていただけませんか？
>（行、列、セル番地、など。）
条件範囲
条件１：項目名（A1）「日付」条件２：項目名（B1)「日付」
条件２：（A2)「3月1日以上」条件２：（B2)「3月30日以内」

抽出範囲
項目名：（A10)日付、（B10)入所２F、（C10）入所３F、（D10)ショート

データエリア
ワークシート”食数”、タイトル（A3)日付、（B3)入所２F、（C3)入所３F（D3)ショート
データはC4以降に入力されています。


以上でわかるでしょうか。
【12918】Re:データを抽出
回答  IROC  - 04/4/19(月) 17:26 -
引用なし
パスワード
   だいたい分かりました。

あとひとつ。

検索条件は、
〜以上　、〜以下
のように期間（１ヶ月）で、入力するのでしょうか？

「3月1日以上」「3月30日以内」
これだと、文字列ですよね？

以上、以下　と確定なら、
日付型で、
「04/3/1」「04/3/31」
のようになりますか？

それとも、 ？月　といった、月だけの指定とか・・・？


どのような使用方法が使い易いのですか？
【12919】Re:データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 17:36 -
引用なし
パスワード
   ▼IROC さん：
>だいたい分かりました。
>
>あとひとつ。
>
>検索条件は、
>〜以上　、〜以下
>のように期間（１ヶ月）で、入力するのでしょうか？
>
>「3月1日以上」「3月30日以内」
>これだと、文字列ですよね？
>
>以上、以下　と確定なら、
>日付型で、
>「04/3/1」「04/3/31」
>のようになりますか？
>
>それとも、 ？月　といった、月だけの指定とか・・・？
>
>
>どのような使用方法が使い易いのですか？

ありがとうございます。
締切日が毎月２回あります、当社の締め切りが毎月15日ですから前月の16日から当月の15日。　この日付は、「today（今日の月を基準にしていますので、明らかに当月の15日まで）
もう一件は、相手先の締切日で、これは10日、20日など汎用性をもたせたいです。
今ひらめきました。　締切日だけ指定すれば起算日は当然前月、といった処理も可能でしょうか。末締め切りの場合は前月の初めから前月の終わりまでとなりますが？）
よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11999 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free