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 "完成"