基于VBA的學(xué)業(yè)提示及學(xué)籍變動(dòng)統(tǒng)計(jì)系統(tǒng)設(shè)計(jì)

楊洋

摘 要：2017年起，天津職業(yè)大學(xué)逐步改革推進(jìn)學(xué)分制教學(xué)管理方式，在校生每學(xué)期的學(xué)業(yè)提示和每學(xué)年的降級情況通過學(xué)分相關(guān)規(guī)定進(jìn)行統(tǒng)計(jì)。而現(xiàn)有教務(wù)管理系統(tǒng)目前尚不能提供相應(yīng)的數(shù)據(jù)支持，給教學(xué)管理人員的統(tǒng)計(jì)工作造成極大負(fù)擔(dān)。文章運(yùn)用Excel VBA開發(fā)了一個(gè)供教學(xué)管理人員使用的學(xué)業(yè)提示及學(xué)籍變動(dòng)統(tǒng)計(jì)系統(tǒng)，具有支持?jǐn)?shù)據(jù)表導(dǎo)入、成績自動(dòng)分析、特殊數(shù)據(jù)標(biāo)注、學(xué)分自動(dòng)匯總、學(xué)業(yè)情況通知書自動(dòng)生成等功能，有效提升了工作效率。

關(guān)鍵詞：VBA;學(xué)分制;學(xué)業(yè)提示;降級

0? ? 引言

新時(shí)代帶來新任務(wù)、新挑戰(zhàn)，加快推進(jìn)教育信息化、擴(kuò)大優(yōu)質(zhì)教育資源覆蓋面、培養(yǎng)數(shù)字時(shí)代的創(chuàng)新人才是新時(shí)期賦予高等職業(yè)院校的重點(diǎn)任務(wù)。要想推動(dòng)“人人皆學(xué)、處處能學(xué)、時(shí)時(shí)可學(xué)、終身學(xué)習(xí)”的學(xué)習(xí)型高校建設(shè)，培養(yǎng)大批創(chuàng)新型人才，需要以相應(yīng)的教學(xué)管理模式為依托。學(xué)分制教學(xué)模式強(qiáng)調(diào)重點(diǎn)關(guān)注學(xué)生個(gè)性化培養(yǎng)，目前已在各大高校中推廣實(shí)行[1]。

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

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

1? ? 學(xué)分統(tǒng)計(jì)工作中的問題及難點(diǎn)

1.1? 數(shù)據(jù)量龐大

《天津職業(yè)大學(xué)學(xué)籍管理規(guī)定》第二十一條規(guī)定：學(xué)生每學(xué)期修得的學(xué)分總數(shù)（含開學(xué)補(bǔ)考、重修獲得學(xué)分），未達(dá)到該學(xué)期所修總學(xué)分60%者，由學(xué)院給予學(xué)業(yè)提示并報(bào)教務(wù)處備案;學(xué)生一學(xué)年內(nèi)獲得學(xué)分總數(shù)（含開學(xué)補(bǔ)考、重修獲得學(xué)分）未達(dá)到該學(xué)年所修總學(xué)分30%者應(yīng)予退學(xué)，未達(dá)到該學(xué)年所修總學(xué)分的60%者，延長學(xué)習(xí)年限一年，編入下一年級就讀，重新學(xué)習(xí)有關(guān)課程;學(xué)生在學(xué)年末未獲得的必修課（含實(shí)踐環(huán)節(jié)）累計(jì)學(xué)分總數(shù)達(dá)到30學(xué)分者，應(yīng)延長學(xué)習(xí)年限一年，編入下一年級就讀，重新學(xué)習(xí)有關(guān)課程。

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

1.2? 計(jì)算復(fù)雜

《天津職業(yè)大學(xué)學(xué)籍管理規(guī)定》第二十一條第八款規(guī)定：體育課、健康教育、文化素質(zhì)選修課、軍事理論、大學(xué)生心理健康教育、大學(xué)語文、創(chuàng)業(yè)基礎(chǔ)、溝通與協(xié)調(diào)、生命安全與救援、形勢與政策等課程學(xué)分不計(jì)入必修課程學(xué)分，但畢業(yè)前必須修滿以上課程學(xué)分方能畢業(yè)。

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

1.3? 學(xué)業(yè)情況通知書格式多樣

《天津職業(yè)大學(xué)學(xué)籍管理規(guī)定》第二十七條規(guī)定：對給予學(xué)業(yè)提示、退學(xué)、試讀或延長學(xué)習(xí)年限等處理的學(xué)生由學(xué)生所在學(xué)院在每學(xué)期初向?qū)W生發(fā)送“學(xué)業(yè)情況通知書”。

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

2? ? 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

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

為提高計(jì)算速度和精度，筆者運(yùn)用Excel結(jié)合VBA應(yīng)用開發(fā)了一個(gè)供教學(xué)管理人員使用的學(xué)業(yè)提示及學(xué)籍變動(dòng)統(tǒng)計(jì)系統(tǒng)。

2.1? 重修課程成績統(tǒng)計(jì)

從教務(wù)管理系統(tǒng)導(dǎo)出上一學(xué)年學(xué)生各科成績，通過點(diǎn)擊“導(dǎo)入成績”按鈕，可以將工作表按格式導(dǎo)入本系統(tǒng)的重修課程工作表。

（1）成績分析。

上一學(xué)年學(xué)生各科成績表中有三列分別為成績、補(bǔ)考成績、重修成績，成績分為五級制成績和百分制成績。五級制成績是優(yōu)秀、良好、中等、合格時(shí)獲得學(xué)分，不合格、缺課、缺考、作弊不獲得學(xué)分;百分制成績60及60分以上獲得學(xué)分，60分以下不獲得學(xué)分。根據(jù)以上規(guī)則，設(shè)置“是否獲得學(xué)分”列，通過則自動(dòng)填寫為“是”，未通過則自動(dòng)填寫為“否”，并填充為藍(lán)色。根據(jù)《天津市職業(yè)大學(xué)學(xué)籍管理規(guī)定》的規(guī)則，自動(dòng)填寫“是否必修課”一列，并將“否”填充為黃色。同時(shí)在最后一列自動(dòng)標(biāo)注考試類別“重修”。設(shè)置“成績分析”按鈕，自動(dòng)完成填充。

（2）僅保留重修科目。

將上一學(xué)年學(xué)生各科成績中正考和補(bǔ)考通過的課程刪除，僅保留參加了重修考試的科目，用于最終的學(xué)分統(tǒng)計(jì)。設(shè)置“僅保留重修科目”按鈕，自動(dòng)完成相應(yīng)課程的刪除。

For i = 3 To .UsedRange.Rows.Count

If .Cells（i， 12） = "是" And Not （.Cells（i， 8） = "合格" Or .Cells（i， 8） = "及格" Or .Cells（i， 8） = "優(yōu)秀" 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? 正考課程成績統(tǒng)計(jì)

從教務(wù)管理系統(tǒng)導(dǎo)出這一學(xué)年學(xué)生各科成績，通過點(diǎn)擊 “導(dǎo)入成績”按鈕，可以將工作表按格式導(dǎo)入本系統(tǒng)的正考課程工作表。

（1）成績分析。

與重修課程成績統(tǒng)計(jì)的成績分析規(guī)則一致，同時(shí)在最后一列自動(dòng)標(biāo)注考試類別“正考”。

（2）導(dǎo)入重修。

將分析完畢的重修課程成績表導(dǎo)入正考課程成績表，為避免重復(fù)導(dǎo)入，如果正考課程成績中已經(jīng)包含了重修課程成績，先刪除原有的重修課程成績，再導(dǎo)入新的重修課程成績。設(shè)置“導(dǎo)入重修”按鈕，自動(dòng)完成重修課程成績的導(dǎo)入。

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? 學(xué)分匯總

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

2.4? 學(xué)業(yè)情況通知書打印

不同的學(xué)業(yè)處理方式，會給學(xué)生發(fā)放不同的通知內(nèi)容，將3種不同的通知內(nèi)容分別寫在3個(gè)相應(yīng)的工作表中。通過點(diǎn)擊“根據(jù)不同處理方式分別生成打印頁面”按鈕，在相應(yīng)工作表中的通知內(nèi)容下方自動(dòng)列出每一名學(xué)生的學(xué)分匯總結(jié)果及課程成績明細(xì)，并自動(dòng)添加分頁符，實(shí)現(xiàn)直接打印的功能。將打印規(guī)則全部封裝在printPage函數(shù)中，直接調(diào)用3次printPage函數(shù)即可：

printPage "學(xué)業(yè)提示"

printPage "降級"

printPage "退學(xué)"

3? ? 系統(tǒng)功能測試

截至目前，天津職業(yè)大學(xué)電信、生環(huán)、包印、經(jīng)管、汽車、機(jī)電和藝工7個(gè)學(xué)院的教學(xué)管理人員應(yīng)用本系統(tǒng)已完成了6個(gè)學(xué)期的學(xué)業(yè)提示及學(xué)籍變動(dòng)統(tǒng)計(jì)工作，計(jì)算準(zhǔn)確無誤。本系統(tǒng)操作簡單，易學(xué)易懂，減少了大量重復(fù)工作，提高工作效率與質(zhì)量，避免人工核算可能出現(xiàn)的一系列問題，能很好地對接教務(wù)管理系統(tǒng)，幫助教學(xué)管理人員順利完成學(xué)業(yè)提示和降級的統(tǒng)計(jì)工作。

推行和完善學(xué)分制是《國家中長期教育改革和發(fā)展規(guī)劃綱要》對高等學(xué)?！疤岣呓虒W(xué)質(zhì)量”提出的具體任務(wù)。高職院校學(xué)分制改革建設(shè)是當(dāng)前教育發(fā)展的必然趨勢，隨VBA在Excel環(huán)境下的應(yīng)用開發(fā)不斷完善，將越來越成為表格數(shù)據(jù)處理人員的首選，不斷提高院校教務(wù)管理質(zhì)量和工作效率。

[參考文獻(xiàn)]

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

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

[3]李結(jié)松.EXCEL VBA在教學(xué)管理中的應(yīng)用[J].辦公自動(dòng)化，2011（12）：55-57.

[4]叢飚.基于VBA改進(jìn)的學(xué)分績點(diǎn)統(tǒng)計(jì)程序[J].吉林師范大學(xué)學(xué)報(bào)（自然科學(xué)版），2010（4）：130-132.

[5]金文子. 在Excel中利用VBA程序進(jìn)行學(xué)生成績統(tǒng)計(jì)[J]. 電腦知識與技術(shù)（學(xué)術(shù)交流），2007（10）：554-555.

（編輯 王永超）