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

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

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

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

Excel Tipsメニューに戻る

スポンサーリンク






Excel実行画面

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

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

新規シートを作成した時に、処理を実行するVBAの入力画面です。
処理を実行する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 Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved