'목록하단 광고 치환자(withSeok)

엑셀 결과 파일 다운로드

날짜변경.xlsm
0.02MB

Sub 직사각형2_Click()

Dim Sn
Dim Sx As Integer
Dim iday As Integer

Set Sn = Sheets("날짜변경")
iday = 365

With Sn
    For Sx = 1 To 11
        .Cells(Sx, 1) = .Cells(Sx, 1).Value + iday
    Next Sx
End With

End Sub

728x90

+ Recent posts