ブック名、シート名、印刷枚数、印刷用紙を書き出すマクロ。太字は適宜かいへんしてください。A4しか識別しないようになってます。 Sub CopySheetInfoToGETRIST() Dim ws As Worksheet Dim getristSheet As Worksheet Dim rowNum As Long ' アクティブなブッ…

リストアップという名前のシートのVBAを別シートで起動するるとA列にシート名、B列にBOOKの名前を転記してくれます。 Sub リストアップマクロ2() Dim destWorkbook As Workbook Dim destSheet As Worksheet Dim srcWorkbook As Workbook Dim srcSheet As Wor…

開いたブックに新しいシートを作成し、そのシート名を シート名一覧を新しいシート上に書き出す。B列に書きます。 Sub B列にシート名を書き出せマクロ() Dim i For i = 2 To Sheets.Count Cells(i, 2) = Sheets(i).Name Next iEnd Sub

Sub 新しいシートを挿入してシート名一覧を書き込む() Dim newSheet As Worksheet Set newSheet = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets(1)) newSheet.Activate Dim activeSheetName As String activeSheetName = ActiveSheet.Name Dim ws A…