VB(A)

설정한 시간이 되면 매크로 실행

당근쨈 2015. 8. 18. 15:14
셀에 원하는 시간을 입력하면
그 시간이 되면 파일을 저장하고 PC까지 꺼주는 매크로
유용할지도


Sub pcTime()
 
    Dim dtTime As Date
 
    dtTime = Range("B1").Value2
 
    Application.OnTime dtTime, "Macro"
 
End Sub
 
 
Sub Macro()
 
    Application.DisplayAlerts = False
 
    ActiveWorkbook.Save
 
    Shell "shutdown.exe -s -f"
 
End Sub
cs