基于VBA的學業提示及學籍變動統計系統設計

楊洋

摘 要：2017年起，天津職業大學逐步改革推進學分制教學管理方式，在校生每學期的學業提示和每學年的降級情況通過學分相關規定進行統計。而現有教務管理系統目前尚不能提供相應的數據支持，給教學管理人員的統計工作造成極大負擔。文章運用Excel VBA開發了一個供教學管理人員使用的學業提示及學籍變動統計系統，具有支持數據表導入、成績自動分析、特殊數據標注、學分自動匯總、學業情況通知書自動生成等功能，有效提升了工作效率。

關鍵詞：VBA;學分制;學業提示;降級

0? ? 引言

新時代帶來新任務、新挑戰，加快推進教育信息化、擴大優質教育資源覆蓋面、培養數字時代的創新人才是新時期賦予高等職業院校的重點任務。要想推動“人人皆學、處處能學、時時可學、終身學習”的學習型高校建設，培養大批創新型人才，需要以相應的教學管理模式為依托。學分制教學模式強調重點關注學生個性化培養，目前已在各大高校中推廣實行[1]。

學分制作為人本化的教學管理模式，其特點是可以根據學生們的個人興趣愛好來選擇課程內容，并制定相應的學習計劃。該模式以學生在每一門課上所投入的有效學習時間來衡量相應的學習歷程，充分地保證了學生在學習過程中的主體地位，滿足了不同學生在選擇課程上的個性化需求，將被動學習變成了主動學習。高職教育學分制教學模式起步較晚，但進展迅速，機制體制創新力度空前。學分制教學模式在高等職業院校中的推行，是高等職業院校教學模式主動適應教育體制改革的一次自我革新，具有十分重要的現實意義[2]。

天津職業大學在2017年以前，主要是根據學生不及格課程的數量來統計相應的學業情況，而忽略了課程的難度系數及課程地位。該校自2017年開始逐步啟動學分制教學改革，使上述統計方式更加合理、更加科學。然而，目前在用的教學管理系統尚未能提供有力的數據支撐和計算支持，教學管理人員需要從龐大的數據中統計出符合要求的學生信息，并給相應的學生發放學業情況通知書，導致統計工作煩瑣，工作效率低下。

1? ? 學分統計工作中的問題及難點

1.1? 數據量龐大

《天津職業大學學籍管理規定》第二十一條規定：學生每學期修得的學分總數（含開學補考、重修獲得學分），未達到該學期所修總學分60%者，由學院給予學業提示并報教務處備案;學生一學年內獲得學分總數（含開學補考、重修獲得學分）未達到該學年所修總學分30%者應予退學，未達到該學年所修總學分的60%者，延長學習年限一年，編入下一年級就讀，重新學習有關課程;學生在學年末未獲得的必修課（含實踐環節）累計學分總數達到30學分者，應延長學習年限一年，編入下一年級就讀，重新學習有關課程。

根據規定可以看出，每一名學生都需要計算出以下數據：每學期應獲得的總學分，每學期實際獲得的總學分，每學年應獲得的總學分，每學年實際獲得的總學分，以及每學年未獲得的必修課累計學分。每個學生應獲得的總學分存在差異，這種差異體現在學生自主選擇的文化素質選修課以及參加重修的課程。截止到目前，僅電信學院在校生已超過? ? ?2 000人，數據量非常龐大。

1.2? 計算復雜

《天津職業大學學籍管理規定》第二十一條第八款規定：體育課、健康教育、文化素質選修課、軍事理論、大學生心理健康教育、大學語文、創業基礎、溝通與協調、生命安全與救援、形勢與政策等課程學分不計入必修課程學分，但畢業前必須修滿以上課程學分方能畢業。

這些課程不計入必修課程學分，卻需要計入應獲得的總學分。也就是說，學生每學年未獲得的必修課累計學分不包括這些課程，每學期應獲得的總學分和每學年應獲得的總學分包括這些課程，計算起來難度較大。

1.3? 學業情況通知書格式多樣

《天津職業大學學籍管理規定》第二十七條規定：對給予學業提示、退學、試讀或延長學習年限等處理的學生由學生所在學院在每學期初向學生發送“學業情況通知書”。

學業情況通知書的內容主要分為學業提示、降級和退學三種，在每一份通知書下方，需要列出符合條件的學生的學分信息和課程明細。如果使用Word完成這項工作，需要進行大量的重復操作，嚴重影響工作效率。

2? ? 系統的設計與實現

Excel作為一款功能完善的辦公軟件，以其豐富的函數、運算公式為用戶提供了高效迅捷的服務，基本上滿足了用戶日常辦公的需要。然而，在處理一些特定要求的工作表或者處理大量重復、煩瑣的具有相同要求的工作表時，單純采用Excel自帶的函數和公式來完成所要求的工作，效率就會顯得比較低。而利用VBA組件開發相應的計算平臺，可以滿足用戶的上述需求[3]。該平臺具有開放、高效等特點，可以利用VBA編制出符合用戶特定需求的程序，從而高效實現過去靠人工手動完成的重復且煩瑣的表格數據統計工作，提高工作效率及管理水平[4]。應用VBA在Excel下編寫程序具有其他編程工具無法比擬的優點：（1）在Excel內核上編程，VBA直接處理Excel不方便處理的數據單元，其余操作交由Excel去解決，充分發揮 Excel直觀快捷的數據輸入和圖表編輯能力。（2）利用宏錄制，可以實現程序的部分自動化編碼，即便不熟悉所編寫的代碼也可以利用宏錄制來獲得。（3）VBA是一種非常容易掌握的編程語言，易學、易懂、操作簡單。（4）利用VBA編寫的軟件包含在Excel的文檔或工作簿中，打開Excel工作簿就可以直接運行，軟件所占硬盤空間很小，可移植性較強，可以在諸多平臺使用[5]。

為提高計算速度和精度，筆者運用Excel結合VBA應用開發了一個供教學管理人員使用的學業提示及學籍變動統計系統。

2.1? 重修課程成績統計

從教務管理系統導出上一學年學生各科成績，通過點擊“導入成績”按鈕，可以將工作表按格式導入本系統的重修課程工作表。

（1）成績分析。

上一學年學生各科成績表中有三列分別為成績、補考成績、重修成績，成績分為五級制成績和百分制成績。五級制成績是優秀、良好、中等、合格時獲得學分，不合格、缺課、缺考、作弊不獲得學分;百分制成績60及60分以上獲得學分，60分以下不獲得學分。根據以上規則，設置“是否獲得學分”列，通過則自動填寫為“是”，未通過則自動填寫為“否”，并填充為藍色。根據《天津市職業大學學籍管理規定》的規則，自動填寫“是否必修課”一列，并將“否”填充為黃色。同時在最后一列自動標注考試類別“重修”。設置“成績分析”按鈕，自動完成填充。

（2）僅保留重修科目。

將上一學年學生各科成績中正考和補考通過的課程刪除，僅保留參加了重修考試的科目，用于最終的學分統計。設置“僅保留重修科目”按鈕，自動完成相應課程的刪除。

For i = 3 To .UsedRange.Rows.Count

If .Cells（i， 12） = "是" And Not （.Cells（i， 8） = "合格" Or .Cells（i， 8） = "及格" Or .Cells（i， 8） = "優秀" Or .Cells（i， 8） = "良好" Or .Cells（i， 8） = "中等" Or （IsNumeric（.Cells（i， 8）） And .Cells（i， 8） >= 60）） Then

.Rows（i）.Delete

i = i - 1

End If

Next

2.2? 正考課程成績統計

從教務管理系統導出這一學年學生各科成績，通過點擊 “導入成績”按鈕，可以將工作表按格式導入本系統的正考課程工作表。

（1）成績分析。

與重修課程成績統計的成績分析規則一致，同時在最后一列自動標注考試類別“正考”。

（2）導入重修。

將分析完畢的重修課程成績表導入正考課程成績表，為避免重復導入，如果正考課程成績中已經包含了重修課程成績，先刪除原有的重修課程成績，再導入新的重修課程成績。設置“導入重修”按鈕，自動完成重修課程成績的導入。

For i = 3 To .UsedRange.Rows.Count

If .Cells（i， 14） = "重修" Then

k = i

Exit For

End If

Next

If k > 2 Then

Range（.Rows（k）， .Rows（.UsedRange.Rows.Count））.Delete

End If

2.3? 學分匯總

通過點擊“學分匯總”按鈕，學分匯總工作表自動匯總每一名學生這一學年的應得學分、實得學分、實得學分占比、必修課未獲得學分，并根據《天津市職業大學學籍管理規定》的規則，自動完成處理方式一列的填寫（學業提示/降級/退學）。同時將實得學分占比在60%以下的匯總結果自動填充為藍色，將必修課未獲得學分達到30分的匯總結果自動填充為黃色。

2.4? 學業情況通知書打印

不同的學業處理方式，會給學生發放不同的通知內容，將3種不同的通知內容分別寫在3個相應的工作表中。通過點擊“根據不同處理方式分別生成打印頁面”按鈕，在相應工作表中的通知內容下方自動列出每一名學生的學分匯總結果及課程成績明細，并自動添加分頁符，實現直接打印的功能。將打印規則全部封裝在printPage函數中，直接調用3次printPage函數即可：

printPage "學業提示"

printPage "降級"

printPage "退學"

3? ? 系統功能測試

截至目前，天津職業大學電信、生環、包印、經管、汽車、機電和藝工7個學院的教學管理人員應用本系統已完成了6個學期的學業提示及學籍變動統計工作，計算準確無誤。本系統操作簡單，易學易懂，減少了大量重復工作，提高工作效率與質量，避免人工核算可能出現的一系列問題，能很好地對接教務管理系統，幫助教學管理人員順利完成學業提示和降級的統計工作。

推行和完善學分制是《國家中長期教育改革和發展規劃綱要》對高等學校“提高教學質量”提出的具體任務。高職院校學分制改革建設是當前教育發展的必然趨勢，隨VBA在Excel環境下的應用開發不斷完善，將越來越成為表格數據處理人員的首選，不斷提高院校教務管理質量和工作效率。

[參考文獻]

[1]孫麗娜.高等職業院校學分制改革研究[J].才智，2019（8）：64.

[2]劉凱.學分制背景下高職院校教學管理改革研究與實踐[J].學周刊，2019（26）：6.

[3]李結松.EXCEL VBA在教學管理中的應用[J].辦公自動化，2011（12）：55-57.

[4]叢飚.基于VBA改進的學分績點統計程序[J].吉林師范大學學報（自然科學版），2010（4）：130-132.

[5]金文子. 在Excel中利用VBA程序進行學生成績統計[J]. 電腦知識與技術（學術交流），2007（10）：554-555.

（編輯 王永超）