当cutcopymode设置为true时运行excel宏

我有一个问题，我需要一个特定的宏来运行，每当cutcopymode打开时，我的意思是我会选择一些单元格，当我按下Ctrl+c或Ctrl+x时，宏test1必须运行，我已经尝试过了，但什么都没有发生

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then test1

End Sub

把这个放在你的ThisWorkbook模块上。它将调用您的宏名dyoursub。 更多信息，例如。

---

不客气。

尝试将xlCopy更改为1，将xlCut更改为2，刚刚测试过，metried可以很好地执行此操作，但对我来说，它不起作用@RaugmorIt将在每次使用Ctrl+X或Ctrl+C组合键时调用名为YourSub的宏。为了进一步骚扰你的客户，我建议你也禁用右键点击。发挥创意。首先，我建议将您的Sub改为test1。如果您已经这样做了，我建议先关闭工作簿，然后再打开工作簿。您可能想阅读我的源代码，他们也有其他实例调用这些方法。我确实为test1更改了yoursub，但什么也没有发生，关闭了工作簿。我了解您的代码中发生了什么，它应该是有效的，但事实并非如此=/

Private Sub Workbook_Open()
Application.OnKey "^x", "YourSub"
Application.OnKey "^c", "YourSub"
End Sub