分かりやすく、使いやすく。

名前を指定してシートを追加する方法

スポンサーリンク

Excel VBA でシートを追加する場合、追加時に名前は指定できず自動的に命名される為、追加直後に名前を変更するようにします。

  1. 名前を指定してシートを先頭に追加する場合
  2. 名前を指定してシートを末尾に追加する場合


名前を指定してシートを先頭に追加する場合

次のサンプルコードでは、一番左にシートを追加してシート名を「テストシート」としています。

VBA（実行可能なサンプルコード）
1
2
3
4
5
6
7
8
9
10

Option Explicit
 
Public Sub test()
    Dim addedSheet As Worksheet
    
    '先頭にシートを追加
    Set addedSheet = Worksheets.Add(Before:=Worksheets(1))
    
    addedSheet.Name = "テストシート"
End Sub
▲このページの一番上に戻る

名前を指定してシートを末尾に追加する場合

次のサンプルコードでは、一番左にシートを追加してシート名を「追加シート」としています。

VBA（実行可能なサンプルコード）
1
2
3
4
5
6
7
8
9
10

Option Explicit
 
Public Sub test()
    Dim addedSheet As Worksheet
    
    '末尾にシートを追加
    Set addedSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    
    addedSheet.Name = "追加シート"
End Sub
▲このページの一番上に戻る
スポンサーリンク
カテゴリー
スポンサーリンク