是用VB来设置快捷键吧!如果过程为abc,按下Ctrl+F7就运行abc,代码如下private Sub abc() sheets.addendsubsub 设置快捷键() application.onkey"^F7"endsub