Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68375 / 76738

←次へ　｜　前へ→


	【12901】データを抽出

まえだ

- 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

表現がうまく出来ませんがよろしくお願いします。

1 hits

▼

【12901】データを抽出 まえだ 04/4/19(月) 14:15

≪