직전에 열어본 시트로 이동하기

Step 1: 어떤 기능일까요?

간혹 홈페이지에 올라오는 질문 중에 특정 시트에서 직전에 열어 본 시트로 갈 수 있는 방법에 대한 내용이 있습니다. 적당한 시트(예: 서울아산병원 또는 삼성의료원 등)를 선택했다가 다시 Main 시트로 돌아와서 버튼을 누르면 직전에 열어 본 시트로 이동합니다.

Step 2: 코드 살펴보기

코드에 대한 내용도 Exceller가 별도의 설명을 드릴 필요도 없을 만큼 설명을 잘 해 주셨습니다. 혹시 학습하시다 궁금한 부분이 있으시면 게시판에 질문주시기 바랍니다.

먼저 ThisWorkbook 개체에 작성하는 Workbook_SheetDeactivate 이벤트 프로시저입니다.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

    Dim MySht As String
    Dim MyAdd As String

    MySht = Sh.Name
    If MySht = "Main" Then Exit Sub
    ' Main 시트에서 나갈 때는 기록하지 않습니다.

    MyAdd = ActiveCell.Address
    Names("Target").Value = "=" & MySht & "!" & MyAdd

End Sub

위 프로시저는 현재 열려 있는 통합 문서에서 특정 시트가 닫힐 경우, 즉 비활성화(SheetDeactivate)될 때 발생하는 이벤트 프로시저로서, 매개변수 Sh에 가장 최근에 닫힌 시트(방금 열어 본 시트)의 이름을 담은 다음, [삽입]-[이름]-[정의]에서 Target이라는 이름으로 정의된 참조대상란을 변수 Sh의 값으로 지정하는 내용입니다. (참고로 [삽입]-[이름]-[정의] 메뉴를 차례로 선택하여 Target이라는 이름으로 정의된 참조대상란을 살펴 보시기 바랍니다.)

다음은 버튼에 연결된 모듈 프로시저입니다.

Sub GoThere()

    Dim strWhere As String
    Dim ShtName As String
    Dim i As Long

    ShtName = Names("Target").Value
    i = WorksheetFunction.Find("!", ShtName) - 2
    strWhere = Mid(ShtName, 2, i)
    Sheets(strWhere).Select

End Sub

버튼에 연결된 모듈 프로시저는 위에서 [이름정의]로 지정된 =삼성의료원!$A$35 형태의 값을 문자열형 변수 strWhere의 값으로 받아, Mid 및 Find 함수 등을 사용하여 삼성의료원 형태로 변경한 다음, 해당 시트를 선택(Select)하게 됩니다.

김우수님 덕택에 이번 강좌는 완전히 거저 먹는군요. ^^ 하긴 살다보면 이런 날도 있어야 사는 재미가 배가되는 것이겠지요.

오늘은 여기까지…

정리 — 직전 시트 이동 코드 핵심

자주 묻는 질문 (FAQ)

마치며

시트 이동 이벤트와 이름 정의를 조합하면 별도의 변수 저장 없이도 직전 시트를 기억해 두고 되돌아갈 수 있습니다.