Сума от множество клетки между периода от време - excel, vba, дата, диапазон, sumifs

Имам лист с информация за съхранени цение датиран. Колона А съдържа списък на съхранените дати и колони K, L и M трябва да бъдат събрани и извадени от сумата на колона Е, ако те са в рамките на дадения период. датата във формат "7/15/15", а Q2 е мястото, в което избирате крайната дата на желания диапазон.

Пренебрегвайте втората снимка на клетка „Средна печалба“, която трябва да бъде озаглавена „Обща печалба“

Отговори:

Ето, моят подход към вашия проблем с 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