基于Excel VBA的成績管理系統設計

陳華鋒 孟繁蘋

摘要：成績處理是學校教學管理的一項重要基礎性工作，筆者結合工作情況，在Microsoft Office Excel工作環境中，通過VBA二次開發，通過宏編程實現學生成績的自動化處理，保障了成績處理的準確性和時效性，大大提高了工作效率。

關鍵詞： 成績管理； excel vba；程序

成績管理是學校教學管理的一項重要基礎性工作，它對于學校的決策者和管理者來說都至關重要，所以學生成績管理系統應該能夠為用戶（學校管理者、教師、學生）提供充足的信息和快捷的統計、查詢服務。這也是學校實現管理科學化、規范化的一項重要內容。成績管理自動化的實現可以借助各種數據管理軟件如SQL Server、foxpro等，但這些大都涉及到專用軟件及大量編程工作，對操作人員而言太過于專業和生疏。為此，筆者結合平時工作應用 ，在Microsoft Office Excel工作環境中，通過VBA二次開發宏編程實現學生成績的自動化處理，保障了成績處理的準確性和時效性，大大提高了工作效率。

一、系統需求分析

成績管理系統用戶分為學生、教師、管理員三類，功能需要分析如下：

1.學生。可以查詢成績、名次。

2.教師。可以方便地實現班級成績錄入、修改、排名、統計成績合格率等功能。

3.管理員。負責成績系統的管理和維護，主要功能需求如下：（1）班級管理：增刪班級、增刪學生名單。（2）科目管理：增刪班級科目；實現科目與任課教師關聯。（3）統計分析：以班級為單位，對各科學生成績進行匯總；統計各科成績合格率，生成成績合格率統計表；按科目、班級分類統計學生補考情況。（4）匯總輸出：輸出班級成績統計表、合格率統計表、補考情況統計表。

二、系統算法分析

（一）工作表中單元格的數據計算

1.統計各科平均成績：=IF（OR（D4：D54>0），AVERAGE（D4：D54），””）

2.統計各科不及格（低于60分）人數：=IF（OR（D4：D54>0），COUNTIF（D4：D54，”<60”），””）。

類似統計良好人數、優秀人數、良好率、優秀率。

3.統計科目合格率：=1-D80/COUNTA（$A$4：$A$75）

（二）工作表間數據判斷、數據復制、表格生成等計算

1.成績是否及格判斷

If （Not IsEmpty（Cells（3， j））） And （Not IsEmpty（Cells（k， 2））） And （CVar（Cells（k， j）.Value） < 60）

2.登記成績

If CStr（Workbooks（filename）.ActiveSheet.Cells（j + 1， 5）） <> “” Then

Cells（j， i）.Value = CVar（Workbooks（filename）.ActiveSheet.Cells（j + 1， 5）.Value）

3.生成班級空白成績單內容

Sheets（“空白表（課程）”）.Copy

ActiveSheet.Name=班級

Range（“c2”）.Value=學期

（三）工作表生成

1.生成班級成績單

ActiveSheet.Protect DrawingObjects：=True， Contents：=True， Scenarios：=True， Password：=”zzjtxy”

ActiveWorkbook.SaveAs ThisWorkbook.Path & “＼班級” & “＼” & ActiveSheet.Name & “成績單”

ActiveWorkbook.Close

2.生成成績合格率統計表

Sheets（“課程”）.Cells（（i - 7） * 2 - 1， j - 2）.Value = CStr（Cells（3， j）.Value）

Sheets（“課程”）.Cells（（i - 7） * 2， 1）.Value = “成績合格率”

Sheets（“課程”）.Cells（（i - 7） * 2， j - 2）.Value = CStr（Cells（63， j）.Value）

3.生成補考安排表

Cells（j， 4）.Value = Cells（j， 4）.Value & IIf（Len（Cells（j， 4）.Value） = 0， “”， “ “） & Sheets（“補考”）.Cells（i， 4.Value

三、系統功能實現

本文以管理員功能需求為例說明。當用戶以管理員身份登錄后，各部分功能如下：

1.班級管理。根據期末班級畢業情況和新學期班級增加情況，分別設置“增加”和“刪除”命令按鈕。針對增加班級設置單個輸入和批量增加兩種操作，以方便管理員的操作。添加新班級時設置班級名重復性判斷，保證工作表的唯一性。當班級畢業需要在成績管理系統中刪除時，設置二次詢問，以防管理員誤操作造成不必要的麻煩。在刪除的同時進行該班數據備份，保證數據的完整性，使得以后的查詢可以正常進行。

2.科目設置。對添加的班級，按教學計劃（課程安排）設置學期科目，同時與任課教師一一對應，保證班級成績數據上報的唯一性和嚴肅性。

3.生成空白成績單。根據班級和科目設置，對在校班級生成學期成績空白表，每科目一份電子文件。電子文件以學期+班級+科目+教師形式命名，方便任課教師查找自己需要登記的文件并上報。

4.成績登記。教師登記任課班級的成績上報后，管理員通過“成績登記”功能，實現成績的自動上傳。上傳結束后針對各班、各科成績進行數據檢測：一是開展數據的有效性檢測，保證成績數據可靠；二是檢查成績漏報情況，保證數據的完整性。

5.生成班級成績單。成績上傳并通過檢測后，該功能將各班級學期成績匯總生成成績單。成績單的下方顯示“合格率統計、良好率、優秀率、不及格名單”等數據，方便班主任的管理工作。

6.補考安排。將不及格名單按班級、科目分類統計，可以分別按班級或科目組織補考。

7.合格率統計。針對科目成績進行合格率（以百分數形式表示）統計， 使全校學期成績率一目了然；同時將合格率不達標的科目以特殊字體和顏色標志，方便管理員下一步的操作。

四、結束語

Excel作為一種常用辦公軟件，是我們日常工作必不可少的一種數據處理軟件，結合VBA宏編程的應用，Excel能夠實現成績的高效自動化，同時又有著極好的普及性和應用性。

參考文獻：

[1]魏汪洋，《從零開始學編程》，電子工業出版，ISBN：9787121242502，出版日期：2014 年9月

[2]伍遠高，《xcel VBA編程實戰寶典》，清華大學出版社，出版日期：2014年8月