--- 打開(kāi)示例工作表首先，打開(kāi)一個(gè)示例工作表作為演示對(duì)象。 選擇第一個(gè)工作表現(xiàn)在，我們選定工作表序號(hào)為1的工作表，即激活了5月工資工作表。我們的目標(biāo)是使用VBA按順序選擇接下來(lái)的工作表，即源數(shù)據(jù)工作

---

打開(kāi)示例工作表

首先，打開(kāi)一個(gè)示例工作表作為演示對(duì)象。

選擇第一個(gè)工作表

現(xiàn)在，我們選定工作表序號(hào)為1的工作表，即激活了5月工資工作表。我們的目標(biāo)是使用VBA按順序選擇接下來(lái)的工作表，即源數(shù)據(jù)工作表。

進(jìn)入VBE編輯器

使用快捷鍵Alt F11進(jìn)入VBE編輯器，在新模塊中輸入以下代碼：

```vba

Sub choosesheet()

End Sub

```

運(yùn)行代碼

執(zhí)行代碼后，發(fā)現(xiàn)當(dāng)前激活的Excel工作表已經(jīng)切換到源數(shù)據(jù)工作表。繼續(xù)執(zhí)行該代碼，觀察到Excel工作簿中的工作表按順序逐個(gè)被激活。

處理最后一個(gè)工作表情況

當(dāng)激活到最后一個(gè)工作表時(shí)，再次運(yùn)行代碼會(huì)導(dǎo)致VBA報(bào)錯(cuò)，提示對(duì)象變量未設(shè)置。為避免這種情況，我們需要添加判斷條件。在VBA中輸入以下代碼：

```vba

Sub choosesheet()

If < Then

Else

End If

End Sub

```

通過(guò)以上修改，當(dāng)激活的工作表序列為最后一個(gè)時(shí)，代碼將不再?lài)L試激活下一個(gè)工作表，避免出現(xiàn)錯(cuò)誤。

---

通過(guò)以上步驟，可以在Excel中利用VBA簡(jiǎn)單而高效地按順序選擇工作表，提高工作效率。