项目6-动态高效的宏与VBA[125页]课件.ppt

1、项目项目6 灵活高效的宏与灵活高效的宏与VBAVBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4q项目展示项目展示q项目制作项目制作q知识点击知识点击q实战训练实战训练项目项目6 灵活高效的宏与灵活高效的宏与VBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4学生成绩管理系统主界面学生成绩管理系统主界面项目项目6 灵活高效的宏与灵活高效的宏与VBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4任务一：任务一：“学生成绩管理系统主界面学生成绩管理系统主界面”制作制作项目项目6 灵活高效的宏与灵活高效的宏与VBA（1）

2、新建工作簿，命名为：学生成绩管理系统主界面。）新建工作簿，命名为：学生成绩管理系统主界面。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）插入背景图：在【页面布局】选项卡的【页面设）插入背景图：在【页面布局】选项卡的【页面设置】功能区中，单击【背景】命令按钮，在弹出的置】功能区中，单击【背景】命令按钮，在弹出的“插插入图片入图片”对话框中，点击对话框中，点击“从文件从文件”，选择，选择“背景背景图图.jpg”，然后点击，然后点击“插入插入”按钮。效果如图所示。按钮。效果如图所示。项目项目1 初识矢量图设计新锐初识矢量图

3、设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（3）主界面标题设计。在【插入】选项卡的【文本】）主界面标题设计。在【插入】选项卡的【文本】功能区中，单击【艺术字】命令按钮，弹出功能区中，单击【艺术字】命令按钮，弹出“文字编辑文字编辑框框”，如图所示。，如图所示。（4）输入文字：学生成绩管理系统，适当调整文本）输入文字：学生成绩管理系统，适当调整文本的大小、位置等。的大小、位置等。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（5）主界面）主界面“学生基本信息管学生基本信息管理理”按钮设计。在

4、【开发工具】按钮设计。在【开发工具】选项卡的【控件】功能区中，单选项卡的【控件】功能区中，单击【插入】命令按钮，在弹出的击【插入】命令按钮，在弹出的“表单控件表单控件”按钮中单击按钮中单击“按钮按钮（窗体控件）（窗体控件）”按钮，如图所示，按钮，如图所示，在表格里绘制命令按钮。在表格里绘制命令按钮。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（6）右击该命令按钮，在弹出的快捷菜单里选择）右击该命令按钮，在弹出的快捷菜单里选择“编辑文字编辑文字”命令项，并输入文字：学生基本信息管理，命令项，并输入文字：学生基本信息管理，适

5、当调整文字的格式和命令按钮的位置，效果如图所示。适当调整文字的格式和命令按钮的位置，效果如图所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（7）主界面所有操作按钮设计。按照第）主界面所有操作按钮设计。按照第(5)、（、（6)步的步的操作方法，分别设计操作方法，分别设计“学生成绩管理学生成绩管理”，“学生成绩查学生成绩查询询”，“学生考勤管理学生考勤管理”，“试卷分析报告试卷分析报告”，“退出退出系统系统”操作按钮，效果如图所示。操作按钮，效果如图所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW

6、 X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（1）录制宏：在【开发工具】）录制宏：在【开发工具】选项卡的【代码】功能区中，单选项卡的【代码】功能区中，单击【录制宏】命令按钮，在弹出击【录制宏】命令按钮，在弹出的的“录制宏录制宏”对话框中，输入宏对话框中，输入宏名：宏名：宏_学生基本信息管理，点学生基本信息管理，点击击“确定确定”按钮，如图所示。接按钮，如图所示。接下来打开下来打开“学生基本信息学生基本信息表表.xlsx”，这一操作将被记录下，这一操作将被记录下来，然后，点击来，然后，点击“停止录制停止录制”按按钮，完成钮，完成“宏宏_学生基本信息管学生基本信息管理理”宏的录制。宏的录制

7、。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）指定宏：右击）指定宏：右击“学学生基本信息管理生基本信息管理”按钮，按钮，在弹出的快捷菜单里，选在弹出的快捷菜单里，选择择“指定宏指定宏”命令，打开命令，打开“指定宏指定宏”对话框，如图对话框，如图所示。在该对话框里选择所示。在该对话框里选择“宏宏_学生基本信息管理学生基本信息管理”，然后，点击然后，点击“确定确定”按钮。按钮。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（3）运行宏：这时点击“学

8、生基本信息管理”按钮，开始执行“宏_学生基本信息管理”宏，自动打开“学生基本信息表.xlsx”。效果如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（1）创建）创建“选择班级和选择班级和课程课程”窗体。在【开发工具】窗体。在【开发工具】选项卡的【代码】功能区中，选项卡的【代码】功能区中，单击【单击【Visual Basic】命令】命令按钮，打开按钮，打开Visual Basic编编辑器。在辑器。在Visual Basic编辑编辑器里，点击器里，点击 图标，在弹图标，在弹出的快捷菜单里，选择出的快捷菜单里，选择“用用户窗

9、体户窗体”命令，如图。命令，如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）在）在“选择班级和课程选择班级和课程”窗体里添加控件。在工窗体里添加控件。在工具箱里分别选择具箱里分别选择 标签控件，复选框控件和按钮控件，标签控件，复选框控件和按钮控件，在用户窗体里分别创建：在用户窗体里分别创建：Label1、Label2、ComboBox1、ComboBox2、CommandButton1、CommandButton2，如图，如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项

10、目6 灵活高效的宏与灵活高效的宏与VBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（3）设置窗体和控件属性。）设置窗体和控件属性。选中选中“选择班级和课程选择班级和课程”窗体，窗体，在属性窗口的在属性窗口的“Caption”属性属性里输入：选择班级和课程，如里输入：选择班级和课程，如图。图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA然后设置然后设置Label1、Label2、CommandButton1、CommandButton2的的“Cap

11、tion”属性分别为：属性分别为：班级：、课程：、确定、班级：、课程：、确定、取消；效果如图。取消；效果如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（4）编写）编写VBA代码。代码。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA在在“代码窗口代码窗口”的的Initialize事件里，输入如下代码，事件里，输入如下代码，实现班级和课程选项的初始化。实现班级和课程选项的初始化。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4

12、项目项目6 灵活高效的宏与灵活高效的宏与VBA（5）创建宏。在【开发工具】）创建宏。在【开发工具】选项卡的【代码】功能区中，选项卡的【代码】功能区中，单击【宏】命令按钮，在弹出单击【宏】命令按钮，在弹出的宏对话框里，输入宏名：宏的宏对话框里，输入宏名：宏_学生成绩管理，如图，然后点学生成绩管理，如图，然后点击击“创建创建”按钮。在打开的按钮。在打开的“代码窗口代码窗口”里输入如下代码里输入如下代码:项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（6）指定并运行宏。右击）指定并运行宏。右击“学生成绩管理学生成绩管理”按钮，在

13、弹按钮，在弹出的快捷菜单里，选择出的快捷菜单里，选择“指定指定宏宏”命令，打开命令，打开“指定宏指定宏”对对话框，在该对话框里选择话框，在该对话框里选择“宏宏_学生成绩管理学生成绩管理”，然后，点，然后，点击击“确定确定”按钮。然后点击按钮。然后点击“学生成绩管理学生成绩管理”按钮，弹出按钮，弹出“选择班级和课程选择班级和课程”窗体，如窗体，如图图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA 在弹出在弹出“选择班级和课程选择班级和课程”窗体里，选定班级和课窗体里，选定班级和课程后，点击程后，点击“确定确定”按钮

14、，打开相应的成绩管理表。按钮，打开相应的成绩管理表。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（1）创建）创建“宏宏_学生学生成绩查询成绩查询”宏。在【开发宏。在【开发工具】选项卡的【代码】工具】选项卡的【代码】功能区中，单击【宏】命功能区中，单击【宏】命令按钮，在弹出的宏对话令按钮，在弹出的宏对话框里，输入宏名：宏框里，输入宏名：宏_学学生成绩查询，然后点击生成绩查询，然后点击“创建创建”按钮。在打开的按钮。在打开的“代码窗口代码窗口”里输入如下里输入如下代码，如图。代码，如图。项目项目1 初识矢量图设计新锐初识矢量

15、图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）指定并运行宏。右击）指定并运行宏。右击“学生成绩查询学生成绩查询”按钮，在弹出按钮，在弹出的快捷菜单里，选择的快捷菜单里，选择“指定宏指定宏”命令，打开命令，打开“指定宏指定宏”对话对话框，在该对话框里选择框，在该对话框里选择“宏宏_学生成绩查询学生成绩查询”，然后，点击，然后，点击“确定确定”按钮。然后点击按钮。然后点击“学生成绩查询学生成绩查询”按钮，运行效果按钮，运行效果如图所示。如图所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与V

16、BA（4）指定并运行宏。右击）指定并运行宏。右击“退出系统退出系统”按钮，在按钮，在弹出的快捷菜单里，选择弹出的快捷菜单里，选择“指定宏指定宏”命令，打开命令，打开“指指定宏定宏”对话框，在该对话框里选择对话框，在该对话框里选择“宏宏_退出退出”，然，然后，点击后，点击“确定确定”按钮。然后点击按钮。然后点击“退出系统退出系统”按钮，按钮，关闭工作表并退出关闭工作表并退出Excel。（5）“学生考勤管理学生考勤管理”和和“试卷分析报告试卷分析报告”按钮按钮的功能实现同的功能实现同“学生成绩管理学生成绩管理”。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4本项目知识要点

17、本项目知识要点如下如下：q应用宏应用宏q编写编写VBAVBA程序程序q控件的应用控件的应用项目项目6 灵活高效的宏与灵活高效的宏与VBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X46.3.1 6.3.1 应用宏应用宏项目项目6 灵活高效的宏与灵活高效的宏与VBA 宏是一种宏是一种VBA应用程序，它是存储在应用程序，它是存储在VBA模块中模块中的一系列命令和函数的集合。当执行宏命令所对应的的一系列命令和函数的集合。当执行宏命令所对应的任务组合时，任务组合时，Excel会自动启动该会自动启动该VBA程序模块中的程序模块中的运行程序，以自动完成用户指定的各项动作组合，运行

18、程序，以自动完成用户指定的各项动作组合，Excel会自动将已录制的命令组合重复执行一次或者会自动将已录制的命令组合重复执行一次或者回放，从而实现重复操作的自动化。回放，从而实现重复操作的自动化。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA一、录制宏一、录制宏录制宏，就是通过录制的方法把在录制宏，就是通过录制的方法把在Excel中的操作过程中的操作过程以代码的方式记录并保存下来，即宏的代码可以用录制以代码的方式记录并保存下来，即宏的代码可以用录制的方法自动产生。的方法自动产生。项目项目1 初识矢量图设计新锐初识矢量图设计新

19、锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA例如：在产品信息表工作簿里，通过录制宏计算员工的提成，例如：在产品信息表工作簿里，通过录制宏计算员工的提成，要求宏名为：宏要求宏名为：宏_ _计算提成，快捷键设置为：计算提成，快捷键设置为：Ctrl+Shift+SCtrl+Shift+S。一、录制宏一、录制宏（1）打开）打开“销售管理销售管理.xlsx”文件，选择文件，选择“产品信息表产品信息表”工工作簿。在作簿。在【开发工具开发工具】选项卡的【代码】功能区中，单击】选项卡的【代码】功能区中，单击【录制宏录制宏】命令按钮】命令按钮，如图，如图所示所示。项目项目1 初识矢量

20、图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）在弹出的）在弹出的“录制宏录制宏”对话框中，输入宏名：宏对话框中，输入宏名：宏_计算提成，如图；单击计算提成，如图；单击“确定确定”按钮，开始进行按钮，开始进行录制操作，之后在录制操作，之后在Excel中中所进行的操作都将被记录，所进行的操作都将被记录，直至点击直至点击“停止录制停止录制”按按钮。钮。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA二、查看宏代码二、查看宏代码在【开发工具】选项卡的【代码】功能区中，单击【宏

21、】命令在【开发工具】选项卡的【代码】功能区中，单击【宏】命令按钮，如图按钮，如图所示所示；弹出宏对话框，如图；弹出宏对话框，如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA在宏对话框中点击在宏对话框中点击“编辑编辑”按钮，即可查看该宏的代码，按钮，即可查看该宏的代码，如图如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA三、运行宏三、运行宏方法一：方法一：通过通过“执行执行”按钮运行宏按钮运行宏打开打开“销售管理销售管理.xlsx

22、”文件，文件，选中选中“产品信息表产品信息表”工作簿工作簿中的中的E2单元格，单击【宏】单元格，单击【宏】命令按钮，打开宏对话框，命令按钮，打开宏对话框，如图如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA在在“宏对话框宏对话框”中，选择中，选择“宏宏_计算提成计算提成”宏，点击宏，点击“执行执行”按按钮，即可自动执行，宏执行前和执行后的效果如图钮，即可自动执行，宏执行前和执行后的效果如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与V

23、BA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA方法二：通过快捷键运行宏方法二：通过快捷键运行宏也可以利用此前设置的宏快捷键也可以利用此前设置的宏快捷键CTRL+Shift+S，在键盘上，在键盘上按下对应快捷键，宏将自动执行；执行效果如图。按下对应快捷键，宏将自动执行；执行效果如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA方法三：通过表单控件运行宏方法三：通过表单控件运行宏（1）创建表单控件。在）创建表单控件。在【开发工具】选项卡的【控【开发工

24、具】选项卡的【控件】功能区中，单击【插入】件】功能区中，单击【插入】命令按钮，在弹出的命令按钮，在弹出的“控件控件列表列表”界面中，选择界面中，选择“表单表单控件控件”分类中的分类中的“命令按钮命令按钮”控件，如图。控件，如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）在表格里绘制命令按钮；右击该命令按钮，在弹出）在表格里绘制命令按钮；右击该命令按钮，在弹出的快捷菜单里选择的快捷菜单里选择“编辑文字编辑文字”命令并输入文字：计算提成；命令并输入文字：计算提成；适当调整文字的格式和命令按钮的位置，效果如图适当调整文

25、字的格式和命令按钮的位置，效果如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（3）指定宏。右击）指定宏。右击“计算计算提成提成”命令按钮，在弹出的快命令按钮，在弹出的快捷菜单里，选择捷菜单里，选择“指定宏指定宏”命命令，打开令，打开“指定宏指定宏”对话框，对话框，如图。在该对话框里选择如图。在该对话框里选择“宏宏_计算提成计算提成”，然后，点击，然后，点击“确定确定”按钮。按钮。（4）运行宏。点击）运行宏。点击“计算计算提成提成”命令按钮，运行效果如命令按钮，运行效果如图。图。项目项目1 初识矢量图设计新锐初

26、识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA VBA是是Visual Basic for Applications的缩写，是一的缩写，是一种应用程序自动化语言。种应用程序自动化语言。VBA的由来：的由来：在在20世纪世纪90年代早期，使应用程序自动化还是充满年代早期，使应用程序自动化还是充满挑战性的领域。对每个需要自动化的应用程序，人们不得挑战性的领域。对每个需要自动化的应用程序，人们不得不学习一种不同的自动化语言。例如，可以使用不学习

27、一种不同的自动化语言。例如，可以使用Excel的的宏语言使宏语言使Excel自动化等。因此，自动化等。因此，Microsoft决定开发一决定开发一种应用程序共享的通用自动化语言种应用程序共享的通用自动化语言VBA，这就是，这就是VBA的的由来。由来。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA一、一、VBA开发环境开发环境VBA集成开发环境（集成开发环境（IDE）是进行）是进行VBA程序设计和代码程序设计和代码编写的地方，打开方式：在【开发工具】选项卡的【代码】编写的地方，打开方式：在【开发工具】选项卡的【代码】功能区中

28、，单击【功能区中，单击【Visual Basic】命令按钮，即可打开】命令按钮，即可打开VBA的的IDE环境。也可以通过快捷键环境。也可以通过快捷键“ALT+F11”打开，打开，如图如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA一、一、VBA开发环境开发环境1资源管理器窗口资源管理器窗口 在资源管理器窗口可以看到在资源管理器窗口可以看到所有打开和加载的所有打开和加载的Excel文件及文件及其加

29、载宏。每一个其加载宏。每一个Excel文件，文件，在在VBA里称为一个工程。里称为一个工程。每个工程都有每个工程都有4类对象，包括：类对象，包括：Microsoft Excel对象、窗体、对象、窗体、模块、类模块，如图模块、类模块，如图所示。所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBAp Microsoft Excel对象：代表了对象：代表了Excel文件及其包括的文件及其包括的工作簿和工作表等几个对象，包括所有的工作簿和工作表等几个对象，包括所有的Sheet和一和一个个Workbook，分别表示文件（工作簿）中所

30、有的工，分别表示文件（工作簿）中所有的工作表。作表。p 窗体对象：代表了自定义对话框或界面。窗体对象：代表了自定义对话框或界面。p 模块：是自定义代码保存的地方。模块：是自定义代码保存的地方。p 类模块：是以类或对象的方式编写的代码保存的地类模块：是以类或对象的方式编写的代码保存的地方。方。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA2属性窗口属性窗口属性窗口主要用于对象属性的属性窗口主要用于对象属性的交互式设计和定义，例如选中交互式设计和定义，例如选中图中的图中的VBAProject，在属性窗，在属性窗口即可更改其名称

31、。右图显示口即可更改其名称。右图显示的是一个打开的窗体的是一个打开的窗体(UserForm)的属性窗口。的属性窗口。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA3代码窗口代码窗口在在IDE窗口的右侧，可以打开代码窗口。在资源管理器窗窗口的右侧，可以打开代码窗口。在资源管理器窗口中的每一个对象对应一个代码窗口。可以通过在对象上双口中的每一个对象对应一个代码窗口。可以通过在对象上双击、在右键菜单或资源管理器工具栏上选择查看代码（或对击、在右键菜单或资源管理器工具栏上选择查看代码（或对象）打开代码窗口，如图象）打开代码窗口，如

32、图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA二、编写二、编写VBA程序程序 打开打开Excel文件，在【开发工具】选项卡的【代码】功能区中，文件，在【开发工具】选项卡的【代码】功能区中，单击【单击【Visual Basic】命令按钮，打开】命令按钮，打开VBA的的IDE环境，也可以通过环境，也可以通过快捷键快捷键“ALT+F11”打开打开VBA的的IDE环境。在环境。在VBAProject上单击右上单击右键，选择键，选择“插入插入”、“模块模块”按钮，打开一个代码窗口，在窗口中按钮，打开一个代码窗口，在窗口中

33、输入以下代码，如图输入以下代码，如图所示。所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA 将鼠标光标放置在代码之内，执行【运行】将鼠标光标放置在代码之内，执行【运行】|【运行【运行子过程子过程/用户窗体】菜单命令，或者在工具栏单击按钮，用户窗体】菜单命令，或者在工具栏单击按钮，则可运行代码。运行结果如下：则可运行代码。运行结果如下：项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA代码说明：这是一个名称为“MyFirstVBAProgram”的过程。

34、定义了2个变量，其类型为字符串类型调用InputBox内置函数，并将返回值赋给strName变量。将几个字符串组合成一个新字符串。调用MsgBox函数，显示一个对话框。表示过程结束。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA1模块、过程和函数模块、过程和函数 模块是作为一个单元保存在一起的模块是作为一个单元保存在一起的VBA定义和过程定义和过程的集合。的集合。VBA中有两种基本类型的模块：标准模块和类模块。中有两种基本类型的模块：标准模块和类模块。模块可以包括模块可以包括2类子程序：过程或者函数。类子程序：过程或者函数

35、。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA【例【例6-1】如图所示，计算所有产品的总金额】如图所示，计算所有产品的总金额=销量销量*单价的过程。单价的过程。过程代码如下：过程代码如下：项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA【例【例6-2】计算产品价格的】计算产品价格的10%为运费。为运费。分析：定义一个分析：定义一个Shipping函数，参数为函数，参数为(Price)，实现计，实现计算运费，计算结果在函数中通过赋给函数名算运费，计算结果

36、在函数中通过赋给函数名“Shipping”来来返回给调用者。返回给调用者。Price可以是数字和单元格引用。这个函数可可以是数字和单元格引用。这个函数可以被其他过程或函数调用，也可以使用在电子表格中，如图以被其他过程或函数调用，也可以使用在电子表格中，如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA2创建过程和函数创建过程和函数创建第一个过程需要两个基本步骤。创建第一个过程需要两个基本步骤。一、向工作簿中添加一个模块。一、向工作簿中添加一个模块。二、向模块中添加不同的过程和函数。二、向模块中添加不同的过程和函数

37、。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA2创建过程和函数创建过程和函数【例6-3】创建显示消息框的过程。（1）打开Excel文件，在【开发工具】选项卡的【代码】功能区中，单击【Visual Basic】命令按钮，打开VBA的IDE环境，也可以通过快捷键“ALT+F11”打开VBA的IDE环境，进入Visual Basic编辑器，如图所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（2）在）在VBA IDE左面左面的的“工程资源管理器工程资源

38、管理器”窗口窗口VBAProject上单击上单击鼠标右键，执行【插入】鼠标右键，执行【插入】|【模块】菜单命令，添【模块】菜单命令，添加模块，如图加模块，如图所示所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（3）点击代码窗口的）点击代码窗口的空白处，执行【插入】空白处，执行【插入】|【过程】菜单命令，显【过程】菜单命令，显示示“添加过程添加过程”对话框，对话框，如图。如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（4）在名称处输入）在名称

39、处输入“HelloMsg”作为过程名称，在作为过程名称，在“类类型型”分组框中，选择分组框中，选择“子程序子程序”，单击，单击“确定确定”按钮。这样按钮。这样就在模块中添加一个新的过程，代码如图。就在模块中添加一个新的过程，代码如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（5）在过程中输入以下语句：）在过程中输入以下语句：MsgBox“这是我的第一个过程这是我的第一个过程”输入后的过程如图。输入后的过程如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的

40、宏与VBA（6）运行过程）运行过程方法方法1：将光标放置在这段代码之内，执行【运行】：将光标放置在这段代码之内，执行【运行】|【运行子过程【运行子过程/用户窗体】菜单命令，则可运行。用户窗体】菜单命令，则可运行。方法方法2：在工具栏单击运行按钮。：在工具栏单击运行按钮。运行效果如图。运行效果如图。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA一、控件的概述一、控件的概述“控件控件”是是“控件工具箱控件工具箱”提供的一系列对象，拥有自己的名称，提供的一系列对象，拥有自己的名称，存储于文档中。存储于文档中。“控件控件”具有具有

41、“属性属性”、“方法方法”和和“事件事件”。“属性属性”是描述其所属控件的某个可量化特征的变量，在是描述其所属控件的某个可量化特征的变量，在 VBA 程序中，程序中，“属性属性”是使用点标记引用的：如：是使用点标记引用的：如：TextBox1.Text。“方法方法”是控件是控件“知道知道”如何执行的某种操作，在如何执行的某种操作，在 VBA 程序中，程序中，“方法方法”也是使用点标记引用的：如：也是使用点标记引用的：如：TextBox1.Activate。“事件事件”是一种被对象是一种被对象“意识到意识到”已经发生的操作，用户一般通已经发生的操作，用户一般通过过“事件事件”来完成一系列的程序运

42、行。来完成一系列的程序运行。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA二、认识不同的控件二、认识不同的控件控件分为两种类型：表单控件和控件分为两种类型：表单控件和ActiveX控件。控件。表单控件只能在工作表中添加和使用，表单控件只能在工作表中添加和使用，并且只能通过设置控件格式或者指定宏来并且只能通过设置控件格式或者指定宏来使用它；使用它；ActiveX控件不仅可以在工作表中使用，控件不仅可以在工作表中使用，还可以在用户窗体中使用，并且具备了众还可以在用户窗体中使用，并且具备了众多的属性和事件，提供了更多的使用方式。

43、多的属性和事件，提供了更多的使用方式。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（1）标签：用于显示文本信息，本身不具有可输入功能；）标签：用于显示文本信息，本身不具有可输入功能；默认属性是默认属性是Caption属性，默认事件是属性，默认事件是Click事件。事件。基本属性包括：名称、基本属性包括：名称、Caption、BackColor、ForColor、WordWrap、Width、Height、Font等。等。（2）文本框：用于交互输入与显示文本信息，本身具有）文本框：用于交互输入与显示文本信息，本身具有交互性

44、；默认属性是交互性；默认属性是Value属性，默认事件是属性，默认事件是Change事件。事件。基本属性：名称、基本属性：名称、Text、Value、ScrollBars、BackColor、ForColor、WordWrap、MultiLine、MaxLength、Width、Height、Font等。等。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（3）分组框：它用于将其他控件进行组合；）分组框：它用于将其他控件进行组合；（4）按钮：用于执行宏命令；在命令按钮上可以显示）按钮：用于执行宏命令；在命令按钮上可以显示文本

45、或图片，或者二者同时显示；文本或图片，或者二者同时显示；默认属性是默认属性是AutoSize属性，默认事件是属性，默认事件是Click事件。事件。基本属性包括：名称、基本属性包括：名称、Picture、Caption、BackColor、ForColor、Width、Height、Font等。等。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（5）复选框：它是一个选择控件，通过单击可以选择）复选框：它是一个选择控件，通过单击可以选择和取消选择，可以多项选择。和取消选择，可以多项选择。默认属性是默认属性是 Value 属性，

46、默认事件是属性，默认事件是 Click 事件。事件。基本属性包括：名称、基本属性包括：名称、Caption、Value、BackColor、ForColor、GroupName、Width、Height、Font等。等。（6）选项按钮：通常几个选项按钮组合在一起使用，）选项按钮：通常几个选项按钮组合在一起使用，在一组中只能选择一个选项按钮。在一组中只能选择一个选项按钮。默认属性是默认属性是 Value 属性，默认事件是属性，默认事件是 Click 事件。事件。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（7）列表框：用于

47、显示若干个值的列表，用户可以从中选）列表框：用于显示若干个值的列表，用户可以从中选择一个或多个值；默认属性是择一个或多个值；默认属性是 Value 属性，默认事件是属性，默认事件是 Click 事件。基本属性包括：名称、事件。基本属性包括：名称、Text、Value、TopIndex、BackColor、ForColor、MultiSelect、Width、Height、Font等。等。（8）组合框：主要用于列出多项供选择（单项选择）的文）组合框：主要用于列出多项供选择（单项选择）的文本信息；组合框将列表框和文本框的特性结合在一起，用户本信息；组合框将列表框和文本框的特性结合在一起，用户可以像

48、在文本框中那样输入新值；默认属性是可以像在文本框中那样输入新值；默认属性是Value属性，默属性，默认事件是认事件是 Change 事件。组合框的基本属性包括：名称、事件。组合框的基本属性包括：名称、Text、Value、TopIndex、BackColor、ForColor、Width、Height、Font等。等。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA（9）滚动条：包括水平滚动条和垂直滚动条，是一种选择）滚动条：包括水平滚动条和垂直滚动条，是一种选择机制，默认属性是机制，默认属性是 Value 属性，默认事件是

49、属性，默认事件是 Change 事件。事件。基本属性包括：名称、基本属性包括：名称、Max、Min、SmallChange、BackColor、ForColor、Value、Width、Height、Font等。等。（10）微调控件：是一种数值选择机制，主要用于增加及）微调控件：是一种数值选择机制，主要用于增加及减少数值，通过单击控件的箭头来选择数值。默认属性是减少数值，通过单击控件的箭头来选择数值。默认属性是 Value 属性，默认事件是属性，默认事件是 Change 事件。事件。基本属性包括：名称、基本属性包括：名称、Delay、Max、Min、SmallChange、BackColor、

50、ForColor、Value、Width、Height、Font等。等。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VBA将控件添加到工作表上将控件添加到工作表上,具体具体步骤：步骤：1创建或打开一个创建或打开一个Excel的的文件，选中一个单元格，在文件，选中一个单元格，在【开发工具】选项卡的【控件】【开发工具】选项卡的【控件】功能区中，单击【插入】命令功能区中，单击【插入】命令按钮，如图所示。按钮，如图所示。项目项目1 初识矢量图设计新锐初识矢量图设计新锐CorelDRAW X4项目项目6 灵活高效的宏与灵活高效的宏与VB