読者です 読者をやめる 読者になる 読者になる

管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

可視シート名を列挙する(ExcelVBA)

ExcelVBA Excel

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

対象となるブックと、実行結果は以下の通り。可視シートのみシート名が出力されます。
f:id:ksk1130:20170309233739p:plainf:id:ksk1130:20170309233740p:plain