VBA最最精典的教程(基础入门)解读.ppt

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 ?对模块的概览 Sub?cmdSmallFont_Click() With?Selection.Font .Name=Arial .FontStyle=Regular .Size=16 End?With End?sub 过程被定义为VBA代码的一个单元，过程中包括一系列用于执行 某个任务或是进行某种计算的语句。 上面列出的过程实际上是一个 事件过程。这个过程的名字是 由一个按钮对象的名字 CmdSmallFont和一个事件的 名字Click组成的，两者之间 用下划线分开。 当单击这个命令按钮时， 就会运行这个事件过程。 函数过程通常情况下称为函数，要返回一个数值。这个数值通常是计算的 结果或是测试的结果，例如False?或True.正如前面所说，可以用VBA创建 自定义函数。实际上可以在工作表上使用你创建的函数。 程序清单4-2是一个计算价格的10%为运费的简单例子。 简单的用户定义函数示例。 Public?Function?Shipping(Price) Shipping?=?Price?*?0.1End?Function 这个函数使用一个参数 （Price).子程序和函数 都可以使用参数。Price 可以是数字和单元格引用。 创建过程 创建第一个过程需要两个基本步骤。 首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。 对于创建的每一个应用程序，只需添加一次模块。可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创建的过程只显示一个消息框。?在本练习中创建的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。要创建该过程，请按如下步骤进行： 打开一个新工作簿。 选择工具-宏-Visual?Basic编辑器，打开VBA编辑器窗口。 在`VBA编辑器的左面，可以看到“工程资源管理器”窗口。 在工程资源管理器窗口的“Thisworkbook上单击鼠标右键， 选择“插入”-“模块”，这样就将一个模块添加到应用程序中了。 (如果你没有看见“工程资源管理器”窗口，可以按 Ctrl+R)。 选择“插入”“过程”，显示“添加过程”对话框。 输入“第一个工程”作为过程名字。 在“类型”分组框中，确认选择了“子程序”。单击“确定”按钮。 这样一个新的过程就添加到模块中了。可以在模块中看到以?Public?Sub? 第一个过程（）开始，以End?Sub结束的语句结构。 6）在过程中插入光标，输入以下语句并回车： Msgbox?这是我的第一个过程 在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息， 称之为自动列表技术。输入完成的过程如下所示： Public?Sub?第一个过程（） Msgbox?这是我的第一个过程 End?Sub VBA对子程序和函数有如下的命名规则： *?名字中可以包含字母数字和下划线。 *?名字中不能包含空格句号惊叹号，也不能包含字符@??$?#.? *?名字最多可以包含255个字符。 运行宏 创建这个过程后，可以运行一下。 运行一