我們經(jīng)常使用Excel作為辦公軟件，但是在一個(gè)工作簿里面有太多工作表時(shí)，很難全部顯示出來。手動(dòng)選擇工作表有時(shí)候非常困難。通過研究VBA，我將在這里與大家分享如何利用VBA來查找工作表的方法。程序設(shè)計(jì)根

我們經(jīng)常使用Excel作為辦公軟件，但是在一個(gè)工作簿里面有太多工作表時(shí)，很難全部顯示出來。手動(dòng)選擇工作表有時(shí)候非常困難。通過研究VBA，我將在這里與大家分享如何利用VBA來查找工作表的方法。

程序設(shè)計(jì)

根據(jù)上面的實(shí)例分析，我們可以編寫以下程序：

```vba

Sub SelSht()

'工作表查找

Dim Sht As String

Dim str As String

On Error Resume Next '1

Sht InputBox("請(qǐng)輸入工作表名稱：") '2

Sheets(Sht).Select '3

str '4

If str <> "" Then '5

MsgBox "不存在該工作表或名稱輸入有誤！" '6

End If

End Sub

```

程序分析

- 1：這句代碼的意思是，如果下面的程序有錯(cuò)誤不報(bào)錯(cuò)。這樣做的目的是為了防止用戶輸入的工作表名稱不存在而導(dǎo)致程序無法運(yùn)行。

- 2：接收用戶輸入的工作表名稱，并將其賦值給變量Sht。

- 3：如果工作表存在，那么這句代碼會(huì)選中并激活該工作表。

- 4：如果前面的代碼出現(xiàn)錯(cuò)誤，就會(huì)將錯(cuò)誤描述賦值給變量str。

- 5：對(duì)str進(jìn)行判斷，如果str不為空，則說明出錯(cuò)了，工作表沒有找到。進(jìn)入if語句內(nèi)執(zhí)行。

- 6：提示用戶不存在該工作表或者名稱輸入有誤。

將程序制定到Excel界面按鈕上

在工具欄空白處，單擊右鍵，選擇窗體，彈出一個(gè)對(duì)象框，然后選擇按鈕。將上述指定的程序連接給該按鈕。具體操作見下圖。

在界面上進(jìn)行操作

點(diǎn)擊按鈕后，輸入"中國"，則下方的工作表將自動(dòng)激活名為"中國"的工作表。

這是一個(gè)簡單的利用VBA查找工作表的實(shí)例。通過以上步驟，您可以更快速地找到并激活所需的工作表。希望這篇文章能對(duì)您有所幫助！