ペースト実行時の検出

Question

エクセルVBAでペーストが行われた事を検知(Worksheet_Changeの中で)して処理を実行するようなプログラムを考えています。

簡単に調べてはみたのですがペーストの検出方法がよくわかりません。
エクセルのバージョンは2010です。
良いお知恵があればご教示お願いします。

Answer 1

セルのコピー　ペースト
メモ帳に入力した文字をコピー　ペースト
は、テストしました。

試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
    Set c = CommandBars("Standard").Controls(14)
    If ListCnt < c.ListCount Then    '履歴がふえたら
        If c.TooltipText = "元に戻す(&U) 貼り付け (Ctrl+Z)" Then
            MsgBox "貼り付け"
        End If
    End If
    ListCnt = c.ListCount

End Sub

Controls(14)　の番号は下記コードで「元に戻す??(&U)」を探しました。
環境によっては変わる？かわかりません。

Sub tes_index()

Dim c

    For Each c In CommandBars("Standard").Controls
        Debug.Print c.Caption & c.Index
    Next c

End Sub

windows10/office365

Comments

[k1500]

初歩的な質問で失礼します。
ListCntはどのように取得すればよろしいのでしょうか？

[sinzou]

ListCnt = c.ListCountで前回の履歴数を保存しています。（取得してます）
「If ListCnt < c.ListCount Then '履歴がふえたら」、を入れているかは
貼り付けを２回連続した後、「元に戻す」をした時に一つ前の履歴、貼り付けがTooltipTextにきて、貼り付けと誤認するため、履歴が増えた時の貼り付けを対象とするためです。

Answer 2

changeイベントが発生したときに、コピーしたセル範囲が点滅してるかどうかの判定

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.CutCopyMode Then
        MsgBox "ペーストされました。" & Target.Address(False, False)
    End If
End Sub

でも、点滅してない貼付もあるから完璧ではないです。

Comments

[k1500]

お返事が遅れて申し訳ありません。
こちらの環境で試してみたところ、うまくペーストを検出できました。
大変簡潔で有用なご助言に感謝申し上げます。