|
まえだ さん こんにちは、ちんといいます。
▼まえだ さん:
>日付を基準にデータを抽出方法を教えてください。
>
>マクロで次の構文を記入しました。
>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さんにご指導いただいたのですが、いまひとつ理解できず自分なりに設定方法を変更しました。
マクロの作成で、日付けの抽出を記録してみて下さい。
1.マクロの新規作成
2.「データ」−>「フィルター」−>「オートフィルタ」
3.▼をクリックし、(オプション..)をクリック
4.日付けの条件式を設定して下さい。
作成したマクロの"yyyy/mm/dd" の部分をプログラムで変更して下さい。
以上、
|
|