엑셀 VBA n일씩 날짜 추가 감소 버튼 매크로

네이버 지식인글 펌...

(출처 미처 기록하지 못함 ㅡㅡ;;;)

엑셀VBA 파일 다운로드

N일씩날짜추가감소버튼매크로.xlsm

0.02MB

---

Option Explicit Sub N일씩추가감소()    Dim sT As String    Dim rT As Range, iday As Integer        With Sheets("날짜이동")        iday = .Range("d2")        Set rT = .Range("d3")        sT = ActiveSheet.DrawingObjects(Application.Caller).Caption        If sT = "다음▶" Then            rT = rT + iday        Else            rT = rT - iday        End If    End With End Sub