vba - 如何检测Excel中的粘贴事件

Question

这个问题已经有答案了:

Excel VBA How to detect if something was pasted in a Worksheet (3 个回答)

已关闭 6 年前。

我需要检测excel的粘贴命令。当用户单击左侧鼠标按钮单击弹出的菜单上的粘贴时，是否有任何解决方法可以告诉我们。如果用户单击粘贴菜单项，则需要我执行一个过程。任何帮助将不胜感激。

问候，阿米特

Answer 1

借用Excel VBA How to detect if something was pasted in a Worksheet 。对于页面上的任何更改事件(包括粘贴)，都会触发 Workbook_SheetChange 事件。

在此事件中，您可以通过查看撤消列表历史记录中的最新条目来检查最后的更改是否是粘贴:

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