VBA 既存シートコピー時のイベントの捉え方

Question

シート作成時のイベント発生はNewSheet()が用意されていますが
既存シートコピー時のイベント発生はどうしたらいいでしょうか？

何か組み合わせが必要だと思うのですが
SheetActivate()だとシート選択時に発生してしまうので、
SheetActivate()はSheetActivate()でも、何か仕組みを作らないといけないと思うのですが、どうすれば既存シートコピー時のイベントとして捉えることができるでしょうか？

Answer 1

シートのコピーという言葉が曖昧です。ウィンドウズではコピーというのはクリップボードへのコピーを意味することが多いので、複製と言い換えた方が誤解を招かないと思います。

シート作成時に NewSheet が発生するなら、複製時にも発生するんじゃないですか？

追記

実際試してみたら複製時には NewSheet は発生しませんでした。

複製のタイミングをどうにかしてとらえるというアプローチもありますが、別の質問に挙げられた、この方法を使いたいマクロの仕様自体首をひねりますので、私なら設計を変更してトリガーを別のものに変えます。

Answer 2

検証していませんが、SelectionChangeイベント時に、CutCopyModeプロパティを確認して、該当すればイベントを働かせるような処理になるでしょう。

rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Application.CutCopyMode = xlCopy or Application.CutCopyMode = xlCut Then

   'コピーか切り取りが発生しているときにさせたい動作

 End If
End Sub

Comments

[earnest_gay]

既存シートコピー時のイベント発生について質問しているのですが、、、
それは選択範囲を変更した時に動作するイベントではないのでしょうか。