VBA 一番後ろにシートを追加する

• 作成日 2022.06.20
• vba
• vba

VBAで、一番後ろにシートを追加するコードを記述してます。

目次

• 1. 環境
• 2. 一番後ろにシートを追加
• 3. シート名を設定

環境

• OS windows10 64bit

一番後ろにシートを追加

一番後ろにシートを追加するには、シートをカウントして、その後ろにシートを作成します。

適当なボタンを用意して、以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Worksheets.Add After:=Worksheets(Worksheets.Count)
    
End Sub

実行してみます。

追加されていることが確認できます。

シート名を設定

シート名を設定して追加したい場合は、以下のコードで可能です。

Private Sub CommandButton1_Click()

    Dim w As Worksheet
    
    Set w = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    
    w.Name = "newSheet"
    
End Sub

実行結果

• 前の記事
  

  javascript エラー「Uncaught RangeError: Invalid count value」の解決方法 2022.06.20

• 次の記事
  

  sqlite viewを一覧で取得する 2022.06.20