试试下面的代码,网上例子很多:
'按a执行宏TEST
Application.OnKey "a", "TEST"
'恢复按a正常功能
Application.OnKey "a"
'按a不发生任何作业
Sub TEST3()
Application.OnKey "a", ""
End Sub
ctl+C: "^c"
ctl+V: "^v"
Alt+F4: "%{F4}"
PageUp:"{PgUp}"
PageDown"{:PgDn}"
不太明白你的意思,请举例说明
使用 Application.SendKeys 方法,具体请百度一下