日期范围之间的多个单元格的总和

Question

我的工作表中有一些已存储的定价信息。列A有一个存储日期列表，列K，L和M需要加在一起，如果它们在给定的日期范围内，则减去列E的总和。 Q1是您在格式＆＃34; 7/15/15＆＃34;中选择开始日期的位置，Q2是您选择所需范围的结束日期的位置。这里有一些图片来帮助我所描述的内容：

忽略第二张图片＆＃34;平均利润＆＃34;单元格，应标题为＆＃34; Total Profit＆＃34;

Answer 1

这是我解决VBA问题的方法。

Public Sub summarizeValue()

    Dim total As Long
    Dim row As Integer

    'Set start row
    row = 5

    'Work with sheet
    With Sheets("sheetname")

        'Loop until date cell is blank
        Do While .Range("A" & row) <> ""

            'If all date cell are valid
            If IsDate(.Range("A" & row)) And IsDate(.Range("Q1")) And IsDate(.Range("Q4")) Then

                'If date is valid between two range.
                If .Range("Q1") <= .Range("A" & row) And .Range("A" & row) <= .Range("Q4") Then

                    total = total + .Range("K" & row) + .Range("L" & row) + .Range("M" & row) - .Range("E" & row)

                End If

            End If

            row = row + 1

        Loop

        .Range("Q7") = total

    End With

End Sub