Excel查找指定工作表

有网友问到如何查找指定工作表的问题。 判断工作簿中是否存在指定名称的工作表，除了使用遍历工作簿中所有工作表的方法外，还可以使用自定义函数。

使用自定义ExistSheet函数判断工作簿中是否存在指定名称的工作表：输入工作表名称。如果该工作表存在，则返回True。如果存在错误，则表示不存在指定名称的表。  

代码解析：

自定义

ExistSh

函数包含一个

String

类型的参数，

代表需要判断的工作表名称。

如果该

工作表存在，则返回

True

。

第

5

行代码判断前面的代码是否出错，

如果前面的代码存在错误，

则表示不存在指定名

称的表。

使用自定义

ExistSheet

函数判断工作簿中是否存在指定名称的工作表，如下面的代码

所示。

  作者：来源于网络

  Excel查找指定工作表操作动画

        Excel查找指定工作表vba代码：                      

        Function ExistSh(Sh As String) As Boolean

            Dim Sht As Object

            On Error Resume Next

            Set Sht = Sheets(Sh)

            If Err.Number = 0 Then ExistSh = True

            Set Sht = Nothing

        End Function

        Sub NotSht()                   

        Dim Sh As String

        Sh = InputBox("请输入工作表名称：")

        If Len(Sh) > 0 Then

            If Not ExistSh(Sh) Then

                MsgBox "对不起," & Sh & "工作表不存在!"

            Else

               MsgBox "工作表 " & Sh & " 存在，已选中！"

                Sheets(Sh).Select

            End If

        End If

        End Sub