第八篇 章 成绩汇总表及数据导入模板 VBA电子教案 Visual Basic for Applications.pptVIP

* * 第八章 成绩汇总表及数据导入模板 高校的成绩汇总表是每个学生在校学习期间各门课程成绩一览表。一般是从各学期、各门课程的成绩报告单抄写。有了电子形式的成绩报告单，再有一个电子形式的成绩汇总表，就可以直接将成绩导入，从而提高工作效率和准确性。本章介绍成绩汇总表、工具栏的设计以及数据导入的实现技术。 对于四年制本科生，我们给每个班级建立四个工作表（每个工作表登记两个学期的成绩），整个工作簿按班级数建立若干个同样规格的工作表，所以只要设计出一个工作表，其余的就可以复制产生。 8.1 工作表设计 8.2 数据导入程序设计 8.3 模板的使用 退 出 8.1 工作表设计 高校的成绩汇总表是每个学生在校学习期间各门课程成绩一览表。一般是从各学期、各门课程的成绩报告单抄写。有了电子形式的成绩报告单，再有一个电子形式的成绩汇总表，就可以直接将成绩导入，从而提高工作效率和准确性。本章介绍成绩汇总表、工具栏的设计以及数据导入的实现技术。 对于四年制本科生，我们给每个班级建立四个工作表（每个工作表登记两个学期的成绩），整个工作簿按班级数建立若干个同样规格的工作表，所以只要设计出一个工作表，其余的就可以复制产生。 8.1.1 设计第一个工作表 进入Excel，建立一个工作簿。 定义纸型、设置表格样式、设置单元 格格式、设置列宽度、设置行高度。 8.1.2 复制和修改工作表 在设计好的工作表选项卡上右击，选“移动或复制工作表”，然后选中“建立副本”，位置选“移至最后”，单击“确定”按钮。 可同时选中多个工作表进行复制。既按住Ctrl或Shift键，再单击工作表选择卡。 为便于查看同时又节省空间，工作表可按班级和学期给工作表重新命名。如：5班12、6班56分别表示五班一、二学期和六班五、六学期的成绩汇总表。 注：“总表”用文件名来区分年级。如：总表00、总表99，等等。教师报上来的原始“成绩单”用文件名来区分年级和课程。如：成绩单00导论、成绩单99数字逻辑，等等。对复制的工作表，修改学期号、班级号等信息。至此，一个年级的成绩汇总表格式设计完成。 8.2.1 建立自定义工具栏 在 单“工具|宏”中选“Visual Basic编辑器”,进入VBE，单击“工程资源管理器”按钮，双击“ThisWorkBook”模块，打开代码编辑窗口。 对工作簿Workbook的Open()事件编写代码。 当工作簿打开时，执行以上代码段，首先建立一个工具栏，名为“成绩汇总”。然后，在工具栏上添加五个命令按钮：“提取学号”、“提取姓名”、“提取成绩”、“导入”和“帮助”。通过命令按钮的OnAction属性，分别指定五个按钮要执行的过程：get_no、get_na、get_gd、cj_import、cj_hlp。这五个过程在“模块1”中定义（见下文）。 GO 8.2.2 删除自定义工具栏 为不影响Excel环境，当关闭工作簿时，应当将自定义的工具栏删除。可以在Workbook的BeforeClose事件中定义如下过程实现。 Private Sub Workbook_BeforeClose(Cancel As Boolean) flg = tbar_deled Application.CommandBars(成绩汇总).Delete End Sub 其中，语句 flg = tbar_deled 是设置“工具栏已删除”标志。因为我们要在WindowDeactivate事件中定义一个过程（下面介绍），设置工具栏按钮的可用性属性，而BeforeClose事件先于WindowDeactivate事件。为避免“找不到工具栏对象”错误，在WindowDeactivate过程中，首先通过flg判断工具栏是否被删除。 GO * * *