Excelのシート名を一覧表示するVBA

コード

Sub シート名取得()
    Dim rowNum As Long      '取得データを格納する行番号
    Dim workSt As Object    'シート名を記録するための変数

'    セルの2行目からシート名を記録する

        rowNum = 2
    
'    ワークシートを順に workSt 変数に一時記録
    For Each workSt In Worksheets
    
    '    取得したワークシートをセル( rowNum , 2 ) に格納
        Cells(rowNum, 2).Value = workSt.Name
        
    '    A列に番号を採番
        Cells(rowNum, 1).Value = rowNum - 1

        rowNum = rowNum + 1
    Next
    
End Sub

Excelでは、シートをたくさん作ることが出来ます。

ところが、たくさんのシートが増えると、目的のシートを探し出すのが大変です。

シート名を表示するVBAを作成しました。

このページの最初に表示しているコードが、VBAコードです。

コメント

タイトルとURLをコピーしました