방향키로 셀 크기 조절하기 (OnKey)

Step 1: OnKey 메서드로 셀 크기 조절하기

OnKey 메서드를 이용하면 강좌 제목과 같이 특정 키를 사용하여 셀 크기를 조절할 수 있습니다. OnKey 메서드라고 하니까 언제 들어본 것도 같고 아닌 것 같기도 하고… 마구 헷갈리시지요? 분명히 했습니다. ^^

OnKey 메서드가 머하는 거였더라? 하는 분은 잽싸게 VB0144, VB0145 강좌를 다시 열어보고 오시기 바랍니다(특정한 키 또는 키 조합을 누르면 사용자가 지정한 프로시저를 실행하는 메서드이지요).

아래 버튼을 클릭하신 다음, Shift 키를 누른 채 방향키를 눌러 보세요.

키를 누를 때마다 셀의 크기가 늘었다 줄었다 하지요? 열 너비뿐만 아니라 행 높이에도 동일하게 적용될 것입니다. 코드를 보면…

Sub AdjustCellSize()
    With Application
        .OnKey "+{Right}", "RightDirection"
        ' +{Right} 부분은 입력되는 키를 나타내는 문자열입니다. 여기서 + 기호는 + 키를
        ' 누르라는 것이 아니라 Shift 키를 의미합니다. 그 다음의 {Right}는 방향키 중에서
        ' 오른쪽 방향키를 의미하는 것입니다.
        ' 마지막에 있는 RightDirection은 실행할 프로시저명 입니다.

        ' 아직 OnKey 메서드가 잘 이해되지 않는 분은 고집(?) 부리지 말고 얼른 VB0144
        ' 강좌를 보고 오시라니깐요!

        .OnKey "+{Left}", "LeftDirection"
        .OnKey "+{Up}", "Upward"
        .OnKey "+{Down}", "Downward"
    End With
End Sub

Step 2: 방향별 프로시저

아래 네 개의 프로시저는 위 AdjustCellSize에서 호출한 것으로 각 방향키를 눌렀을 때 셀 크기를 상/하/좌/우 방향으로 늘였다 줄였다 하는 코드입니다. 이 코드는 더 이상의 설명이 필요없을 듯 하고…

Sub RightDirection()
    On Error Resume Next

    With Selection
        .ColumnWidth = .ColumnWidth + 0.1
    End With
End Sub

Sub LeftDirection()
    On Error Resume Next

    With Selection
        .ColumnWidth = .ColumnWidth - 0.1
    End With
End Sub

Sub Upward()
    On Error Resume Next

    With Selection
        .RowHeight = .RowHeight - 0.3
    End With
End Sub

Sub Downward()
    On Error Resume Next

    With Selection
        .RowHeight = .RowHeight + 0.3
    End With
End Sub

Step 3: 기능 끄기

마지막으로, 작동시키는 기능이 있으면 멈추는 기능도 당연히 준비를 해 두어야 겠지요. 아래 버튼을 누르세요.

Sub TurnOff()
    With Application
        .OnKey "+{Right}", ""
        ' 더 간단합니다. 특정 키를 눌렀을 때 프로시저를 별도로 지정하지 않으면 기능이
        ' 자동으로 꺼지는 것입니다.

        .OnKey "+{Left}", ""
        .OnKey "+{Up}", ""
        .OnKey "+{Down}", ""
    End With
End Sub

아주 간단하지요? 이 방법이 아주 편리하다고 생각되시는 분은 추가 기능 파일을 만들어서 등록해 두고 사용하셔도 될 것입니다.

정리 — OnKey 활용 핵심 코드

자주 묻는 질문 (FAQ)

마치며

OnKey를 활용하면 자주 쓰는 동작을 원하는 키 조합에 연결해 작업 속도를 높일 수 있습니다.