シート名を取得して一覧を作成するExcelマクロ:エクセルマクロ・Excel VBAの使い方/Sheets・Worksheet

For～Nextループでシート名一覧を作成するサンプルマクロ 以下のようなマクロで、アクティブなブックの先頭に「シート名一覧」というワークシートが挿入され、A列にシート名の一覧が作成されます。 Sub シート名一覧を作成する_1() Dim i As Long Sheets.Add Before:=Sheets(1) ActiveSheet.Name = "シート名一覧" For i = 2 To Sheets.Count Cells(i - 1, "A").Value = Sheets(i).Name Next i End Sub アクティブなブックの先頭（左端）にシートを挿入して、 Sheets.Add Before:=Sheets(1) 名前を「シート名一覧」に変更してから、 ActiveSheet.Name = "シート名一覧" 元々の1枚目のシートから最後のシートの枚数分For～

[hiroroEX]

“▼シート名の一覧を作成するマクロ Sub アクティブセルからシート名一覧を作成する() Dim sh As Object Dim row_num As Long Dim col_num As Long If MsgBox("アクティブセルから下にシート名一覧を作成してもいいですか？", vbYesNo + vbDefaultButt

[oppara]

シート名一覧を作成したい:Excel エクセルの使い方-マクロ/VBA

[mapiro]

VBAでシート一覧を作成