因此，我需要做一些事情，首先是在按下Delete键时运行宏，因此我发现了这一点：
Private Sub Worksheet_Activate()
Application.OnKey "{DELETE}", "Intercept"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub
现在，根据我阅读的内容，这将依次使删除键无效，因此我还需要它同时清除当前活动的单元格，我发现：
Sub SetValue()
Worksheets("Sheet1").Activate
ActiveCell.Value = 35
End Sub
还有这个：
Selection.Clear
但是，我是VBA的新手，所以我真的不知道如何将它们结合起来以在delete :)上使用clear函数。任何帮助将不胜感激，谢谢。
OnKey调用“ Intercept”的第二部分是您必须在常规模块中添加的子名称。
您只需要右键单击“模块”>“插入”>“模块”，然后添加如下所示的子项：
工作表代码：
Private Sub Worksheet_Activate()
Application.OnKey "{DELETE}", "deleteAction"
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{DELETE}"
End Sub
模块代码：
Sub deleteAction()
Selection.Clear
[... the few things you have to do :) ...]
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句