오랜만에 쓸만한? 질문이 올라왔습니다. 여러 거래처를 관리하고 있는 엑셀 시트에서

바로 해당 거래선의 일부 이름으로 검색해서 바로 시트를 선택하고 싶다는 질문이네요.

http://www.clien.net/cs2/bbs/board.php?bo_table=kin&wr_id=3735375CLIEN

 

함수로서 기능을 잘 사용하시는 분은 함수로 사용하시고 저는 VBA가 편하기 때문에

이것을 도구로 사용해서 사용자 폼을 뛰어서 편리하게 시트를 검색, 선택하게 했습니다.

 

너무 간단해서 설명을 할 내용도 별로 없어 보입니다. 

 

 

Option Explicit

 

우선 사용자 폼을 선택하면 LIST시트를 제외한 모든 시트를 목록에 뿌리는 루틴입니다.

사실 없어도 되는 기능입니다. 어짜피 검색 필드를 통해 검색 목록을 뿌리면 지워지는

항목이므로 ... 그래도 이렇게 전체 시트를 보여줄 수 있다는 기능입니다.

 

Sub View_All_Sht_Name()

 

    Dim sht As Worksheet

 

    Dim sht_name As String

 

    For Each sht In Worksheets

        If sht.Name <> "LIST" Then

            UserForm1.ListBox1.AddItem sht.Name

            

        End If

        

    Next sht

 

End Sub

 

이제 검색할 내용을 입력하고 입력 완료를 위해 오른쪽 화살표나 엔터키를  눌러주세요.

입력은 한글을 기본으로 입력되도록 설정해 두었습니다.

 

Private Sub TextBox1_Change()

    

    Dim sht As Worksheet

    Dim sht_name As String

 

    UserForm1.ListBox1.Clear

 

    For Each sht In Worksheets

        If InStr(1, sht.Name, TextBox1.Text, 1) > 0 Then

            If sht.Name <> "LIST" Then

                UserForm1.ListBox1.AddItem sht.Name

                

            End If

        End If

    Next sht

 

End Sub

 

검색된 시트를 클릭하면 바로 활성화 됩니다.

 

Private Sub ListBox1_Click()

 

    Dim sht As Worksheet

    Dim sel_sht As String

    

    sel_sht = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex)

    

    For Each sht In Worksheets

        If sht.Name = sel_sht Then

            sht.Activate

            

        End If

    Next sht

    

End Sub

 

Private Sub UserForm_Initialize()

 

    Call View_All_Sht_Name

 

End Sub

 

개발도구> 디자인모드에서 ActiveX 버튼 하나 만드시고 아래 매크로 연결시켜 주세요.

사용자 폼이 항상 시트 위에 윈도우로 떠 있도록 하는 것인데 검색할 때마다 폼을 

띄우시려면 modalless 제거해 주세요

 

Private Sub CommandButton1_Click()

 

    UserForm1.Show modalless

 

End Sub

 

언제나 처럼 소스는 여기에 올리고 원본 자료는 제 블로그에 올립니다.

http://www.be4u.kr/wp/?p=3322