|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(2010,2016,2019):
* 아래줄에 질문을 작성하세요 >>
수입지출 한번 더 봐주세요! 이제 해결은 다 되었는데 현재는 1~12월달로 되어있는데 시작이 1월이 아니라 12월부터 시작해서 11월달로 끝나는데 어떻게해야하는지 한번 더 봐주세요! 결산이 11월달라 마감하고 12월달부터 시작하거든요...
==============[박훈이님 글에 대한 답변입니다]==============
내용 참고하세요...
Sub UpDate(Sh As Worksheet)
..............
..............
..............
If iMonth = 1 Then
rBalance.Cells(1, 1).FormulaR1C1 = "=IF(OR(RC[-4]<>"""", RC[-1]<>""""),RC[-4]-RC[-1], """")"
Else
rBalance.Cells(1, 1).FormulaR1C1 = "=IF(OR(RC[-4]<>"""", RC[-1]<>""""), '" & iMonth - 1 & "월'!R[500]C+RC[-4]-RC[-1], """")"
End If
이 부분을 아래와 같이 수정하세요...
If iMonth = 12 Then
rBalance.Cells(1, 1).FormulaR1C1 = "=IF(OR(RC[-4]<>"""", RC[-1]<>""""),RC[-4]-RC[-1], """")"
Else
rBalance.Cells(1, 1).FormulaR1C1 = "=IF(OR(RC[-4]<>"""", RC[-1]<>""""), '" & IIf(iMonth = 1, 12, iMonth - 1) & "월'!R[500]C+RC[-4]-RC[-1], """")"
End If
..............
..............
..............
End Sub |
|