VBA的商务应用实例

《VBA的商务应用实例》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、练习19WordVBA的应用实例1目录前言3第一部分准备知识31•“宏"安全性的设置32、“宏”的录制43、文档的保护44、Word中的控件工具箱45、Show方法46、Hide方法57、单击事件58、设计模式59、单元格的操作610、单元格的属性和方法611、OnErrorGoto语句612、清除内容713、MsgBox的设定7第二部分操作实例7、设计按钮和其他准备工作（见完成文档）二、为每个按钮设计窗口10三、为窗口屮的控件设计代码14、》—一刖吕在诸如调查报告、申报文件.比较复杂的问卷.登

2、记手册之类的文件中，填写表格是常见的工作。通过VBA编辑程序过程来执行表格的操作有以下几个好处:1.表格中需要重复填写的数据可以只填写一次;2.可以将复杂表格中不同位置的内容集中到同一个窗口(Form)中操作，界面更加友好；同时可以减少失误，提高效率。3・对填写结果有选项限制的表格内容进行提前设置，减少不规范填写；并能通过属性设置统一填写字符的格式。4.对填写结果进行检查，纠正错误。5.因此，在日常文件调查、申报和信息处理过程中，VBA可以使Word的操作效率更高，减少反复人工校对和纠错的时间。

3、下例是通过一个简化的例子来完成一个Word表格的VBA设置。第一部分准备知识1•“宏，，安全性的设置调试和运行VBA程序前，需要Word允许宏的运行，因此应设置宏/安全性为中等.如果Word已经运行，想要在不退出程序的情况下运行宏，必须将安全性设置为低.如果选择中等安全，需要退出Word后重新启动才生效.2.“宏”的录制将需要调用的宏提前录制下来，后面调用时只需在过程中的某行输入该宏的名称即可。注意：要使文档处于保护状态，只需将保护文档的宏录制并保存在本文档对应的“模块”中即可。3.文档的保护设

4、置文档保护、取消保护操作是通过Word执行一段代码来完成的，并且这段代码可以被记录下来。用于控制文档的编辑，防止在设计窗口(Form)以外的地方填写，同时避免对文档的过失性删改。4.Word中的控件工具箱选择视图/工具栏/VisualBasic,再选择该工具栏上右起第3个按钮，即可打开控件工具箱。安全性⑤二兰快］些1s亘这个工具箱的功能与VBA编辑器中的“工具箱”(在VBA编辑器中，选择“视图”/“工具箱”)类似，用来设计如按钮、标签之类的控键，使用的方法仍然是鼠标点击然后再编辑其属性o5.Sh

5、ow方法VBA内置方法，用来打开某个窗口或对象。，打开名为Forml格式为：对象名.Show,例如：Forml.Show的窗口。6.Hide方法与Show方法相反，用于隐藏某个对象;例：Forml.Hide即Click事件，是在某对象上单击鼠标左键的事件，该事件可以引发一个响应过程，这个响应过程被称作事件过程，其中包含的代码就是我们在单击某个对象之后，需要电脑执行的某个操作，比如弹出一个窗口或对话框。例：针对一个名为CommandButtonl的按钮，其Click事件的代码可以编辑为（即上周EX

6、CEL文档中的例子）:SubCommandButtonl_Click()Forml.ShowEndSub8.设计模式单击VisualBasic工具栏上右起第2个图标，就进入“设计模式”。在设计模式下，能编辑按键等对象的属性和代码，具体做法：双击对象，即可进入VBA界面编辑其代码。如果再次单击该图标，即退出设计模式，这时不能编辑对象，只能完成单击事件代码的调用操作（也就是只能按照预置的代码和按钮来填写表格等内容，不能修改其他不允许填写修改的内容）。9.单元格的操作表格中每个单元格可以由其所在的表格

7、和表格中的行与列的序号来定位，如当前打开文档中的第一个表格，第4行，第3列就确定了一个单元格。格式为文档标记，表格编号，Cell(行号，列号)。具体表示方法如下：注意括号的格式必须是半角ActiveDocument.Tables(l)Cell(4,3)10、单元格的属性和方法Range属性：指某个单元格的区域，等同于该单元格内数据所占据的空间；如Cell(l,l).RangeDelete方法：删除某单元格内包含的数据；如Cell(l,l).Range.Deleteo该方法用于在填写新数据之前清除

8、其中的旧数据，以防止数据重叠。比如要在当前文档中的第一个表格的第一排第一行所对应的表格中填写来自“mcBOX”(窗口中的文本框，用于键盘输入数据)中的相应数据，其代码如下:WithActiveDocument.Tables(1)・Cell(l,l).Range.Delete。首先清除里面可能存在的内容.Cell(l,l).Range.Text=mcBox.Text11、OnErrorGoto语句该语句的意思是：当其后的语句运行出现错误时，就转到某个标签后的语句去执行；标签：VBA程序语句中设置的