vba - VBA 間隔データ

Question

日付に応じていくつかの情報を要約する必要があります。つまり、その情報に対応する日付が間隔内にある場合、いくつかの情報を合計する必要があります。

とにかくそれを行うことはありますか？

「DATEDIFF」を見たことがありますが、必要なのは次のようなものです。

'評価されたデータが次の間隔である場合は、値を合計します。

私の質問を理解していただければ幸いです。

前もって感謝します。

追記：分かりやすいように画像を追加しました

Answer 1

これでできます。total をどこで使用したいのかわからないので、メッセージボックスを取得するだけです。

Sub SumBetweenTwoDates()

Dim total As Integer
total = 0

Dim firstDate As Date, secondDate As Date
firstDate = DateValue("20/11/2012")
secondDate = DateValue("20/12/2012")

For i = 1 To 5
    If Range("A" & i).Value >= firstDate And Range("A" & i).Value <= secondDate Then
        total = Range("B" & i).Value + total
    End If
Next i

MsgBox total

End Sub

Answer 2

合計が必要なセルで 1 つの数式を使用します。

値が A1:A100 にあり、日付が B1:B100 にあると仮定します。

=SUMPRODUCT((B1:B100>=DATEVALUE("1/1/2004"))*(B1:B100<=DATEVALUE("31/1/2004")),A1:A100)

2004 年 1 月からの値の合計を返します