開いている自分のブック内のシート名の一覧を取得するマクロです。

シート数はSheets.Countプロパティで、名前はnameプロパティで取得できます。


シート一覧の作成マクロを実行する

VBA入力画面
VBAを入力したVBE画面

入力したコードです。

Sub シート名の一覧作成()
    Dim i As Long
    Dim sname As String
    
    For i = 1 To Sheets.Count
        sname = Sheets(i).Name
        Cells(2 + i, 2).Value = sname
    Next
End Sub

プログラムの説明


Subプロシージャの宣言
Sub シート名の一覧作成()
長整数型の変数を宣言
Dim i As Long
文字列型の変数を宣言
Dim sname As String
シート数だけループを回す (For Next 参照)
For i = 1 To Sheets.Count
変数にi番目のシート名を代入
sname = Sheets(i).Name
シート名が代入された変数をセルに入力
Cells(2 + i, 2).Value = sname
Forループ終了
Next
プロシージャの終了
End Sub

シート名の一覧作成マクロの実行画面

シート名の一覧作成マクロを実行します。
ブックには下記のシートがあります。
  1. Sheet1
  2. シート2
  3. シート3
  4. Sheet4
マクロのダイアログボックス

マクロ実行結果です。B3セルよりシート名の一覧ができています。
作成したシート一覧

Excelマクロのサンプルファイル:フリーダウンロード








Copyright (C) excel.usefulhp.com All rights reserved.