先在模块首段声明:
如果是32位Office,则声明:
如果是64位Office,则声明:
然后再在某个Sub或Function中加入:
利用禁用屏幕刷新即可,即在程序开头加上一句代码:Application.ScreenUpdating=False程序结尾前加上Application.ScreenUpdating=True关于此例中用到的ScreenUpdating属性的相关知识:如果屏幕更新功能是打开的,则该值为True。Boolean类型,可读写。说明:关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程,但宏的执行速度加快了。当宏结束运行后,请记住将ScreenUpdating属性设回到True。 *** 作说明:当为True时,屏幕上会显示每个单元格数值的变化情况;当为False时,屏幕上只会等运算完成后,才显示结果。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)