Excel VBA在测评成绩计算中的应用

2021年1月15日

Exchange

总第439期

ExcelVBA在测评成绩计算中的应用

王淏亢娟娜

武威733006）（甘肃畜牧工程职业技术学院

以我校年终考核测评成绩计算为例，使用

Excel及VBA设计实现了一个操摘要：通过对各种竞赛测评成绩计算规则进行分析，

有效提高了工作效率，真正实现了测评中成绩计算的

作简单、维护方便的测评成绩计算模板。实践证明该模板代码运行可靠性强，

快速、公开、公正性。

关键词：测评成绩;计算;EXCELVBA

文献标识码文章编号中图分类号

:B:7751:TP391.13

ApplicationofExcelVBAintheEvaluationResultsCalculation

WANGHaoKANGJuanna

Wuwei733006)(GansuPolytechnicCollegeofAnimalHusbandry&Engineering

Abstract：Itanalyzescalculationrulesthroughallkindsofcompetitionevaluationresults.Forexample,intermsofour

collegechecksystemperformancecalculation.UsingExcelandVBAdesignasssmentresultscalculationtemplate

whichisasimpleoperationandconvenientmaintenance.Practicehasprovedthatthetemplatecodehasranreliability.It

improveseffectivelytheworkefficiencyandreallyrealizestheevaluationresultsinfast,open,faircalculationpurpos.

Keywords：evaluationresults；calculation；EXCELVBA

“开发工具”，此时在

Excel的功能区项卡”复选列表中选择

选项卡，其内有单

VisualBasic按钮，“开发工具”中就多了

在各类比赛中比赛成绩的计算是最重要的工作之一，

“VBA”

窗口。击即可打开

然后取平均值

一般都是取消一定比例的最高分和最低分，

的方法来获得选手的最终成绩。目前，多Excel

数竞赛用

2设计思想

一般在各类测评计分过程中，都是根据参加打分的人

并使用

MAX、来计分，MIN、AVERAGE、COUNT等函数来计

算选手最终得分。但在计算过程中只能取一个最高分和

数来确定去掉最高分和最低分的比例，然后计算平均分来

一个最低分，而不是将一定比例的最高分和最低分去掉。

得到最终成绩，其中难度最大的应数根据比例去掉最高分

公正，笔者利用

Excel2010及和最低分，为了最终成绩真正公平、这无形中给算分组的人员带来难度。

VBA，以我院年终考核民主测评计分原则设计实现了快速在应用设计时，利用

为快速公正地得到最终测评成绩，

计算考核成绩模板。

Excel数组功能，将每个选手的全部成绩写入数组中，使用

冒泡排序的方法将数组数据进行排序；然后根据打分人数

1VBA相关概念

和计分规则中去掉最高分和最低分的比例，计算出应该去

1.1VBA与宏

是

VisualBasic的一种VBA（VisualBasicforApplications）

掉的最高分个数和最低分个数；最终，从排序好的数组中

标准宏语言，是微软开发出来用于桌面应用程序中执行通

读取中间数组元素的值并计算出平均分存放在

“测评结

果”工作表中。

（OLE）是

用自动化任务的编程语言。所谓应用程序自动化，

本应用共设计了三个模块，分别为：数据加密、计算得

指通过编写程序让常规应用程序自动完成工作，主要用来

如图

1所示。分和打印结果，

特别是

MicrosoftOffice软扩展Windows的应用程序的功能，

0引言

件。VBA作为MicrosoftOffice系列应用软件的内置编程语

言，“寄生于”Office应用软件，是MicrosoftOffice套装软件的

一个重要组件。

宏是VBA语言编出的一段程序，是一系列存储于Visual

Basic中的命令和函数，并在需要执行该项任务时可随时运行。

3设计过程

3.1建立工作表

类型进行

新建一个工作簿并将其按“启动宏的工作簿”

保存，其分别命名为“测评成绩输入”、“控制参数”、“测评

结果”。设计结果如图2所示。

工作表

“测评成绩输入”工作表：主要为测评成绩输入，

首行为录入的票数，首列为参与测评人员名单，每张测评

表成绩均按列的方式输入。

1.2VBA的启动方法

“选项”，打开“EXEC对话

选项”打开“文件”菜单，点击

，然后在右侧“主选

框，在左侧列表中选择“自定义功能区”

办公自动化杂志

··

63

2021年1月15日

图测评计分设计三模块

1

图测评设计结果

2

“控制参数”工作表：主要用来设置控制参数“去掉最

高分比例”以及监控参数。

和“去掉最低分比例”

“测评结果”工作表：用来存放测评结果，

包括测评得

分及排名。

3.2数据有效性设置

为了在输入测评成绩时，降低数据录入错误率，

并对输

入有误的数据进行提醒，可对数据单元格区域设置有效

性。选择数据录入区域，切换到

“数据”选项卡，单击“数据

工具”组中的“数据有效性”按钮

，在弹出的下拉列表中选

择“数据有效性”命令，打开“数

据有效性”对话框，在“设

置”选项卡中设置有效性条件，

允许“小数”、“忽略空值”，

数据介于最小值，最大值。在“输入信息”

“0”“100”选项卡

中设置“选字单元格时显示输入信息

”，标题“成绩录入”、

输入信息“输入的成绩为百分制。”

在“出错警告”选项卡中

设置“输入无效数据时显示错误警告

”，标题“录入数据无

效”、错误信息“录入数据大小应介于0－100！！！”、样式

“停

止”。设置完成后单击

“确定”按钮即可。

3.3VBA代码编写

在“功能区”空白处单击鼠标右键，

在弹出的快捷菜单

中选择“自定义功能区”命令，

在打开的“自定义功能区”对

话框中的“主选项卡”列表框中选择

“开发工具”，打开“开

发工具”选项卡。单击Basic”按钮即可进入VBA窗

“Visual

口进行代码的编写。

3.3.1数据加密

在计分人员在监督人员的监督下录入完所有测试成绩

后，为防止有人修改原始成绩影响最终结果，

可对“测评成

绩输入”工作表进行加密保护。

3.3.2计算得分

首先，根据“测评成绩输入

”工作表的数据，创建二维

数组并将录入数据赋值给二维数组，然后，使用冒泡排序

的方法，对二维数组数据进行逐行排序

；其次，根据“控制

参数”工作表中统计的掉最高分和最低分比例

“去”，计算

出要去掉的最高分和最低分的个数，用它来控制参加平均

运算的数组元素，并将结果存入一个新的二维数据；

最后，

将计算结果写入“测评结果”工作表，

并对写入数据进行排

序。计算核心代码如图3所示。

··

64

办公自动化杂志

总第439期

Exchange

图计算核心代码

3

图系统计分结果

4

3.3.3打印结果

系统计分结果如图4所示。为防止人为查看测评结果，

对“测评结果”工作表进行了隐藏，在设计过程中根据抽取专

家总数来动态设定打印区域和打印标题以及表格格式。

3.4功能按钮设计

根据前面功能的说明，为了操作方便，在“控制参数”工

作表中创建三个功能按钮，分别为命名为：“数据加密”、

和“打印结果”。并将编写的VBA代码指定给对“计算得分”

应的按钮即可。具体操作是：切换到Excel的“开发工具”选

项卡，单击“按件”组中的“插入”按钮，在弹出的下拉列表

中选择“按钮（窗体控件）”图标。然后在

“控制参数”工作表

的合适位置绘制按钮。此时，会弹出

“指定宏”对话框，将前

面编写的VBA代码指定给对应的按钮即可。

渊26冤

下转第页

2021年1月15日

总第439期

Innovation2.0

图中部制作过程图

8

然后，在已设计好的表格中输入以下代码：

id=<%=rs（"NewsID"）%

>"title="<%=rs（"BiaoTi"）%>"target="_blank"><%=rs

（"BiaoTi"）%>调用数据库。其效果预览时自动更

新最新标题。

左边导航器的建立。首先建立CSS样式：

type="text/css">

<！--

.style1{font-size：12px}

.STYLE2{font-size：10px}

-->

旅游票

建立表格，分别输入导航文字。其中淮安旅游、

生成

3个子务、旅游常识有子目录，这里以淮安旅游为例，

目录。

底部的建立好后首页基本完成参见图9。

网站的主体结构基本建立后，其它网站将以主页内容

为中心逐步设计。这是一个漫长的过程。建立所有的网站

后，后期网站运营的管理和维护相当重要。管理人员对新

闻的快速更新和业务的接收将成为本站发展的重要因素。

图主页

9

参考文献

[1]任远.基于Web的网上购物系统[D].电子科技大学硕

士论文.2009-03-01

[2]唐雅玲.基于Web的部队考试系统研究与实现[D].电子

科技大学硕士论文.2011-05-06

靳

阳，[3]任东宏，李文秀.文物交易的网络中介平台[J].内

蒙古科技与经济.2009（04），36-37.

冯小静.基于

的班级特色管理网站设[4]吴春梅，

计与实现[J].软件工程，2019（10），50-53.

[5]徐建辉.下的电子文件检索管理系统设计与实

现[J].辽宁师专学报（自然科学版），2020（2）：16-20.

[6]江小华.基于Web的高校毕业论文档案管理信息系统的

设计[J].科技资讯，2013（27）：22.

，

[7]吴振华.网页设计与制作[J].赤峰学院学报（自然科学版）

2011（10）：37-39

作者简介

计

王亚（1962.11-），男，汉族，江苏泗阳，讲师。主要研究方向：

江苏财经职业技术学院。

算机信息技术与数据通信。工作单位：

费婷婷（1981.8-），女，汉族，硕士研究生，讲师，工作单位：ASP技术开发基于Web的旅游系统，有助展现淮安的

民商经济学。

江苏财经职业技术学院。主要研究方向：

（2001.7-）

任锦辉，男，汉，江苏财经职业技术学院智能工程

技术学院，计算机应用技术专业19级学生。

（第

2版）[6]罗刚君ExcelVBA程序开发自学宝典[M].电子

工业出版社.2011.8.

[7]苏进.探究如何在EXCEL中使用VBA编程处理数据[J].

数字技术与应用2016（1）.

[8]梁东刚.Excel在高校学生综合素质测评中的应用[J].山西

财政税务专科学校学报2015（05）.

[9]金洁.对Excel实现体育成绩自动化统计的分析[J].自动

化与仪器仪表2016（2）.

作者简介

高级实验

王淏（1982.9-），男，甘肃省古浪县人，大学本科，

计算机应用。

师。研究方向：

硕士研究生。研究方向：

亢娟娜，女，陕西蒲城人，副教授，

计算机应用。

5结束语

淮安美食文化、洪泽湖风光、现代农业观光等一批生态旅

游景点，为江苏旅游事业的发展和提升知名度贡献出一点

微薄之力。

渊64冤

上接第页

4结语

操作简单，提高了工作效

经过多次使用，该系统运行正常，

公平、公正计算的目的。

率，真正达到测评中成绩的快速、

参考文献

[1]张洪，汤青林，尹克林.Excel在统计教师教学工作量中

的应用[J].西南农业大学学报（社会科学版）.2008（04）.

[2]祝昕刚.用ExcelVBA编制变形监测数据处理程序[J].

地理空间信息.2011（03）.

[3]叶青.EXCEL平台下的玉米产量通径分析方法探讨[J].

农业与技术.2015（15）.

[4]王志军.运用Excel公式进行数据处理技巧八则[J].电

脑知识与技术.2015（10）.

[5]韩小良.ExcelVBA活用范例大辞典[M].中国铁道出版社.2012.8.

··

26

办公自动化杂志