エクセルバージョン
マイクロソフト365
今回はブック名やシート名の取得と変更のいろいろなパターンがあるのでそれについて解説していきたいと思います。
それではいってみましょう(o^^o)
取得
シート
アクティブなシート名を取得
1 2 3 4 | Sub アクティブシート名() 'アクティブなsheet名を取得 Debug.Print ActiveSheet.name End Sub |
アクティブなブックのシート数を取得
1 2 3 | Sub シート数() Debug.Print Worksheets.Count End Sub |
アクティブなブックの全シート名を取得
1 2 3 4 5 6 7 | Sub アクティブシート名ALL() '現在アクティブなブックのシート名を取得 Dim ws As Worksheet For Each ws In Worksheets Debug.Print ws.name Next End Sub |
ブック
アクティブなブック名を取得
1 2 3 4 | Sub アクティブブック名() 'アクティブなbook名を取得 Debug.Print ActiveWorkbook.name End Sub |
開いてるブック名を全取得
1 2 3 4 5 6 7 | Sub 開いてるファイル名全取得() '現在開いてるエクセルファイル名を取得 Dim wb As Workbook For Each wb In Workbooks Debug.Print wb.name Next End Sub |
シート名の変更
一番左のシートから番号指定でシート名変更
※シートが存在しない場合はエラーがでます。
1 2 3 4 5 | Sub 一番左から番号指定シート名変更() Sheets(1).name = "左1" '一番左のシート Sheets(2).name = "左2" '左から2番目のシート Sheets(3).name = "左3" '左から3番目のシート End Sub |
例えば上記のような形式の場合は下記のような繰り返し処理で一括変更が可能です。
1 2 3 4 5 6 | Sub 繰り返し処理でシート名変更() Dim i As Integer For i = 1 To Worksheets.Count Sheets(i).name = "左" & i Next End Sub |
まとめ
ファイルやシートの取得や変更をする時はご使用してみてください(^o^)o
以上です。