vba - VBA 间隔数据

Question

我需要根据日期总结一些信息。我的意思是，如果与该信息对应的日期在某个时间间隔内，我需要汇总一些信息。

有什么办法吗？

我看过“DATEDIFF”，但我需要的是：

'如果评估的数据在下一个区间内，则对值求和。

希望你能理解我的问题。

提前致谢。

已编辑：我添加了一张图片以使其更易于理解

Answer 1

这会做到的。我不知道你想在哪里使用总计，所以现在你只得到一个消息框。

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

在您想要总和的单元格中使用一个公式：

假设值在 A1:A100 中，日期在 B1:B100 中

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

将返回 2004 年 1 月的值的总和