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

* 매크로 단추 클릭으로 날짜와 시간 입력.

* 단추의 위치에 따라 입력범위가 동적으로 움직임.

엑셀 파일 다운로드

장부 (1).xlsm
0.02MB

 

질문글 링크

VBA 코드
Option Explicit

Sub 단추1_Click()
    Dim btn As Button
    Set btn = Sheet3.Buttons(Application.Caller)
    btn.TopLeftCell.Offset(1).Value = Date
    btn.TopLeftCell.Offset(1, 1).Value = Now
End Sub

 

728x90

+ Recent posts