Не могу ни как заставить что бы макрос определял календарные дни,и по этим дня суммировал все приходные материалы.Если кто сталкивался плис подскажите.
Не могу ни как заставить что бы макрос определял календарные дни,и по этим дня суммировал все приходные материалы.Если кто сталкивался плис подскажите.jijik2
Не понятно что хотите сделать макросом. Суммирование по дням можно выполнить формулами или сводной таблицей. Что хотите получить в итоге? Нарисуйте в ручную конечный результат.
Не понятно что хотите сделать макросом. Суммирование по дням можно выполнить формулами или сводной таблицей. Что хотите получить в итоге? Нарисуйте в ручную конечный результат.gling
Sub суммирование() Dim N, R, T As Date lr = Range("A5").End(xlDown).Row N = 5: T = Cells(N, 2) For R = 5 To lr If T <> Cells(R, 2) Then Cells(R - 1, 8).Formula = "=SUM(F" & N & ":F" & R - 1 & ")" N = R: T = Cells(N, 2) End If Next End Sub
[/vba]
Если макросом, то можно так:
[vba]
Код
Sub суммирование() Dim N, R, T As Date lr = Range("A5").End(xlDown).Row N = 5: T = Cells(N, 2) For R = 5 To lr If T <> Cells(R, 2) Then Cells(R - 1, 8).Formula = "=SUM(F" & N & ":F" & R - 1 & ")" N = R: T = Cells(N, 2) End If Next End Sub