CutCopyMode が xlCut にならない

Question

Windows10 で Office365 の Excel 2016 を使用しています。

マクロにて ThisWorkbook オブジェクトの App_SheetChange() 内に

Dim vCCM As Variant

vCCM = Application.CutCopyMode

を入れて vCCM をウォッチしてみたところ

セルの値をコピー後に別のセルに貼り付けるときには vCCM = xlCopy (=1)になるのですが

セルの値をカットして別のセルに貼り付けるときには

カットのタイミングでも貼り付けるタイミングでも vCCM = 0 となってしまい

xlCut (=2) になりません。

MSDN↓に書かれている動作と食い違っていると思われるのですが

https://msdn.microsoft.com/ja-jp/library/office/ff839532.aspx

切り取りモード時に xlCut にするためには何か設定が必要なのでしょうか？

あるいは SheetChange イベント発生時にはすでに切り取りモードが終わっているのでしょうか？

なお、コピーは [Ctrl]+[c] 、カットは [Ctrl]+[x] 、貼り付けは [Ctrl]+[v] の

キーボードショートカットを使用しています。

Answer 1

>ということは「SheetChange イベント発生時にはすでに切り取りモードが終わっている」

>ということですね？

実験結果から私はその様に考えていますが，公式な資料を見付けられなかった為，あくまで実験結果を踏まえた私見です．

>そのタイミングで受け取れるイベントは何かありますか？

>できればThisWorkbook内で処理したいのですが Workbook オブジェクトには

>適当なイベントが見つかりませんでした。

申し訳ありませんが，当方の知識では解決策をご提案できない為，他の回答者の方からのご回答をお待ち下さい．

また，VBAに関するご質問ですので，開発者の方々が多く利用されているMSDNフォーラムのVBAフォーラム

https://social.msdn.microsoft.com/Forums/ja-JP/home?forum=vbajp

をご活用になるとアドバイスなどが集まりやすいかもしれません．

Answer 2

>カットのタイミングでも貼り付けるタイミングでも vCCM = 0 となってしまい

[Ctrl]+[x]だけを実行し，「点滅している枠線」がある状態でApplication.CutCopyModeの値をVisual Basic Editorのイミディエイトウィンドウで確認しても2になっていませんか？

　　　

Answer 3

GurikoMさん

アドバイスありがとうございます。

MSDNのVBAフォーラムに質問を入れましたのでそちらで待つことにいたします。

Answer 4

ご回答ありがとうございます。

たしかにこのタイミングでは 2 になります。

ということは「SheetChange イベント発生時にはすでに切り取りモードが終わっている」ということですね？

SheetChange イベント発生時に

「通常の記入」なのか「Copy後の貼り付け」なのか

「Cut後の貼り付け」なのかを切り分けしようとすると

切り取りを実行したタイミングでフラグを立てておく必要がありますね。

そのタイミングで受け取れるイベントは何かありますか？

できればThisWorkbook内で処理したいのですが Workbook オブジェクトには

適当なイベントが見つかりませんでした。