標籤

ASP.NET MVC (29) Visual C# (15) JQuery (10) Plugins (8) JQuery Plugins (6) JavaScript (6) MySQL (5) CSS (4) LinQ (4) Mac OS (4) CentOS (3) Design Pattern (3) Entity Framework (3) IIS (3) Python (3) Windows (3) php (3) Docker (2) LAMP (2) SQL Server (2) WCF (2) .NET (1) .NET Core (1) AWS (1) Browser (1) GIS (1) IE (1) Internet Security (1) Linux (1) Platform (1) React (1) SEO (1) Testing (1) VMware (1) Windows 7 (1) cookie (1) curl (1) laravel (1) phpBB (1) session (1) 中古屋 (1) 透天 (1) 閒言閒語 (1) 面試 (1) 鳥松 (1)

2011年7月28日 星期四

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


沒有留言:

張貼留言