날짜데이터 월별 합계
아래와 같이 조건이 있다고 하자.
_오늘날짜 또는 특정 기준일이 있다
_여러날짜들 중 특정 기준일의 월과 매칭하여, 이에 맞는 값을 합산한다
함수로 하면 별거 아닐 수 있겠지만, VBA로는 어떨까,
정답은 모르겠다.
나는 날짜변수를 전부 싸그리 그달의 1일로 바꾸고 값이 같을 경우 합산하도록 했다.
[코드예시]
Sub monthly_()
Dim j As Integer
Range("b4").ClearContents
For j = 2 To Cells(2, 4).End(xlDown).Row
If Cells(2, 2) - Day(Cells(2, 2)) + 1 = Cells(j, 4) - Day(Cells(j, 4)) + 1 Then
Cells(4, 2) = Cells(4, 2) + Cells(j, 4).Offset(0, 1)
End If
Next j
End Sub
sumif 를 쓰기 귀찮다면, 한번 해볼만 하지 않을까??
