如何在Excel中检测粘贴事件

我需要检测excel的粘贴命令。 是否有任何工作可以告诉我们，当用户点击从左边的button点击popup的菜单粘贴。 如果用户单击粘贴菜单项，则需要我执行一个过程。 任何帮助，将不胜感激。

问候，阿米特

Answer 1

借用Excel VBA如何检测是否有东西被粘贴在工作表中 。 Workbook_SheetChange事件将触发页面上的任何更改事件，包括粘贴。

从这个事件中，您可以通过查看“撤销列表历史logging”中的最新条目来检查上次更改是否为粘贴。

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lastAction As String ' Get the last action performed by user lastAction = Application.CommandBars("Standard").Controls("&Undo").List(1) ' Check if the last action was a paste If Left(lastAction, 5) = "Paste" Then ' Do Stuff Here End If End Sub