利用禁用屏幕刷新即可,即在程序开头加上一句代码:Application.ScreenUpdating=False程序结尾前加上Application.ScreenUpdating=True关于此例中用到的ScreenUpdating属性的相关知识:如果屏幕更新功能是打开的,则该值为True。Boolean类型,可读写。说明:关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程,但宏的执行速度加快了。当宏结束运行后,请记住将ScreenUpdating属性设回到True。操作说明:当为True时,屏幕上会显示每个单元格数值的变化情况;当为False时,屏幕上只会等运算完成后,才显示结果。
可以api设置全局变量,当按下某个热键时,stop你的vba.
详细百度,vb 全局热键