第七章 学生成绩报告单及成绩分析模板 VBA电子教案 Visual Basic for Applications详解.pptVIP

第七章 学生成绩报告单及成绩分析模板 7.1 设计目标 7.2 成绩报告表 7.3 成绩分析表 结束 * 7.1 设计目标 本应用实例的设计目标是：利用Excel工作簿，以高校的系为单位，将任意年级任意课程的成绩报告表和成绩统计分析输入、生成、存储、打印、传送，实现学生成绩管理的微机化，为网络化管理打下基础。稍加修改，可用于其它各级各类学校的学生成绩管理。 对于成绩报告表，利用事先做好的模板，只需输入每位学生的成绩，系统将成绩自动按档次定位，使各分数段成绩一目了然。如果是考查成绩，输入字母a、b、c、d、e，系统自动转换为汉字“优秀”、“良好”、“中等”、“及格”、“不及格”。单击“统计”按钮，系统自动统计出全班的实考人数、各分数段人数、平均分、筛淘率并填入表格。 对于成绩分析，在已有表格框架的基础上，单击“统计”按钮，系统自动对全年级所有班统计出实考人数、各分数段人数、百分比，求出最高分、最低分、平均分，画出成绩分布曲线图。 模板工作簿主要包含“成绩报告表”工作表（每班一个）和“成绩分析”工作表（整个年级一个）。 返回 * 7.2 成绩报告表 每个班级的每门课需要一个成绩报告表（或称成绩单），如果按年级和课程定义工作簿，那么，工作簿中每个班对应一个工作表。为便于程序控制，各成绩报告表分别命名为“表1”“表2”，……。各班的成绩报告表除了标题、学号、学生姓名不同外，表的框架结构和统计方式都相同，因此，我们只要设计出一个工作表，其余的就可以复制产生。 * 7.2.1 工作表设计 7.2.2 工作表的复制和命名 7.2.3 工作簿代码设计 7.2.4 “统计”按钮代码设计 7.2.5 运行结果 返回 * 进入Excel，建立一个工作簿。 定义纸型、设置表格样式、设置单元格式、设置列宽度、设置行高度。 在“工具栏”任意位置右击，打开“控件工具栏”，在“控件工具栏”中选择“命令按钮”，在成绩报告表的右侧（页边线外）适当位置单击，建立一个命令按钮，右击新建的按钮，在快捷菜单中选“属性”项，将Caption属性设置为“统计”，并设置字体、字号、颜色和大小。 * 在设计好的工作表选项卡上右击，选“移动或复制工作表”，然后选中“建立副本”，位置选“移至最后”，单击“确定”按钮。 可同时选中多个工作表进行复制。既按住Ctrl或Shift键，再单击工作表选择卡 。 为便于程序控制 各成绩报告表分别命名为“表1”“表2”，……。 整个工作簿用年级和课程命名。如：成绩单00导论、成绩单99数字逻辑，可分别用来表示2000级“计算机科学导论”课、1999级“数字逻辑”课的成绩单工作簿。 * 为了在各“成绩报告表”中输入学生成绩时，系统能自动按档次定位，使各分数段成绩直观明了，同时，对考查成绩，输入字母a、b、c、d、e，系统自动转换为汉字“优秀”、“良好”、“中等”、“及格”、“不及格”。我们可以对工作簿的SheetChange事件编程。SheetChange在任意一个工作表的内容改变时发生。 在菜单“工具|宏”中选“Visual Basic编辑器”,进入VBE，单击“工程资源管理器”按钮，双击“ThisWorkBook”模块，打开代码编辑窗口。 在菜单“工具|宏”中选“Visual Basic编辑器”,进入VBE，单击“工程资源管理器”按钮，双击“ThisWorkBook”模块，打开代码编辑窗口。 对工作簿Workbook的SheetChange事件编写具体代码 。 以上代码段首先求当出前工作表名，并根据当前单元格地址，求出列字母和行号。如果是C列或F列（即成绩列），则取得当前单元格的值，值有前导空格，说明已转换处理完毕，不再处理。否则，对考查课成绩（五级分制），将A、B、C、D、E转换为汉字“优秀”、“良好”、“中等”、“及格”、“不及格”，并分别指定前导空格数1、6、12、18、24，对考试课成绩（百分制），直接根据分数段指定前导空格数1、8、16、24、32。最后重新按格式填写成绩。 * 每各成绩单工作表中都定义了一个“统计”命令按钮，默认名为CommandButton1，单击命令按钮，产生Click事件，通过下面代码调用tj过程，完成统计功能