excel中查找工作表使用方法

 

Sub FindSheets()

Dim n As Integer

Dim myWorkSheetCount As Integer

Dim FindSheetsName As String

Dim InStringTure As Integer

 

myWorkSheetCount = Worksheets.Count

FindSheetsName = Application.InputBox( _

prompt:="请输入要查找的工作表名", _

Title:="查找工作表", Type:=2)

 

For n = 1 To Worksheets.Count

InStringTure = InStr(1, UCase(Worksheets(n).Name), UCase(FindSheetsName))

 

If InStringTure <> 0 Then

Worksheets(n).Select

myPrompt = "你要找的是这个工作表吗?" & Chr(13) & Chr(13) & Worksheets(n).Name

myTitle = "确认工作表"

myFindResult = MsgBox(myPrompt, vbYesNo, myTitle)

If myFindResult = 6 Then

Exit For

End If

End If

Next n

If n = Worksheets.Count + 1 Then

MsgBox ("查找完毕")

End If

End Sub