[[20200504202755]]　『VBA　日付で絞り込んだデータの抽出』（ゼンジマン）　ページの最後に飛ぶ

『VBA　日付で絞り込んだデータの抽出』（ゼンジマン）

VBAザコ初心者です。よろしくお願いします！

シート１にあるデータをシート２にある日付を使って1日から月末までの実績を絞り込み表示したいです。

シート１の行の項目
日付　売上予算利益予算　売上金額　客数　人時　会員数　会員金額　税別粗利　利益金額

シート２の行の項目
年　月

イメージとしましては、例えば年の値を「2019」、月の値を「2」と入力し、ボタンを押すと、2019年2月1日から2月28日まで。「2020」「1」だと2020年1月1日から1月31日までのデータだけが表示されるようにしたいです。

操作記録を見ると中身は

    Selection.AutoFilter
    ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(1, "2/28/2019")

となっていたのですが、シート２にある年と月を使って、様々な年月で絞り込めるような柔軟性を持たせようとすると、どうすれば良いのかさっぱりです＞＜

どうかお知恵をお貸しください！よろしくお願いします！！！

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 >シート２にある年と月を使って、様々な年月で絞り込めるような

 参考に

   Dim 年 As Long, 月 As Long
   年 = Sheets("Sheet2").Range("A2").Value
   月 = Sheets("Sheet2").Range("B2").Value
   ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(1, 年 & "/" & 月 & "/1")

（ピンク） 2020/05/04(月) 22:03

ピンクさん、ありがとうございます！！！！！！！

年という文字はA2だよ、月はB2だよって指定して出来るようにしてるんですね！！！！！！！

すごい！！！！！マジ感謝です！！！！！
（ゼンジマン） 2020/05/05(火) 06:17

コメント返信：

[ 一覧(最新更新順) ]

[[20200504202755]] 『VBA 日付で絞り込んだデータの抽出』（ゼンジマン） ページの最後に飛ぶ

[[20200504202755]]　『VBA　日付で絞り込んだデータの抽出』（ゼンジマン）　ページの最後に飛ぶ