|
日付を基準にデータを抽出方法を教えてください。
マクロで次の構文を記入しました。
Private Sub CommandButton5_Click()
'15日締め切り
Unload my_menu
Worksheets("shoku").Range("b1").Value = Date
Sheets("食数").Range("A3:Aa50000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("shoku").Range("a1:a3"), CopyToRange:=Worksheets("shoku").Range("a10:aa10"), Unique:= _
False
End Sub
ワークシート"shoku"には次の計算式と、タイトルを書きました。
A1:日付、A2:=DATE(YEAR(B1),MONTH(B1)-1,16)
A3:=DATE(YEAR(B1),MONTH(B1),15)
これで、フィルターオプションの抽出を行いたいのですが、条件の日付で3/16から4/15日までのデータを抽出という条件の設定方法がわかりません。
IROCさんにご指導いただいたのですが、いまひとつ理解できず自分なりに設定方法を変更しました。
|
|