Excel中利用VBA查找工作表的实例分析

我们经常使用Excel作为办公软件，但是在一个工作簿里面有太多工作表时，很难全部显示出来。手动选择工作表有时候非常困难。通过研究VBA，我将在这里与大家分享如何利用VBA来查找工作表的方法。

程序设计

根据上面的实例分析，我们可以编写以下程序：

```vba

Sub SelSht()

'工作表查找

Dim Sht As String

Dim str As String

On Error Resume Next '1

Sht InputBox("请输入工作表名称：") '2

Sheets(Sht).Select '3

str '4

If str <> "" Then '5

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

End If

End Sub

```

程序分析

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

- 2：接收用户输入的工作表名称，并将其赋值给变量Sht。

- 3：如果工作表存在，那么这句代码会选中并激活该工作表。

- 4：如果前面的代码出现错误，就会将错误描述赋值给变量str。

- 5：对str进行判断，如果str不为空，则说明出错了，工作表没有找到。进入if语句内执行。

- 6：提示用户不存在该工作表或者名称输入有误。

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

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

在界面上进行操作

点击按钮后，输入"中国"，则下方的工作表将自动激活名为"中国"的工作表。

这是一个简单的利用VBA查找工作表的实例。通过以上步骤，您可以更快速地找到并激活所需的工作表。希望这篇文章能对您有所帮助！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。