基于VBA的成绩分析的实现及演示文稿的生成

２００８年４月　保定学院学报　ＪＯＵＲＮＡＬ　ＯＦ　ＢＡＯＤＩＮＧ　ＵＮＩＶＥＲＳＩＴＹ　Ａｐｒ．２００８　Ｖｏｌ－２１　Ｎｏ．２　第２１卷第２期　文章编号：１６７４—２４９４（２００８）０２—００７０—０３　基于ＶＢＡ的成绩分析的实现及演示文稿的生成　程芳，沈红岩　（河北农业大学信息科学与技术学院，河北保定０７１００１）　摘要：成绩分析是每次考试之后教师的首要工作，利用Ｏｆｉｆｃｅ内＿￣ＶＢＡ，实现了成绩分析，并且利用统计后　的数据自动生成ＰｏｗｅｒＰｏｉｎｔ演示文稿，极大地提高了成绩分析的工作效率．　关键词：演示文稿；Ｅｘｃｅｌ；ＰｏｗｅｒＰｏｉｎｔ；ＶＢＡ　中图分类号：ＴＰ３１１．５１　文献标识码：Ａ　成绩分析是每一位教师在考试之后都必须做的一项重要工作，也是令大多数教师苦恼的一件事情．目前，手工统计数据工　作量大，而且经常会出现错误．并且统计数据生成后，再手工将数据做／￣ＰｏｗｅｒＰｏｉｎｔ演示文稿，此过程耗费时间长，效率低而随　着计算机的普遍应用，利用计算机自动实现数据统计及生成演示文稿势在必行．　．利用ＶＢＡ进行数据统计　这里以基本数据统计为例进行说明．　对每一学科的考试，教师一般需要统计的基本数据如图１所示．　Ｅｘｃｅｌ提供了很多数据统计函数，在Ｅｘｃｅｌ中进行统计可以起到事半功倍的效果．因此，数据统计使用Ｅｘｃｅｌ为平台不失为明　智的选择．　为方便统计以上数据，可在Ｅｘｃｅｌ中建立如下３个工作表：“授课表”、　“学生分数”和“基本数据统计”．“授课表”存放教师姓名以及所授课班级，　“学生分数”存放学生成绩，“基本数据统计”是要统计的基本数据的１个模　板，如图１所示、　２　一矗｜　誊曩　宅毒　斑级　良好　§瀣　辫　总人数　及格　不及格　＆卜６０　１　教师姓名　等级　优秀　３　人数分布　畦　百分比　５　及格率　６　平均分　中等　１００＂－＇９０　８９～８０　憎～７０　在统计数据前，首先需要进行一些准备工作．为了比较方便地统计一ｈ　述数据，需要先将“学生分数”按班级排序，以便按照班级划分．可以通过下　面的语句实现：　Ｓｈｅｅｔｓ（”学生分数”）．Ｓｅｌｅｃｔ　Ｓｅｌｅｃｔｉｏｎ．Ｓｏｒｔ　Ｋｅｙ１：＝Ｒａｎｇｅ（”Ａ２”），Ｏｒｄｅｒｌ：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｈｅａｄｅｒ：＝一　试卷最高分　试卷最低分　图１基本数据统计表　ｘｌＧｕｅｓｓ，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｆｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，一　ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌＳｏｒｔＴｅｘｔＡｓＮｕｍｂｅｒｓ　然后，在统计每个班的各项数据时就比较简单了．只要知道每班的首尾行号就可以知道本班的范围，方法为顺次向下一行　比较．只要下一行的班级和本行的不一样，就可以确定１个班已经结束．下面代码可以实现这个功能．　Ｓｈｅｅｔｓ（”学生分数”）．Ｓｅｌｅｃｔ　Ｄｉｍ　ｆｉｒｓｔｌ，Ｅｎｄｌ　ｉｒｆｓｔｌ＝２：ｅｎｄｌ＝２　Ｗｈｉｌｅ　ｆＲａｎｇｅ（”Ａ”＆ｅｎｄｉ）．Ｖａｌｕｅ＜＞…’）　Ｉｆ（Ｒａｎｇｅ（”Ａ”＆ｆｉｒｓｔ１）．Ｖａｌｕｅ＜＞Ｒａｎｇｅ（”Ａ”＆ｅｎｄ１）．Ｖａｌｕｅ）Ｔｈｅｎ　Ｓｈｅｅｔｓ（”基本数据统计”）．Ｓｅｌｅｃｔ　数据统计相关代码　ｉｒｓｔｆｉ＝ｅｎｄｉ　Ｓｈｅｅｔｓ（”学生分数”）．Ｓｅｌｅｃｔ　Ｅｌｓｅ　ｅｎｄｉ：ｅｎｄｉ＋１　收稿日期：２００８—０２—１９　作者简介：程芳（１９８０一），女，河北秦皇岛人，工学硕士，助教　维普资讯 http://www.cqvip.com

程芳，沈红岩：基于ＶＢＡ的成绩分析的实现及演示文稿的生成　Ｅｎｄ儿　７１　Ｗｅｎｄ　接着，就可以进行数据统计了．具体实现方法如下：　１）统计总人数　统计总人数可以使用ＣＯＵＮＴＡ（）函数ｌＩ１．ＣＯＵＮＴＡ（）函数用来统计非空单元格的数目．这里要统计数据的范围为“学生分　数”图１中Ａ列第ｆｉｒｓｔｉ行￣ｌＪｅｎｄｉ一１行．因此，使用如下代码可以实现统计总人数（存放于Ｆ１）．　Ｒａｎｇｅ（”Ｆ１”）．Ｖａｌｕｅ＝”＝ＣＯＵＮＴＡ（学生分数！　＆ｆｉｒｓｔｉ＆”：　＆ｅｎｄｉ一１＆”）”　２）统计各分数段人数分布　人数分布可以使用ＣＯＵＮＴＩＦ（）函数．ＣＯＵＮＴＩＦ（）函数用来统计满足给定条件的单元格的数目１２１．因此，可以将上面的代码　加以修改，用于统计人数分布．如优秀学生人数（存放于Ｂ３）如下：　Ｒａｎｇｅ（”Ｂ３”）．Ｖａｌｕｅ＝”＝ＣＯＵＮＴＩＦ（学生分数！Ｃ”＆ｆｉｒｓｔ＆”：”＆”Ｃ”＆ｅｎｄｉ一１＆”，…’＞＝９０…’）”　在统计良好学生时，由于ＣＯＵＮＴＩＦ（）函数不支持多重条件，如大于８０分同ｕＣｔＪ，于９０分的情况是无法直接进行统计的，因　此，可以采用折中的办法，即先计算大于８０分的人数，之后减去优秀的人数，即大于９０分的人数，即可计算出良好的人数（存放　于ｃ３）．代码如下：　Ｒａｎｇｅ（”Ｃ３”）．Ｖａｌｕｅ＝”＝ＣＯＵＮＴＩＦ（学生分数！Ｃ”＆ｆｉｓｒｔ＆”：”＆…Ｃ’＆ｅｎｄｉ一１＆”，…’＞＝９０””）一Ｂ３”　中等、及格、不及格人数的统计方法与上述相似．　３）统计百分比　通过图１可以看出，百分比实际为各等级人数（如：Ｂ３、ｃ３等）与总人数（Ｆ１）之比．如下方法可以实现优秀等级的百分比，其　他等级类似：　Ｒａｎｇｅ（”Ｂ４”）．Ｖａｌｕｅ＝”＝Ｂ３／Ｆ１”　４）统计及格率　及格人数可以使用ＣＯＵＮＴＩＦ（）函数进行计算，方法如下：　ＣＯＵＮＴＩＦ（学生分数！Ｃ”＆ｆｉｓｒｔ＆”：”＆”Ｃ”＆ｅｎｄｉ一１＆”，…’＞＝６０…’）”　接着，利用上述数据比上总人数（Ｆ１），即为及格率．　５）统计平均分　平均分可以通过ＡＶＥＲＡＧＥ（）函数统计．ＡＶＥＲＡＧＥ（）函数是用来统计算数平均值的函数．因此，平均分（存放于Ｂ６）可以使　用如下方法实现：　Ｒａｎｇｅ（”Ｂ６”）．Ｖａｌｕｅ＝”＝ＡＶＥＲＡＧＥ（学生分数！Ｃ”＆ｆｉｓｔ＆”：ｒ”＆”Ｃ”＆ｅｎｄｉ一１＆”）”　６）统计最高分、最低分　最高分、最低分可分别采用ＭＡＸ（）函数及ＭＩＮ（）函数统计．代码如下：　Ｒａｎｇｅ（”Ｅ５”）．Ｖａｌｕｅ＝”＝ＭＡＸ（学生分数！Ｃ”＆ｆｉｓｒｔ＆”：”＆”Ｃ”＆ｅｎｄｉ一１＆”）”　Ｒａｎｇｅ（”Ｅ６”）．Ｖａｌｕｅ＝”＝ＭＩＮ（学生分数！Ｃ”＆ｆｉｓｔ＆Ｉｒｌ＝”＆”Ｃ”＆ｅｎｄｉ一１＆”）”　至此，数据统计工作均已完成，接下来，利用统计后的数据自动生成ＰｏｗｅｒＰｏｉｎｔ演示文稿，以便演示．　２利用ＶＢＡ将前面的统计数据生成ＰｏｗｅｒＰｏｉｎｔ演示文稿　使用ＶＢＡ生成ＰｏｗｅｒＰｏｉｎｔ可以分为以下几个步骤：　１）定义１￣＂ＰｏｗｅｒＰｏｉｎｔ应用程序对象，用于打开１个ＰｏｗｅｒＰｏｉｎｔ文档．　２）在打开的ＰｏｗｅｒＰｏｉｎｔ文档中新建幻灯片．　３）在新建的幻灯片中加入文本的标题及表格．　４）保存并关闭ＰｏｗｅｒＰｏｉｎｔ对象．　以上各步具体实现方法如下：　１）定义ＰｏｗｅｒＰｏｉｎｔ应用程序对象　在ＶＢＡ中，可以方便地建立Ｏｆｉｆｃｅ的各种组件的对象．为了与数据统计保持一致，仍在Ｅｘｃｅｌ中进行ＰｏｗｅｒＰｏｉｎｔ演示文稿的生　成．这里假定在Ｅｘｃｅｌ文档的同一目录存有１个文件名为ｄｅｍｏ．ｐｐｔ的文档．定义ＰｏｗｅｒＰｏｉｎｔ对象并打开新的文档方法如下【　：　Ｄｉｍ　ｐｐｔＡｐｐ　Ａｓ　Ｏｂｊｅｃｔ　Ｓｅｔ　ｐｐｔＡｐｐ　ＣｒｅａｔｅＯｂｊｅｃｔ（”Ｐｏｗｅｒｐｏｉｎｔ．ａｐｐｌｉｃａｔｉｏｎ”）　ｐｐｔＡｐｐ．Ｖｉｓｉｂｌｅ：Ｔｒｕｅ　ｐｐｔＡｐｐ．ｐｒｅｓｅｎｔａｔｉｏｎｓ．Ｏｐｅｎ　ＴｈｉｓＷｏ￣ｂｏｏｋ．Ｐａｔｈ＆”＼ｄｅｍｏ．ｐｐｔ”　２）新建幻灯片　在ＰｏｗｅｒＰｏｉｎｔ中，幻灯片有很多版式．经过仔细比较后，发现“只有标题”版式比较符合要求，该版式编号为１１．则新建幻灯片　的方法如下：　Ｓｅｔ　ｐｐｔＰｒｅｓ　ｐｐｔＡｐｐ．ＡｃｔｉｖｅＰｒｅｓｅｎｔａｔｉｏｎ　维普资讯 http://www.cqvip.com ７２　Ｄｉｍ　ｐｐｔＳｌｉｄｅ　保定学院学报　２００８年第２期　Ｓｅｔ　ｐｐｔＳｌｉｄｅ＝ｐｐｔＰｒｅｓ．ｓｌｉｄｅｓ．Ａｄｄ（ｐｐｔＰｒｅｓ．ｓｌｉｄｅｓ．ｃｏｕｎｔ＋１．１　１）　３）在幻灯片中增加标题及表格　由于新建幻灯片的版式为“只有标题”，因此，此幻灯片只有１个对象，就是位于幻灯片顶部的标题，编号为１．增加标题也就　是对ｐｐｔＳｌｉｄｅ的第一个对象进行编辑，因此，可以使用下面的方法增加标题：　Ｗｉｔｈ　ｐｐｔＳｌｉｄｅ．Ｓｈａｐｅｓ（１）．ＴｅｘｔＦｒａｍｅ．ＴｅｘｔＲａｎｇｅ　．Ｔｅｘｔ＝”基本数据统计表”　Ｅｎｄ　ＷｉｔＩｌ　在幻灯片中新增表格可以利用ａｄｄＴａｂｌｅ方法实现．若需要的表格为６行６列，则新增表格可利用下述方法实现：　Ｓｅｔ　ｐｐｔＳｈａｐｅ＝ｐｐｔＳｌｉｄｅ．Ｓｈａｐｅｓ．ａｄｄＴａｂｌｅ（ＮｕｍＲｏｗｓ：＝６，ＮｕｍＣｏｌｕｍｎｓ：＝６，Ｌｅｆｔ：＝３０，一　Ｔｏｐ：＝８０，Ｗｉｄｔｈ：＝６６０，Ｈｅｉｇｈｔ：＝３２０）　４）在表格中加入数据　表格建好以后，需要在其中加入数据．加入数据有２个步骤：设置数据源和在表格中填充数据．　设置数据源的方法非常简单１　Ｉ：　Ｓｅｔ　ｒｎｇｄａｔａ＝Ｒａｎｇｅ（”ＡｈＦ６”）　在表格中填充数据可以采用循环的方法逐个单元格的填充．在填充时，数字只保留２位小数．方法如下：　Ｗｉｔｈ　ｐｐｔＳｈａｐｅ．Ｔａｂｌｅ　Ｆｏｒ　ｉｒｏｗ＝１　Ｔｏ．Ｒｏｗｓ．ｃｏｕｎｔ　Ｆｏｒ　ｉｃｏｌｕｍｎ＝１　Ｔｏ．Ｃｏｌｕｍｎｓ．ｃｏｕｎｔ　Ｗｉｔｈ．Ｃｅｌｌ（ｉｒｏｗ。ｉｃｏｌｕｍｎ）．Ｓｈａｐｅ．ＴｅｘｔＦｒａｍｅ．ＴｅｘｔＲａｎｇｅ　Ｉｆ　ｌｓＮｕｍｅｒｉｃ（ｍｇｄａｔａ．Ｃｅｌｌｓ（ｉｒｏｗ，ｉｃｏｌｕｍｎ））＝Ｔｒｕｅ　Ｔｈｅｎ　．Ｔｅｘｔ＝ｌｎｔ（ｒｎｇｄａｔａ．Ｃｅｌｌｓ（ｉｒｏｗ。ｉｃｏｌｕｍｎ）　１００），１００　Ｅｌｓｅ　．ｅｘｔ＝ｒｎｇｄａｔａ．ＴＣｅｌｌｓ（ｉｒｏｗ．ｉｃｏｌｕｍｎ）　Ｅｎｄ　Ｉｆ　Ｅｎｄ　Ｗｉｔｈ　Ｎｅｘｔ　ｉｃｏｌｕｍｎ　Ｎｅｘｔ　ｉｏｗ　ｒＥｎｄ　Ｗｉｔｈ　５）保存并关闭ＰｏｗｅｒＰｏｉｎｔ对象　ｐｐｔＡｐｐ．ｐｒｅｓｅｎｔａｔｉｏｎｓ（１）．Ｓａｖｅ　ｐｐｔＡｐｐ．Ｑｕｉｔ　至此，利用ＶＢＡ自动生成演示文稿的工作全部完成．　本文利用ＶＢＡ．设计了一个成绩分析及利用统计后的数据生成ＰｏｗｅｒＰｏｉｎｔ演示文稿的程序，利用此程序，可以很方便地完成　成绩分析工作，大大减少教师的工作量．另外，此方法同样适用于类似的各种数据的统计，只需在代码上稍加修改即可．　参考文献：　［１］ＭＳＤＮ．使用Ｅｘｃｅｌ的演练［ＥＢ／ＯＬ］．（２００６—０７—１３）［２００８－０３—１７］．ｈｔｔｐ：／／ｍｓｄｎ２．ｍｉｃｒｏｓｏｆｔ．ｃｏｒｒｄｚｈ－ｃｎ／ｌｉｂｒａｒｙ／ｄ７ｆ６３２１９（ＶＳ．８０）　ａｓｐｘ・　［２］孙敬杰．ＥｘｃｅｌＶＢＡＡＩ７与实例演练［Ｍ］．北京：中国青年出版社，２００５．　［３］鄢灵，刘光连．利用ＶＢＡ在Ｅｘｃｅｌ中实现教师教学质量的模糊综合评价［Ｊ］．计算机与信息技术，２００６（３）：１００—１０２．　［４］李慧．用ＶＢＡ开发基于Ｅｘｃｅｌ的数据统计［Ｊ］．电脑知识与技术，２００７（１７）：１３２５—１３２６．　Ｒｅａｌｉｚａｔｉｏｎ　ｏｆ　Ｒｅｓｕｌｔｓ’Ａｎａｌｙｓｉｓ　ａｎｄ　Ｇｅｎｅｒａｔｉｏｎ　ｏｆ　Ｐｒｅｓｅｎｔａｔｉｏｎ　Ｂａｓｅｄ　ｏｎ　ＶＢＡ　ＣＨ　ＥＮＧ　Ｆａｎｇ，ＳＨ　ＥＮ　Ｈｏｎｇ・ｙａｎ　（Ｃｏｌｌｅｇｅ　ｏｆ　Ｉｎｆｏｒｍａｔｉｏｎ　Ｓｃｉｅｎｃｅ　ａｎｄ　Ｔｅｃｈｎｏｌｏｇｙ，Ａｇｒｉｃｕｌｔｕｒａｌ　Ｕｎｉｖｅｒｓｉｔｙ　ｏｆ　Ｈｅｂｅｉ，Ｂａｏｄｉｎｇ　０７１００１，Ｃｈｉｎａ）　Ａｂｓｔｒａｃｔ：Ａｎａｌｙｓｉｓ　ｏｆ　ｒｅｓｕｌ￣ａｆｔｅｒ　ｅａｃｈ　ｅｘａｍｉｎａｔｉｏｎ　ｉｓ　ｔｈｅ　ｐｒｉｍａｒｙ　ｗｏｒｋ　ｆｏｒ　ｔｅａｃｈｅｒｓ．Ｉｎ　ｔｈｉｓ　ｐａｐｅｒ，ｂｙ　ｕｓｉｎｇ　ｔｈｅ　ｂｕｉｌｔ－ｉｎ　ＶＢＡ　ｏｆ　ｏｆｆｉｃｅ，ａｎａｌｙｓｉｓ　ｏｆ　ｒｅｓｕｌｔｓ　ｉｓ　ｒｅａｌｉｚｅｄ　ａｎｄ　ｔｈｅ　ＰｏｗｅｒＰｏｉｎｔ　ｐｒｅｓｅｎｔａｔｉｏｎ　ｏｆ　ｓｔａｔｉｓｔｉｃａｌ　ｄａｔａ　Ｃａｎ　ｂｅ　ｇｅｎｅｒａｍｄ　ａｕｔｏｍａｔｉｃａｌｌｙ．　Ｔｈｅｒｅｆｏｒｅ，ｔｈｅ　ｅｆｉｃｉｆｅｎｃｙ　ｏｆ　ｔｈｅ　ａｎａｌｙｓｉｓ　ｏｆ　ｒｅｓｕｌｔｓ　ｉｓ　ｇｒｅａｔｌｙ　ｉｍｐｒｏｖｅｄ．　Ｋｅｙ　ｗｏｒｄｓ：ｐｒｅｓｅｎｔａｔｉｏｎ；Ｅｘｃｅｌ；ＰｏｗｅｒＰｏｉｎｔ；ＶＢＡ