[VBA] 如何 列舉 活頁簿中的工作表
1.下圖為Excel的工作表,咱們該如何得知活頁簿有哪些工作表呢
2.利用以下程式碼,便可達到此功能
Private Sub SearchSheets()
Dim sh As Worksheet, i As Integer
Cells.Clear
'歷遍工作表
For Each sh In Worksheets
'若工作表名稱已包含"Sheet",則印出
If (InStr(1, sh.Name, "Sheet") > 0) Then
i = i + 1
Debug.Print sh.Name
Cells(i, 1).Value = sh.Name
End If
Next
End Sub
3.執行結果如下,不管工作表有沒有被隱藏,都一覽無遺了
4.範例下載:列舉活頁簿中的工作表.rar
若有謬誤,煩請告知,新手發帖請多包涵
Microsoft MVP Award 2010~2017 C# 第四季
Microsoft MVP Award 2018~2022 .NET