新規シートが作成された時に処理を実行する： Excel VBA

新しいシートが作成されると処理を実行するイベントは、NewSheetです。

イベント構文　：　Workbook_NewSheet(ByVal Sh As Object)
Sh ：　新規シートのWorksheetオブジェクトか、Chartオブジェクトが返ります。

シートを追加すると自動的に最終位置に移動するようにしています。シートの移動は「Move」を使います。

Excel実行画面

下のシート名部分の「新しいシート」をクリックし作成します。

新規シートを作成すると、一番最後の位置に移動し、「新規シートが追加されました。シート名：＊＊＊＊＊」とメッセージが表示されます。

新規シートを作成した時に、処理を実行するVBAの入力画面です。

Excel VBAコード

Option Explicit

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Move after:=Sheets(Sheets.Count)
    MsgBox "新規シートが追加されました。" & vbCrLf & _
        "シート名：" & Sh.Name
End Sub

[関連リンク］

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

新規シートが作成された時に処理を実行する ： Excel VBA

新しいシートが作成されると処理を実行するイベントは、NewSheetです。

Excel実行画面

Excel VBAコード

新規シートが作成された時に処理を実行する： Excel VBA