新規シートが作成された時に処理を実行する ： Excel VBA
新しいシートが作成されると処理を実行するイベントは、NewSheetです。
イベント構文 ： Workbook_NewSheet(ByVal Sh As Object)Sh ： 新規シートのWorksheetオブジェクトか、Chartオブジェクトが返ります。
シートを追加すると自動的に最終位置に移動するようにしています。シートの移動は「Move」を使います。
Homeに戻る > Excel シートのTipsへ
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
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move after:=Sheets(Sheets.Count)
MsgBox "新規シートが追加されました。" & vbCrLf & _
"シート名：" & Sh.Name
End Sub
[関連リンク］
Homeに戻る > Excel シートのTipsへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved