VBAでシートが追加されたタイミングで動かしたい

質問

いつもお世話になっております。

掲題の通り、マクロが動くタイミングを、
そのファイルにシートが追加されたときに自動で動くように
したいのですが、どのようにしたらいいでしょうか。
具体的に言うと、シートを追加すると、そのシート名を自動で
セルの値から取得し、変更してほしいのですが…。

今は以下のように作っています。

Sub シート名変更()
Range("N3") = "=VLOOKUP($I$9,Sheet1!$V$2:$W$22,2,0)"
ActiveSheet.Name = ActiveSheet.Range("N3")
End Sub

申し訳ありませんがご教授いただけたら幸いです。
宜しくお願い致します。

回答No.1

tsubu-yuki · ベストアンサー

ThisWorkbookのモジュールに
　　Workbook_NewSheet
というタイミングがありますよ。
ズバリ、新しいシートが出来たら動くタイミングです。
例えば
Private Sub Workbook_NewSheet(ByVal Sh As Object)
　　Sh.Name = "シート" & Sheets.Count + 1
　　MsgBox "It's New!"
End Sub
こんな感じですね。

新規シートのＩ９セルはこの時点では空白ですが・・・
そこは取り越し苦労ですよね、きっと(笑)。

お礼

ありがとうございます。
私の日本語能力が足りず、シートの追加⇒別ファイルからの複製・移動
だったのです…。
新規シートの追加ではなかったので、I9にはデータが入っていることに
なっておりました。申し訳ありません（涙）

ThisWorkbookのモジュールを色々調べることで、
ダブルクリック別のキーを使うことで落ち着きました。

まだまだわからないことだらけで試行錯誤ばかりですが
頑張ります！

ありがとうございます！

回答No.2

imogasi

回答よりも、どう調べたらよいかを覚えよ。
Googleで「VBA　シート　追加　イベント」で照会すればよい。
この程度の内容なら、ほとんどGoogle照会で済むのだ。質問コーナーに質問する必要なし。
http://www.excel-excel.com/tips/vba_463.html他３、４件はずばりの課題の解説だろう。
ーー
VBE画面でプロジェクトエクスプローラーを出し、ThisWorkbookをクリック。
「General」のところで、「ThisWorkbook]をクリック。
「General」と同行で「Open」とでているところの▼をクリック。
「NewSheet」をクリック。
Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub
が出る。End Subの前の、その空白行に１行記述して
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Name = Worksheets("Sheet1").Range("N3")
End Sub
ーー
（実際にシート挿入操作）
ホームー挿入の▼をクリックー「シートの挿入」をクリック。
Sheet1のシートのN3セルに「あああ」と入れてあると、新シートの挿入と
名前が「あああ」になる。
しかし２度目のシートのとき、気を付けないと、同じシート名「あああ」を作ろうとしてエラーになる。
この防止対策が必要かと思う。
なれないうちは、イベントの利用は怖いものと心得よ。
それよりも、ボタンを作って、そのイベントで、VBAでシート挿入して、VBAでシート名前を適当なものに設定するのが、普通のやり方かと思う。New＿Sheetイベントは使わないということ。

お礼

ありがとうございます。イベントという概念が思いつかず、
調べたものの、うまくいかなかったのですが、
イベントプロシージャの利用で、うまく動きました！！

ボタンを作る方法も考えたのですが、
私だけが使うものではないのと、ボタンのあるシートまで行く
手間を考えたら、ダブルクリックをキーにすることで落ち着きました。

ありがとうございます！