用excel中的vba进行复杂的数据统计

《用excel中的vba进行复杂的数据统计》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、用EXCEL中的VBA进行复杂的数据统计王月兰（东莞理工学校计算机科组，广东东莞，523000）[摘要]Excel是常用的数据统计和分析软件，本文介绍一种基于Excel内核的VBA编程方法，来扩展Excel的功能，以实现高考成绩统计中复杂的数据统计功能。关键词Excel高考成绩统计VBA编程Excel是MicrosoftOffice家族成员，是Windows环境下应用最广泛的软件之一。是一个功能强大、技术先进、使用方便的表格式数据综合管理和分析系统。它向用户提供了史无前例的、超强的计算功能及表格功能。它采用电子表格方式进行数据处理，操作直观方便；它提供了丰富的函数，可以进

2、行各种数据处理、统计分析。此外，Excel的强大功能还在于它提供的宏语言VisualBasicforApplication（简称VBA），为广大用户提供了一个新的、更高层次的二次开发平台。一、复杂数据统计问题和VBA今年东莞市有近四十所中学七千多名考生参加高考，成绩总表（表1）中包括了准考证号、姓名、学校、语文、数学、英语、物理、化学、政治、历史、地理、生物、综合、外语复试、体育、音乐、美术成绩及各类总分。教育部门要根据此表进行统计，得出各个科目各校的报考人数，各批入围人数、比例、平均分、最高分等，即表2所示的报表若干份（每个科目一份）。由于高考是采用3+X形式，考生报考

3、的科目不尽相同，即使是同一所学校，各科的报考人数都有所不同。因此统计过程既麻烦，又容易出错。如果采用数据库程序设计方法，编写一个独立、专门的统计程序来处理，则似有小题大作之嫌。本文介绍一种基于Excel的VBA编程方法，实现复杂的数据统计功能。东莞市2001年高考成绩总表ZKZHNAMESCHOOLK1K2K3K4K5K6K7K8K9K10K11K12K13K14K404K405K406K407K408K409K410K504K505K506K507K508K509K511190100001曾俊杰东莞中学513546642516710190100002林正东莞中学5404

4、48433574517193636498190100005罗燕青东莞中学461323545485436566437190100006李爱南东莞中学604537568648584606190100010李晓薇东莞中学513435492521349418451427表1东莞市2001年高考****科成绩统计表学校报考人数第一批第二批第三批第四批上线考生全体考生人数比例人数比例人数比例人数比例人数比例平均最高平均表2Excel中的VBA，主要在VB中增加了关于Excel工作簿、工作表、区域、数据透视表等对象的属性、事件和方法。在Excel中使用VBA，可以更方遍地操作、控制Ex

5、cel，进一步深入发掘它的强大功能，全面提高使用Excel工作的自动化水平。使我们可以在熟练应用Excel的基础上，按需要设计出实用的信息管理系统，这种基于Excel内核的管理系统不仅可以与其它语言建立的管理系统相媲美，而且它开发容易，实用性更强。开发信息管理系统，一般来说主要包括数据的输入、处理、输出三大组成部分。对上述问题，首先新建一个包含“设置”、“成绩总表”和“各科统计表”三个工作表的工作簿，将成绩导入“成绩总表”中（如图1），然后定制“各科统计表”（如图2），这两个步骤用Excel处理显得游刃有余。图1图2二、高考成绩统计问题的解决图31、将代码--名称对照关系

6、按图3所示放入“设置”工作表中，C列是“成绩总表”中各科成绩对应的列标，在E3：E6区域输入各批录取分数线。2、在“各科统计表”中，增加下拉框窗体控件，设置数据源区域：设置!$B$3:!$B$12，单元格链接：设置!$B$2，这样能够方便地选择需要统计的科目。选定A2单元格，输入公式="东莞市”&YEAR(NOW())&"年高考"&INDEX(设置!B3:B12,设置!B2)&"科成绩统计表"，其中函数YEAR（）与NOW（）可得到当年的年份，而函数INDEX(设置!B3:B12,设置!B2)则可以动态地得到下拉框所选中的科目名称。3、选定“设置”的C2单元格，输入公式=

7、INDEX(C3:C12,B2)，获得选中科目的列标。4、在“各科统计表”中，增加“统计结果”命令按钮，使用VBA编制以下程序：PrivateSubCommandButton1_Click()Dimn1,n2,n3,n4,np,ntAsInteger'四批的入围人数、上线人数和考生总数Dimscore_pass,score_total,score_topAsInteger'上线考生总分、全体考生总分、最高分grade1=Sheets("设置").Range("E3"):grade2=Sheets("设置").Range("E4