シート一覧の作成：Excel（エクセル）マクロ

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

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

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

VBA入力画面


入力したコードです。

---

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マクロのサンプルファイル：フリーダウンロード

---

---