|
次のワークシートを作成しました。
「シート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
表現がうまく出来ませんがよろしくお願いします。
|
|