Excel函数VBA教程基础入门(下).ppt

提高VBA运行效率 方法4：关闭屏幕更新 如果你的VBA程序前面三条做得比较差，则关闭屏幕更新是提高VBA程序运行速度的最有效的方法，缩短运行时间2/3左右。 关闭屏幕更新的方法： Application.ScreenUpdate?=?False 请不要忘记VBA程序运行结束时再将该值设回来： Application.ScreenUpdate?=?True 用过?Excel?97?里的加载宏?定时保存?吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。?在?Office?里有个方法是?application.ontime，具体函数如下： expression.OnTime( EarliestTime,?Procedure,?LatestTime,?Schedule) 如?果想进一步了解，请参阅?Excel的帮助。? 这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在?Excel?里编写自己的定时程序了。下面就举两个例子来说明它。? 1.在下午?17:00:00?的时候显示一个对话框。?  Sub?Run_it() Application.OnTime?TimeValue(17:00:00),?Show_my_msg 设置定时器在?17:00:00?激活，激活后运行?Show_my_msg。End?Sub Sub?Show_my_msg() msg?=?MsgBox(现在是?17:00:00?！,?vbInformation,?自定义信息) End?Sub 2.模仿?Excel?97?里的?自动保存宏,在这里定时?5?秒出现一次?  Sub?auto_open() MsgBox?欢迎你，在这篇文档里，每?5?秒出现一次保存的提示！,?vbInformation,?请注意！ Call? runtimer?打开文档时自动运行 End?Sub Sub? runtimer() Application.OnTime?Now?+?TimeValue(00:00:05),?saveit ?Now?+?TimeValue(00:15:00)?指定在当前时间过?5?秒钟开始运行?Saveit?这个过程。 End?Sub 以上只是两个简单的例子，有兴趣的话，可以利用?Application.Ontime?这个函数写出更多更有用的定时程序 Sub?SaveIt() msg?=?MsgBox(朋友，你已经工作很久了，现在就存盘吗？??Chr(13)?_ ?选择是：立刻存盘??Chr(13)?_ ?选择否：暂不存盘??Chr(13)?_ ?选择取消：不再出现这个提示,?vbYesNoCancel?+?64,?休息一会吧！) 提示用户保存当前活动文档。? If?msg?=?vbYes?Then?ActiveWorkbook.Save?Else?If?msg?=?vbCancel?Then?Exit?Sub Call?runtimer?如果用户没有选择取消就再次调用?Runtimer End?Sub * * VBA简易教程（下） 创建过程 创建第一个过程需要两个基本步骤。 首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。 对于创建的每一个应用程序，只需添加一次模块。可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创建的过程只显示一个消息框。?在本练习中创建的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。要创建该过程，请按如下步骤进行： 打开一个新工作簿。 选择工具-宏-Visual?Basic编辑器，打开VBA编辑器窗口。 在`VBA编辑器的左面，可以看到“工程资源管理器”窗口。 在工程资源管理器窗口的“Thisworkbook上单击鼠标右键， 选择“插入”-“模块”，这样就将一个模块添加到应用程序中了。 (如果你没有看见“工程资源管理器”窗口，可以按 Ctrl+R)。 选择“插入”“过程”，显示“添加过程”对话框。 输入“第一个工程”作为过程名字。 在“类型”分组框中，确认选择了“子程序”。单击“确定”按钮。 这样一个新的过程就添加到模块中了。可以在模块中看到以?Public?Sub? 第一个过程（）开始，以End?Sub结束的语句结构。 6）在过程中插入光标，输入以下语句并回车： Msgbox?这是我的第一个过程 在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息， 称之为自动列表技术。输入完