办公自动化杂志0引言
在各类比赛中比赛成绩的计算是最重要的工作之一，一般都是取消一定比例的最高分和最低分，
然后取平均值的方法来获得选手的最终成绩。目前，多数竞赛用Excel 来计分，并使用MAX、MIN、AVERAGE、COUNT 等函数来计
算选手最终得分。但在计算过程中只能取一个最高分和一个最低分，而不是将一定比例的最高分和最低分去掉。为了最终成绩真正公平、公正，笔者利用Excel 2010及VBA，以我院年终考核民主测评计分原则设计实现了快速计算考核成绩模板。1VBA 相关概念
1.1VBA 与宏
VBA （Visual Basic for Applications）
是Visual Basic 的一种标准宏语言，是微软开发出来用于桌面应用程序中执行通用自动化（OLE）任务的编程语言。所谓应用程序自动化，
是指通过编写程序让常规应用程序自动完成工作，主要用来
扩展Windows 的应用程序的功能，
特别是Microsoft Office 软件。VBA 作为Microsoft Office 系列应用软件的内置编程语
言，“寄生于”Office 应用软件，是Microsoft Office 套装软件的一个重要组件。
宏是VBA 语言编出的一段程序，是一系列存储于Visual Basic 中的命令和函数，并在需要执行该项任务时可随时运行。
1.2VBA 的启动方法
打开“文件”菜单，点击
“选项”，打开“EXEC 选项”对话框，在左侧列表中选择“自定义功能区”
，然后在右侧“主选项卡”复选列表中选择
“开发工具”，此时在Excel 的功能区中就多了
“开发工具”选项卡，其内有Visual Basic 按钮，单击即可打开“VBA”窗口。2设计思想
一般在各类测评计分过程中，都是根据参加打分的人数来确定去掉最高分和最低分的比例，然后计算平均分来得到最终成绩，其中难度最大的应数根据比例去掉最高分
和最低分，这无形中给算分组的人员带来难度。
为快速公正地得到最终测评成绩，在应用设计时，利用Excel 数组功能，将每个选手的全部成绩写入数组中，使用
冒泡排序的方法将数组数据进行排序；然后根据打分人数和计分规则中去掉最高分和最低分的比例，计算出应该去掉的最高分个数和最低分个数；最终，从排序好的数组中读取中间数组元素的值并计算出平均分存放在“测评结
果”工作表中。本应用共设计了三个模块，分别为：数据加密、计算得分和打印结果，如图1所示。3设计过程
3.1建立工作表
新建一个工作簿并将其按“启动宏的工作簿”
类型进行保存，其分别命名为“测评成绩输入”、“控制参数”、“测评结果”。设计结果如图2所示。
“测评成绩输入”工作表：主要为测评成绩输入，
工作表首行为录入的票数，首列为参与测评人员名单，每张测评表成绩均按列的方式输入。
Excel VBA 在测评成绩计算中的应用
王淏
亢娟娜
（甘肃畜牧工程职业技术学院
武威
733006）
摘要：通过对各种竞赛测评成绩计算规则进行分析，
以我校年终考核测评成绩计算为例，使用Excel 及VBA 设计实现了一个操作简单、维护方便的测评成绩计算模板。实践证明该模板代码运行可靠性强，有效提高了工作效率，真正实现了测评中成绩计算的快速、公开、公正性。关键词：测评成绩;
计算;
EXCEL VBA
中图分类号:TP391.13
文献标识码:B
文章编号:7751
Application of Excel VBA in the Evaluation Results Calculation
WANG Hao
KANG Juanna
(Gansu Polytechnic College of Animal Husbandry &Engineering
Wuwei
733006)
Abstract ：It analyzes calculation rules through all kinds of competition evaluation results.For example,in terms of our
college check system performance calculation.Using Excel and VBA design assessment results calculation template which is a simple operation and convenient maintenance.Practice has proved that the template code has ran reliability.It improves effectively the work efficiency and really realizes the evaluation results in fast,open,fair calculation purposes.Keywords ：evaluation results；calculation；EXCEL VBA
2021年1月15日
总第439期
Exchange
vba编程技巧63··
办公自动化杂志
“控制参数”工作表：主要用来设置控制参数“去掉最
高分比例”和“去掉最低分比例”以及监控参数。
“测评结果”工作表：用来存放测评结果，
包括测评得分及排名。
3.2数据有效性设置
为了在输入测评成绩时，降低数据录入错误率，
并对输入有误的数据进行提醒，可对数据单元格区域设置有效
性。选择数据录入区域，切换到
“数据”选项卡，单击“数据工具”组中的“数据有效性”按钮，
在弹出的下拉列表中选择“数据有效性”命令，打开“数据有效性”
对话框，在“设置”选项卡中设置有效性条件，
允许“小数”、“忽略空值”，数据介于最小值“0”，最大值“100”。在“输入信息”
选项卡中设置“选字单元格时显示输入信息”，标题“成绩录入”、输入信息“输入的成绩为百分制。”
在“出错警告”选项卡中设置“输入无效数据时显示错误警告”
，
标题“录入数据无效”、错误信息“录入数据大小应介于0－100！！！”、样式
“停止”。设置完成后单击
“确定”按钮即可。3.3VBA 代码编写
在“功能区”空白处单击鼠标右键，
在弹出的快捷菜单中选择“自定义功能区”命令，
在打开的“自定义功能区”对话框中的“主选项卡”列表框中选择
“开发工具”，打开“开发工具”选项卡。单击“Visual Basic”按钮即可进入VBA 窗
口进行代码的编写。
3.3.1数据加密
在计分人员在监督人员的监督下录入完所有测试成绩
后，为防止有人修改原始成绩影响最终结果，
可对“测评成绩输入”工作表进行加密保护。
3.3.2计算得分
首先，根据“测评成绩输入”
工作表的数据，创建二维数组并将录入数据赋值给二维数组，然后，使用冒泡排序
的方法，对二维数组数据进行逐行排序；
其次，根据“控制参数”工作表中统计的
“去掉最高分和最低分比例”，计算出要去掉的最高分和最低分的个数，用它来控制参加平均
运算的数组元素，并将结果存入一个新的二维数据；
最后，将计算结果写入“测评结果”工作表，
并对写入数据进行排序。计算核心代码如图3所示。
图3计算核心代码
图4系统计分结果
3.3.3打印结果
系统计分结果如图4所示。为防止人为查看测评结果，对“测评结果”工作表进行了隐藏，在设计过程中根据抽取专家总数来动态设定打印区域和打印标题以及表格格式。
3.4功能按钮设计
根据前面功能的说明，为了操作方便，在“控制参数”工作表中创建三个功能按钮，分别为命名为：“数据加密”、“计算得分”和“打印结果”。并将编写的VBA 代码指定给对应的按钮即可。具体操作是：切换到Excel 的“开发工具”选项卡，单击“按件”组中的“插入”按钮，在弹出的下拉列表
中选择“按钮（窗体控件）”图标。然后在
“控制参数”工作表的合适位置绘制按钮。此时，会弹出
“指定宏”对话框，将前面编写的VBA 代码指定给对应的按钮即可。
图1测评计分设计三模块
图2测评设计结果
(下转第26页)
64··
办公自动化杂志
(上接第64页)
4结语
经过多次使用，该系统运行正常，操作简单，提高了工作效率，真正达到测评中成绩的快速、
公平、公正计算的目的。参考文献
[1]张洪，汤青林，尹克林.Excel 在统计教师教学工作量中
的应用[J].西南农业大学学报（社会科学版）.2008（04）.[2]祝昕刚.用Excel VBA 编制变形监测数据处理程序[J].
地理空间信息.2011（03）.
[3]叶青.EXCEL 平台下的玉米产量通径分析方法探讨[J].
农业与技术.2015（15）.
[4]王志军.运用Excel 公式进行数据处理技巧八则[J].电
脑知识与技术.2015（10）.
[5]韩小良.Excel VBA 活用范例大辞典[M].中国铁道出版社.2012.8.
[6]罗刚君Excel VBA 程序开发自学宝典（第2版）[M].电子
工业出版社.2011.8.
[7]苏进.探究如何在EXCEL 中使用VBA 编程处理数据[J].
数字技术与应用2016（1）.
[8]梁东刚.Excel 在高校学生综合素质测评中的应用[J].山西
财政税务专科学校学报2015（05）.
[9]金洁.对Excel 实现体育成绩自动化统计的分析[J].自动
化与仪器仪表2016（2）.作者简介
王淏（1982.9-），男，甘肃省古浪县人，大学本科，
高级实验师。研究方向：
计算机应用。亢娟娜，女，陕西蒲城人，副教授，
硕士研究生。研究方向：计算机应用。
然后，在已设计好的表格中输入以下代码：
<ahref="journey_more.asp？id=<%=rs （"NewsID"）%>"title="<%=rs （"BiaoTi"）%>"target="_blank"><%=rs （"BiaoTi"）%></a></td>调用数据库。其效果预览时自动更新最新标题。
左边导航器servings.html 的建立。首先建立CSS 样式：<style type="text/css"><！--.style1{font-size：12px}.STYLE2{font-size：10px}--></style>
建立表格，分别输入导航文字。其中淮安旅游、
旅游票务、旅游常识有子目录，这里以淮安旅游为例，
生成3个子目录。
底部bottom.html 的建立好后首页基本完成参见图9。网站的主体结构基本建立后，其它网站将以主页
内容为中心逐步设计。这是一个漫长的过程。建立所有的网站后，后期网站运营的管理和维护相当重要。管理人员对新闻的快速更新和业务的接收将成为本站发展的重要因素。
5结束语
ASP 技术开发基于Web 的旅游系统，有助展现淮安的淮安美食文化、洪泽湖风光、现代农业观光等一批生态旅游景点，为江苏旅游事业的发展和提升知名度贡献出一点微薄之力。参考文献
[1]任远.基于Web 的网上购物系统[D].电子科技大学硕
士论文.2009-03-01
[2]唐雅玲.基于Web 的部队考试系统研究与实现[D].电子
科技大学硕士论文.2011-05-06
[3]任东宏，靳阳，李文秀.文物交易的网络中介平台[J].内
蒙古科技与经济.2009（04），36-37.
[4]吴春梅，
冯小静.基于ASP.NET 的班级特管理网站设计与实现[J].软件工程，2019（10），50-53.
[5]徐建辉.ASP.NET 下的电子文件检索管理系统设计与实
现[J].辽宁师专学报（自然科学版），2020（2）：16-20.
[6]江小华.基于Web 的高校毕业论文档案管理信息系统的
设计[J].科技资讯，2013（27）：22.
[7]吴振华.网页设计与制作[J].赤峰学院学报（自然科学版）
，2011（10）：37-39作者简介
王亚（1962.11-），男，汉族，江苏泗阳，讲师。主要研究方向：
计算机信息技术与数据通信。工作单位：
江苏财经职业技术学院。费婷婷（1981.8-），女，汉族，硕士研究生，讲师，工作单位：
江苏财经职业技术学院。主要研究方向：
民商经济学。任锦辉（2001.7-），男，汉，江苏财经职业技术学院智能工程技术学院，计算机应用技术专业19级学生。图8中部制作过程图
图9主页
26··

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。