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

辦公自動化雜志