Excel-Excel !　シートの追加エクセルTips

シートの追加

メニューから手動で複数のワークシートの挿入を行うには大変ですが、VBAの方が簡単にできます。カレンダー作成時は12枚のシート追加の必要があるのでこの方法を使用しました。
ADDメソッドで、シートの挿入位置や枚数を指定できます。After、Beforeで挿入位置を指定し、Countで枚数を指定します。
シートを削除するには、Deleteメソッドを使用します。

標準モジュールコード

Public Sub SheetsAdd(sw As Integer)
    Select Case sw
        Case 1:
            '最後のシートの前にシート追加
            ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
        Case 2:
            '最後にシート追加
            ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
        Case 3:
            '最後のシートの前に2枚のシート追加
            ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count), Count:=2
        Case 4:
            '最後に2枚のシート追加
            ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count), Count:=2
    End Select
End Sub

実行前

実行結果　 SheetsAdd 1 を実行

Topへ　 Homeへ