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:食数」
日付    入所2F    入所3F
3月16日    45    39
--------------------------
「シート2:shoku」
*抽出エリア
 日付    入所2F    入所3F
*条件エリア
 日付1     日付2
 「> 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 -

引用なし
パスワード
   シート2の抽出エリアは、1行(1件)だけですか?

シートのレイアウトを詳しく教えていただけませんか?
(行、列、セル番地、など。)

【12917】Re:データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 16:57 -

引用なし
パスワード
   ▼IROC さん:
>シート2の抽出エリアは、1行(1件)だけですか?
はい、1行のみです

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

抽出範囲
項目名:(A10)日付、(B10)入所2F、(C10)入所3F、(D10)ショート

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


以上でわかるでしょうか。

【12918】Re:データを抽出
回答  IROC  - 04/4/19(月) 17:26 -

引用なし
パスワード
   だいたい分かりました。

あとひとつ。

検索条件は、
〜以上 、〜以下
のように期間(1ヶ月)で、入力するのでしょうか?

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

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

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


どのような使用方法が使い易いのですか?

【12919】Re:データを抽出
質問  まえだ E-MAIL  - 04/4/19(月) 17:36 -

引用なし
パスワード
   ▼IROC さん:
>だいたい分かりました。
>
>あとひとつ。
>
>検索条件は、
>〜以上 、〜以下
>のように期間(1ヶ月)で、入力するのでしょうか?
>
>「3月1日以上」「3月30日以内」
>これだと、文字列ですよね?
>
>以上、以下 と確定なら、
>日付型で、
>「04/3/1」「04/3/31」
>のようになりますか?
>
>それとも、 ?月 といった、月だけの指定とか・・・?
>
>
>どのような使用方法が使い易いのですか?

ありがとうございます。
締切日が毎月2回あります、当社の締め切りが毎月15日ですから前月の16日から当月の15日。 この日付は、「today(今日の月を基準にしていますので、明らかに当月の15日まで)
もう一件は、相手先の締切日で、これは10日、20日など汎用性をもたせたいです。
今ひらめきました。 締切日だけ指定すれば起算日は当然前月、といった処理も可能でしょうか。末締め切りの場合は前月の初めから前月の終わりまでとなりますが?)
よろしくお願いします。

11999 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free