Excel使我们常用的办公软件，难免会遇到这样的情况：一个工作簿里面的工作表太多，显示不完全，人工去选中有时太难了！小编根据自身对VBA的研究，在这里为大家分享一下如何利用VBA去查找工作表！工具/原料more多工作表的工作簿具备VB基础更好方法/步骤1/5分步阅读

1.实例分析

分析：我们的目的是将指定工作表找出来，并且将其激活为当前工作表，这里首先要找出工作表，这个操作我们可以直接通过sheets(工作表名称)来指定，这个工作表名称接收用户输入，这里用一个inputbox就可以；然后就是选中激活为当前工作表，这里有一个select关键字就可以

2/5

2.程序设计

根据上面的实例分析，我们编写出下面这套程序：

Sub SelSht() 工作表查找

Dim Sht As String

Dim str As String

On Error Resume Next 【1】

Sht = InputBox(请输入工作表名称：) 【2】

Sheets(Sht).Select 【3】

str = Err.Description 【4】

If str Then 【5】

MsgBox 不存在该工作表或名称输入有误！ 【6】

End If

End Sub

3/5

2.程序分析

【1】这句代码的意思是如果下面程序有错误不报错，这样做的目的是为了防止，用户输入的工作表名称不存在而导致程序无法运行

【2】接收用户输入工作表名称，并赋给Sht这个变量

【3】如果工作表存在，那么这句代码就会选中工作表，并将其激活为当前工作表

【4】如果前面代码出现错误，这个时候str就会被赋予一个变量，该变量值为所提示的错误字符串

【5】对str进行判断，很明显如果str为空值说明前面的程序没有出错，也就是工作表找到了，但是如果不为空，说明出错了，工作表没有找到，进而进入if语句内执行

【6】提示用户不存在该工作表或名称输入有误！

4/5

3.将程序制定到Excel界面按钮上

在工具栏空白处，单击右键，选择窗体，弹出一个对象框，然后选择按钮，将指定的程序连接给该按钮，具体操作见下图：

5/5

4.在界面上进行操作

点击按钮输入“中国”，那么下面的工作表将会自动激活中国这个工作表

见下图示例：

关注小编1/1

本经验属于原创经验，快来赞哦！如果喜欢就为小编投上一票；如果觉得小编的内容你还感兴趣，就关注一下呗！

注意事项

注意输入的工作表名称！

制作按钮的时候要注意选择其作用域！

excel