티스토리 뷰

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

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


자 그럼 시작해 볼까요?

 예제 실행하기  

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



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] 시트를 활성화 했다는 메시지를 출력합니다.


따라하시면 금방 하실거에요^^
공유하기 링크
TAG
댓글
댓글쓰기 폼
공지사항
Total
3,162,650
Today
105
Yesterday
815
«   2019/12   »
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31        
글 보관함