用EXCEL中的VBA进行复杂的数据统计.docVIP

用EXCEL中的VBA进行复杂的数据统计 王月兰 （东莞理工学校计算机科组，广东东莞，523000） [摘要]Excel是常用的数据统计和分析软件，本文介绍一种基于Excel内核的VBA编程方法，来扩展Excel的功能，以实现高考成绩统计中复杂的数据统计功能。 关键词 Excel 高考成绩统计VBA编程 Excel是Microsoft Office 家族成员，是Windows环境下应用最广泛的软件之一。是一个功能强大、技术先进、使用方便的表格式数据综合管理和分析系统。它向用户提供史无前例的、超强的计算功能及表格功能简称。既，又容易出错。如果编写一个独立、专门的计程序来处理，则似有小题大作之嫌Excel的VBA编程。2001年高考成绩总表 ZKZH NAME SCHOOL K1 K2 K3 K4 K5 K6 K7 K8 K9 K10 K11 K12 K13 K14 K404 K405 K406 K407 K408 K409 K410 K504 K505 K506 K507 K508 K509 K511 1座机电话号码 东莞中学 513 546 642 516 710 1座机电话号码 林正 东莞中学 540 448 433 574 517 193 636 498 1座机电话号码 罗燕青 东莞中学 461 323 545 485 436 566 437 1座机电话号码 李爱南 东莞中学 604 537 568 648 584 606 1座机电话号码 李晓薇 东莞中学 513 435 492 521 349 418 451 427 表1 东莞市2001年高考科成绩统计表可以在熟练应用Excel的基础上，按需用的信息管理系统，Excel内核的管理系统不仅可以与其它语言建立的管理系统相媲美，而且它开发容易，实用性更强。开发信息管理系统，一般来说主要包括输入、处理、输出三大组成部分。Excel处理显得游刃有余。B$3:!$B$12，单元格链接：设置!$B$2，这样能够方便地选择需要统计的科目。选定A2单元格，输入公式 东莞市”YEAR NOW 年高考INDEX 设置!B3:B12,设置!B2 科成绩统计表，其中函数YEAR（）与NOW（）可得到当年的年份，而函数INDEX 设置!B3:B12,设置!B2 则可以动态地得到下拉框所选中的科目名称。 3、选定“设置”的C2单元格，输入公式 INDEX C3:C12,B2 ，获得选中科目的列标。 4、在“各科统计表”中，增加“统计结果”命令按钮，使用VBA编制以下程序： Private Sub CommandButton1_Click Dim n1, n2, n3, n4, np, nt As Integer 四批的入围人数、上线人数和考生总数 Dim score_pass, score_total, score_top As Integer 上线考生总分、全体考生总分、最高分 grade1 Sheets 设置 .Range E3 : grade2 Sheets 设置 .Range E4 各批分数线 grade3 Sheets 设置 .Range E5 : grade4 Sheets 设置 .Range E6 col_subject Sheets 设置 .Range C2 统计科目列号 school Sheets 成绩总表 .Range C3 第一个学校校名 j 5 各科统计表起始行 n1 0: n2 0: n3 0: n4 0: np 0: nt 0 score_pass 0: score_total 0: score_top 0 ActiveSheet.Range A5:O50 清空 With ActiveSheet For i 3 To Sheets 3 .UsedRange.Rows.Count + 1 源数据行范围 If Sheets 成绩总表 .Range C CStr i school Then score Sheets 成绩总表 .Range col_subject CStr i 读成绩 If score grade1 Then n1 n1 + 1 If score grade2 And score grade1 Then n2 n2 + 1 If score grade3 And score grade2 Then n3 n3 + 1 If score grade4 And score grade3 Then n4 n4 + 1 If score