Excel 2016 VBA에서 OnTime 이벤트 및 키 누르기 이벤트를 사용하는 방법

이 예에서는 Application 개체의 OnTime 메서드가 사용됩니다. 이 메서드는 시간(0.625 또는 3:00 pm)과 시간 이벤트가 발생할 때 실행할 Sub 프로시저의 이름(DisplayAlarm)의 두 인수를 사용합니다.

이 절차는 업무에 너무 몰두하여 회의와 약속을 잊어버리는 경향이 있는 경우에 매우 유용합니다. OnTime 이벤트를 설정하여 스스로에게 상기시키십시오.

대부분의 사람들은 Excel 번호 매기기 시스템의 관점에서 시간을 생각하는 것을 어려워합니다. 따라서 VBA TimeValue 함수를 사용하여 시간을 나타낼 수 있습니다. TimeValue는 시간처럼 보이는 문자열을 Excel에서 처리할 수 있는 값으로 변환합니다. 다음 명령문은 오후 3시에 이벤트를 프로그래밍하는 더 쉬운 방법을 보여줍니다.

Application.OnTime TimeValue(“오후 3:00:00”), “DisplayAlarm”

현재 시간을 기준으로 이벤트를 예약하려면(예: 지금부터 20분) 다음과 같은 명령문을 사용할 수 있습니다.

Application.OnTime Now + TimeValue("00:20:00"), "DisplayAlarm"

OnTime 메서드를 사용하여 특정 날짜에 VBA 프로시저를 실행할 수도 있습니다. 컴퓨터가 계속 실행되고 절차가 포함된 통합 문서가 열려 있는지 확인해야 합니다. 다음 문은 2016년 12월 31일 오후 5시에 DisplayAlarm 프로시저를 실행합니다.

Application.OnTime DateValue("12/31/2016 5:00 pm"), "DisplayAlarm"

이 특정 코드 라인은 집에 돌아가 새해 전야 축제를 준비해야 한다고 경고하는 데 유용할 수 있습니다.

다음은 OnTime 이벤트를 사용하는 또 다른 예입니다. UpdateClock 프로시저를 실행하면 A1 셀에 시간이 기록되고 5초 후에 다른 이벤트도 프로그래밍됩니다. 이 이벤트는 UpdateClock 프로시저를 다시 실행합니다. 결과적으로 셀 A1이 5초마다 현재 시간으로 업데이트됩니다. 이벤트를 중지하려면 StopClock 프로시저(이벤트를 취소함)를 실행하십시오. NextTick은 다음 이벤트의 시간을 저장하는 모듈 수준 변수입니다.

Dim NextTick As Date
하위 UpdateClock()
' A1 셀을 현재 시간으로 업데이트
  ThisWorkbook.Sheets(1).Range("A1") = 시간
' 지금부터 5초 후 다음 이벤트 설정
  NextTick = Now + TimeValue("00:00:05")
  Application.OnTime NextTick, "UpdateClock"
엔드 서브
하위 StopClock()
' OnTime 이벤트 취소(시계 정지)
  오류 시 다음 재개
  Application.OnTime NextTick, "UpdateClock", , False
엔드 서브

StopClock 호출

하위 설정_OnKey()
  Application.OnKey "{PgDn}", "PgDn_Sub"
  Application.OnKey "{PgUp}", "PgUp_Sub"
엔드 서브
하위 PgDn_Sub()
  오류 시 다음 재개
  ActiveCell.Offset(1, 0).활성화
엔드 서브
하위 PgUp_Sub()
  오류 시 다음 재개
  ActiveCell.Offset(-1, 0).활성화
엔드 서브

하위 취소_OnKey()
  Application.OnKey "{PgDn}"
  Application.OnKey "{PgUp}"
엔드 서브

  Application.OnKey "%{F4}", ""