Excel查找指定工作表

有网友问到如何查找指定工作表的问题。判断工作簿中是否存在指定名称的工作表，除了使用遍历工作簿中所有工作表的方法外，还可以使用自定义函数。使用自定义ExistSheet函数判断工作簿中是否存在指定名称的工作表：输入工作表名称。如果该工作表存在，则返回True。如果存在错误，则表示不存在指定名称的表。
代码解析：自定义ExistSh函数包含一个String类型的参数，代表需要判断的工作表名称。如果该工作表存在，则返回True。第5行代码判断前面的代码是否出错，如果前面的代码存在错误，则表示不存在指定名称的表。使用自定义ExistSheet函数判断工作簿中是否存在指定名称的工作表，如下面的代码所示。 作者：来源于网络
Excel查找指定工作表操作动画

1484382984977466.gif

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 = NothingEnd Function  Sub NotSht()     Dim Sh As StringSh = InputBox("请输入工作表名称：")If Len(Sh) > 0 Then  If Not ExistSh(Sh) Then    MsgBox "对不起," & Sh & "工作表不存在!"     Else   MsgBox "工作表 " & Sh & " 存在，已选中！"    Sheets(Sh).Select  End IfEnd IfEnd Sub
点击加入群：Excel部落结识Excel大神学好Excel,效率成倍提高，薪水稳步增长，职位快速提升
每天一个源创技巧，如觉得有用，请点上面关注。更重要手机转发分享