Excelで、アクティブブックの可視シート名を列挙する方法。結構使うけど忘れがちなのでメモ。
Option Explicit Sub 可視シート名を列挙する() Dim sheetCnt As Integer Dim i As Integer Dim tmpSheet As Worksheet sheetCnt = ActiveWorkbook.Worksheets.Count For i = 1 To sheetCnt Set tmpSheet = ActiveWorkbook.Worksheets(i) If tmpSheet.Visible = True Then Debug.Print tmpSheet.Name End If Set tmpSheet = Nothing Next End Sub
対象となるブックと、実行結果は以下の通り。可視シートのみシート名が出力されます。