OnKey 메서드에 대하여

Step 1: 엑셀은 Big Brother?

엑셀은 George Orwell의 [1984년]에 나오는 Big Brother 입니다. 무슨 얘기냐고요? 당연히 궁금하실 것입니다. ^^

너무도 당연한 얘기지만, 엑셀은 사용자가 어떤 작업을 하고 있는지 항상 감시(?)합니다. 어떤 메뉴를 눌렀는 지, 어떤 오브젝트를 삽입하였는 지는 물론 어떤 데이터를 셀에 입력하고 있는 지 항상 모니터링 합니다.

이러한 특성을 응용하면 특정 키나 키 조합을 눌렀을 경우 특정 프로시저가 실행되도록 할 수 있습니다. 이 경우 사용되는 것이 Application 오브젝트의 OnKey 메서드 입니다.

Step 2: OnKey 메서드로 단축키 바꾸기

아래의 버튼을 클릭하신 다음, PageUp 키와 PageDown 키를 번갈아가며 눌러 보세요.

어떤 일이 생깁니까? PageUp 키나 PageDown 키를 누를 때마다 페이지 단위로 화면이 이동하는 것이 아니라 다섯 간씩 셀 포인터가 이동하지요?

이처럼 OnKey 메서드를 이용하면 자신만의 단축키를 만들거나 기존에 설정되어 있는 단축키를 무력화 시킬 수도 있는 것입니다. 코드를 볼까요?

Sub SetupOnKey()
    Application.OnKey "{PgDn}", "PageDown"
    Application.OnKey "{PgUp}", "PageUp"
    '''PgUp은 입력되는 키(또는 키 조합)를 의미하고 PageUp은 해당 키 또는 키 조합을 눌렀을 때
    '''실행할 프로시저 명을 의미합니다. 키를 지정할 때 사용할 수 있는 키 및 코드는 아래와 같습니다.
    '''Ctrl, Shift, Alt 등과 같은 특수 키와 조합하여 사용할 수도 있습니다.
End Sub

PgUp은 입력되는 키(또는 키 조합)를 의미하고 PageUp은 해당 키 또는 키 조합을 눌렀을 때 실행할 프로시저명을 의미합니다. 키를 지정할 때 사용할 수 있는 키 및 코드는 아래와 같습니다.

Ctrl, Shift, Alt 등과 같은 특수 키와 조합하여 사용할 수도 있습니다.

예제에서 PageDown, PageUp 프로시저는 각각 셀 포인터를 다섯 칸 아래, 다섯 칸 위로 이동시키는 프로시저입니다.

Sub PageDown()
    On Error Resume Next
    ActiveCell.Offset(5, 0).Select
End Sub

Sub PageUp()
    On Error Resume Next
    ActiveCell.Offset(-5, 0).Select
End Sub

Step 3: 원상복귀시키기

이제 다시 원상복귀를 시켜 보도록 하지요. 아래의 버튼을 누르신 다음 PageUp 키나 PageDown 키를 눌러 보세요.

Sub CancelOnkey()
    Application.OnKey "{PgDn}"
    Application.OnKey "{PgUp}"
    '''즉 OnKey 메서드의 첫번째 인수(즉 키 또는 키 조합)만 전달하고 두번째 인수값은 생략하면
    '''원래 상태로 돌아가는 것입니다.

End Sub

즉 OnKey 메서드의 첫번째 인수(즉 키 또는 키 조합)만 전달하고 두번째 인수값은 생략하면 원래 상태로 돌아가는 것입니다.

자신이 자주 사용하는 단축키를 프로시저에 연결해 두고 사용하면 편리하겠지요? 많이 응용해 보시기 바랍니다.

오늘은 여기까지…

정리 — OnKey 메서드 핵심

자주 묻는 질문 (FAQ)

마치며

자신이 자주 사용하는 단축키를 프로시저에 연결해 두면 작업이 훨씬 편리해집니다.