吉林师范大学计算机学院VBA电子教案课件08.ppt

吉林师范大学计算机学院VBA电子教案课件08.ppt

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第八章 成绩汇总表及 数据导入模板 高校的成绩汇总表是每个学生在校学习期间各门课程成绩一览表。一般是从各学期、各门课程的成绩报告单抄写。有了电子形式的成绩报告单,再有一个电子形式的成绩汇总表,就可以直接将成绩导入,从而提高工作效率和准确性。本章介绍成绩汇总表、工具栏的设计以及数据导入的实现技术。 对于四年制本科生,我们给每个班级建立四个工作表(每个工作表登记两个学期的成绩),整个工作簿按班级数建立若干个同样规格的工作表,所以只要设计出一个工作表,其余的就可以复制产生。 8.1 工作表设计 高校的成绩汇总表是每个学生在校学习期间各门课程成绩一览表。一般是从各学期、各门课程的成绩报告单抄写。有了电子形式的成绩报告单,再有一个电子形式的成绩汇总表,就可以直接将成绩导入,从而提高工作效率和准确性。本章介绍成绩汇总表、工具栏的设计以及数据导入的实现技术。 对于四年制本科生,我们给每个班级建立四个工作表(每个工作表登记两个学期的成绩),整个工作簿按班级数建立若干个同样规格的工作表,所以只要设计出一个工作表,其余的就可以复制产生。 8.1.1 设计第一个工作表 进入Excel,建立一个工作簿。 定义纸型、设置表格样式、设置单元 格格式、设置列宽度、设置行高度。 8.1.2 复制和修改工作表 在设计好的工作表选项卡上右击,选“移动或复制工作表”,然后选中“建立副本”,位置选“移至最后”,单击“确定”按钮。 可同时选中多个工作表进行复制。既按住Ctrl或Shift键,再单击工作表选择卡。 为便于查看同时又节省空间,工作表可按班级和学期给工作表重新命名。如:5班12、6班56分别表示五班一、二学期和六班五、六学期的成绩汇总表。 注:“总表”用文件名来区分年级。如:总表00、总表99,等等。教师报上来的原始“成绩单”用文件名来区分年级和课程。如:成绩单00导论、成绩单99数字逻辑,等等。对复制的工作表,修改学期号、班级号等信息。至此,一个年级的成绩汇总表格式设计完成。 8.2 数据导入程序设计 这是整个成绩汇总模板的核心。其基本思想是,在打开成绩汇总模板的同时,打开需要导入的某门课的“成绩单”工作簿,在“成绩单”工作簿中选择某班的“工作表”,单击自定义工具栏的相应按钮,提取学号、学生姓名或成绩,回到“汇总表”,单击工具栏的“导入”按钮,将信息导入汇总表。 8.2.1 建立自定义工具栏 在 单“工具|宏”中选“Visual Basic编辑器”,进入VBE,单击“工程资源管理器”按钮,双击“ThisWorkBook”模块,打开代码编辑窗口。 对工作簿Workbook的Open()事件编写代码。 当工作簿打开时,执行以上代码段,首先建立一个工具栏,名为“成绩汇总”。然后,在工具栏上添加五个命令按钮:“提取学号”、“提取姓名”、“提取成绩”、“导入”和“帮助”。通过命令按钮的OnAction属性,分别指定五个按钮要执行的过程:get_no、get_na、get_gd、cj_import、cj_hlp。这五个过程在“模块1”中定义(见下文)。 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判断工具栏是否被删除。 8.2.3 设置工具按钮的可用性 在将“成绩单”数据导入“汇总表”过程中,要同时打开两个工作簿,当“成绩单”工作簿为“活动”状态而“汇总表”处于“非活动”状态时,应该让“提取学号”、“提取姓名”、

文档评论(0)

ormition + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档