[땡큐엑셀vba & 엑셀매크로] 자동시계 ontime 이벤트

 

'[현재 통합문서]
'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=283236287
'
'NOW는 현재시간이 표시되고 더이상 올라가지않는데
'자동으로 현재시간으로 바뀌는걸 엑셀로 만들수있나요?


'Source by 땡큐엑셀vba & 엑셀매크로
'
'엑셀파일 오픈될때 실행되는 이벤트
Private Sub Workbook_Open()

    '1초후에 모듈에 있는 "시계" 프로시저 호출
    예약시간 = Now + TimeSerial(0, 0, 1)
    Application.OnTime 예약시간, "시계"
    
End Sub

 

'Source by 땡큐엑셀vba & 엑셀매크로
'
Sub 시계()

    '현재셀에 현재시간 표시
    ActiveCell = Now
    
    Call 반복예약

End Sub


Sub 반복예약()

    '1초후에 시계 프로시저 호출
    예약시간 = Now + TimeSerial(0, 0, 1)
    Application.OnTime 예약시간, "시계"

End Sub

 

자동시계-Application.Ontime-땡큐엑셀vba.xlsm

0.02MB