[Office] Excel中如何使用VBA快速尋找sheet

1. Excel2010 開啟巨集功能 ： http://www.dotblogs.com.tw/chou/archive/2010/04/19/14690.aspx

2. 加個按鈕，執行下列程式碼：

Dim sh As Worksheet
Dim Message, Title, Default, MyValue
Message = "輸入查詢工作表名稱"  ' 設定提示訊息。
Title = "查詢工作表名稱"        ' 設定標題。
'Default = "1"                  ' 設定預設值。
ShSearch = InputBox(Message, Title, Default)
If ShSearch = "" Then Exit Sub

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each sh In Sheets
    If sh.Name <> "控制" Then
    If InStr(1, sh.Name, ShSearch, 1) = 0 Then
'        MsgBox sh.Name & " - " & InStr(1, sh.Name, ShSeek, 1)
'        sh.Visible = xlSheetVeryHidden
        '隱藏工作表:  Sheet1.Visible = xlSheetVeryHidden
        '顯示工作表:  Sheet1.Visible = xlSheetVisible
    Else
        Msg = "你要到該工作表嗎? - " & sh.Name              ' 定義訊息。
        Style = vbYesNo + vbCritical + vbDefaultButton2     ' 定義按鈕。
        Title = "查詢工作表名稱"                            ' 定義標題。
'        Help = "DEMO.HLP"                                   ' 定義說明檔。
'        Ctxt = 1000                                         ' 定義內容代碼。
                                                             ' 顯示訊息。
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)
        If Response = vbYes Then    ' 若使用者按下 [是]。
            MyString = "Yes"            ' 產生相對回應。
            Sheets(sh.Name).Select
            Exit Sub
        Else                        ' 若使用者按下 [否]。
            MyString = "No"             ' 產生相對回應。
        End If
       
    End If
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'MsgBox "完成"