エクセルVBA年月日からその年＆月の合計

質問

いつもお世話になっています。
下記の質問をお分かりの方ご教示ください
Range("A2")Range("B2").........................Range("L2")とそれぞれA~LまでありA2にはNo.、B2には年月日、....................L2には金額という項目があります。それぞれのその入力数は現在７年分入力されていますが進行中です。この入力された年月日からinputBoxを使って何年何月と検索したらその答えを新規ブックに何年何月分の合計を出力できるようにしたいのですが何方か宜しくお願いします、ちなみにオフィースは２００３です。宜しくお願いします

回答No.1

mt2015 · ベストアンサー

対象年月の初日と最終日を求め、ワークシート関数のSUMIFでその期間の金額合計値を出します。
＃Excel2003と言う事でSUMIF関数を2つ使っていますが、2007以降ならSUMIFS関数１つで求まります。

以下はエラー処理等一切ないサンプルです。

Sub Sample()
　　sYear = InputBox("年：")　　
　　sMonth = InputBox("月：")

　　dStartDate = DateSerial(sYear, sMonth, 1)
　　dLastDate = DateSerial(sYear, sMonth + 1, 1) - 1

　　nData = Application.WorksheetFunction.SumIf(Range("B:B"), ">=" & dStartDate, Range("L:L"))
　　nData = nData - Application.WorksheetFunction.SumIf(Range("B:B"), ">" & dLastDate, Range("L:L"))

　　Workbooks.Add
　　ActiveCell.FormulaR1C1 = nData
End Sub

お礼

できました有難うございます。他の方のご教示も見てみたいと思いますので、もう少し回答を待ってみたいと思います。感謝です