[VBA] 시트 이름 받아서 해당 시트 활성화하기

이번에는 VBA 예제를 하나 소개하려고 합니다.

InputBox로 시트 이름을 받아서 입력 받은 시트 이름과 동일한 시트를 가진 경우
시트를 활성화하는 소스입니다.

자 그럼 시작해 볼까요?

예제 실행하기

아래 파일을 다운로드 하세요

시트활성화_예제.xlsm

1. Microsoft Excel을 실행합니다.

2. 엑셀이 실행된 상태에서 키보드의 [Alt]키를 누른 상태에서 [F11]키를 누릅니다. Visual Basic 에디터를 실행됩니다.

3. 상단의 [삽입] 메뉴에서 [모듈]을 선택합니다.

4.  아래와 같은 그림이 나오면 다음과 같은 소스를 입력합니다.

Sub 시트활성화()     ' 작업 성공여부 판별을 위한 isActivated 변수     Dim str         As String     Dim isactivated As Boolean         isactivated = False         ' 활성화할 시트 이름 입력     str = InputBox("활성화할 시트의 이름을 입력하세요.", "활성화할 시트 이름 입력")         ' 입력된 문자열과 모든 워크시트의 Name 속성과 비교하여     ' 동일한 문자열이 있으면     ' Activate 메소드로 활성화하고     ' isActivated를 True로 만들어 작업성공을 표시         For Each ss In ActiveWorkbook.Sheets             If ss.Name = str Then             ss.Activate             isactivated = True                     End If         Next          If isactivated Then         MsgBox "시트를 활성화 했습니다."     Else         MsgBox "시트가 존재하지 않습니다."     End If     End Sub

5. [F5] 버튼을 눌러 실행합니다.

실행한 모습

실행하면 아래와 같이 됩니다.

[실행화면1] 활성화할 시트의 이름을 입력합니다.

[실행화면2] 입력된 Sheet2라는 시트를 찾아 Sheet2를 활성화 합니다.

[실행화면3] 시트를 활성화 했다는 메시지를 출력합니다.

따라하시면 금방 하실거에요^^