陳燦芳 許仕芳

摘 要： 如何在第一時間讓學(xué)生、家長查詢到成績？利用功能強(qiáng)大、具有良好拓展性能的Excel調(diào)用相應(yīng)控件就可以輕松實(shí)現(xiàn)。

關(guān)鍵詞： 成績發(fā)送 Excel 控件調(diào)用

隨著科學(xué)技術(shù)的迅猛發(fā)展，計(jì)算機(jī)及網(wǎng)絡(luò)技術(shù)的廣泛應(yīng)用，信息技術(shù)在學(xué)校教育教學(xué)中成為非常重要的輔助手段，成為教師提高教育教學(xué)效率的有效途徑，使教育教學(xué)方式越來越多樣化，使教師變成充滿活力和創(chuàng)意的引導(dǎo)者，能夠?yàn)閷W(xué)生提供更好的學(xué)習(xí)平臺，提高教師工作效率。在實(shí)際教育教學(xué)中只要能夠合理使用信息技術(shù)，從學(xué)生實(shí)際發(fā)展需要出發(fā)，就一定能取得事半功倍的效果。

計(jì)算機(jī)輔助教學(xué)是教育教學(xué)改革的需要，同時是適應(yīng)現(xiàn)代化教學(xué)的需要。但是如何合理有效地將信息技術(shù)運(yùn)用到教育教學(xué)中呢？下面我結(jié)合多年班主任工作經(jīng)驗(yàn)就如何在班主任工作中合理有效地運(yùn)用信息技術(shù)做初步探索。由于多年擔(dān)任班主任，因此一直尋找如何讓每位學(xué)生和家長及時了解學(xué)習(xí)進(jìn)步情況的方法，以便學(xué)生及時采取更有針對性的措施，糾正不良的學(xué)習(xí)習(xí)慣，提高學(xué)習(xí)效率，同時讓家長及時對子女的學(xué)習(xí)生活進(jìn)行科學(xué)合理的引導(dǎo)，與學(xué)校共同為學(xué)生的成長、學(xué)習(xí)構(gòu)建一個更加科學(xué)、高效的學(xué)習(xí)平臺，促進(jìn)學(xué)生全面健康成長。

剛開始擔(dān)任班主任時對Excel軟件的應(yīng)用比較多，因?yàn)镋xcel軟件統(tǒng)計(jì)、分析學(xué)生成績的功能很強(qiáng)，如把個人成績放到整個年段中進(jìn)行縱向比較，把歷次成績保存起來對個人成績進(jìn)行橫向較，并分析個人成績的進(jìn)退情況，利用INDIRECT函數(shù)對各種數(shù)據(jù)進(jìn)行調(diào)用，并利用數(shù)組函數(shù)進(jìn)行多條件、分類查詢等。但是對于學(xué)生成績發(fā)送、學(xué)生成績查詢、家長成績查詢、教師成績查詢等更復(fù)雜的功能，單獨(dú)利用Excel函數(shù)無法實(shí)現(xiàn)。如何才能把每一位同學(xué)的成績單獨(dú)發(fā)送到同學(xué)們的手中，讓每位同學(xué)及時了解自己近階段的學(xué)習(xí)成果、及時進(jìn)行學(xué)習(xí)反饋，同時保護(hù)好每位同學(xué)的隱私呢？

一

通過網(wǎng)上資料查詢及個人理論學(xué)習(xí)，發(fā)現(xiàn)可以以Excel軟件為載體，利用Excel VBA編程實(shí)現(xiàn)學(xué)生個人成績發(fā)送功能。首先利用Excel的調(diào)用函數(shù)INDIRECT根據(jù)班級、第頁人數(shù)、發(fā)送的頁碼、考試名稱自動生成帶有各自郵箱的發(fā)送頁；然后用Excel VBA編程語言編寫發(fā)送郵件的代碼，主要通過VBA調(diào)用CDO.Message+SMTP實(shí)現(xiàn)郵件的發(fā)送，其中利用循環(huán)函數(shù)對發(fā)件人的郵箱進(jìn)行輪換，以克服現(xiàn)在郵件系統(tǒng)對發(fā)送郵件數(shù)量的限制，而且只要使用免費(fèi)郵箱就能夠勝任。其次要對發(fā)送郵件的時間間隔進(jìn)行調(diào)整，防止被誤認(rèn)為是垃圾郵件。通過Excel函數(shù)與Excel VBA編程相結(jié)合，把每位學(xué)生的個人成績及時發(fā)給學(xué)生本人及其家長，從而大大減少班主任的工作量，有效提高班主任的工作效率。通過對軟件的仔細(xì)調(diào)整，郵件發(fā)送的成功率基本能達(dá)到100%，發(fā)送效果比網(wǎng)上收費(fèi)郵件的發(fā)送軟件還要好。

二

在該軟件的使用過程中，發(fā)現(xiàn)這種方式還有一點(diǎn)不足，就是個別學(xué)生不方便上網(wǎng)或沒有上網(wǎng)條件，所以就沒辦法及時查詢自己的成績，那么如何讓這部分學(xué)生在沒有網(wǎng)絡(luò)的條件下也能及時獲知自己的成績呢？同樣通過網(wǎng)上信息資料查詢與學(xué)習(xí)，發(fā)現(xiàn)現(xiàn)在在各領(lǐng)域廣泛應(yīng)用的二維碼技術(shù)，二維碼（2D barcode or QR code=Quick reference code）大家再熟悉不過了，用手機(jī)拍下二維碼就可以方便地獲取網(wǎng)址、手機(jī)號碼及個人聯(lián)系方式等有用資訊；二維碼中有各種存儲數(shù)據(jù)的格式，如可以生成包含網(wǎng)址的二維碼；可以生成包含電話號碼名片的二維碼；可以生成包含電話號碼和內(nèi)容的短信二維碼，等等。通過對短信二維碼格式的分析，了解其發(fā)送的語法格式為：{smsto：13505626255：你好，短信請查收}。由于學(xué)生成績資料都在Excel文檔中，所以就想能否直接在Excel文檔中生成對應(yīng)學(xué)生、家長的電話號碼及成績？同樣通過網(wǎng)上查詢與學(xué)習(xí)發(fā)現(xiàn)可以在Excel的基礎(chǔ)上安裝生成二編碼控件QRmaker.ocx，在Excel控件中就會出現(xiàn)QRmaker Control的二維碼控件，在Excel中創(chuàng)建一個宏：Sub erweima（）

Dim QRString1 As String

QRString1 = Sheets（"二維碼發(fā)送"）.Range（"A10"）

Sheets（"二維碼發(fā)送"）.Select

Sheets（"二維碼發(fā)送"）.QRmaker1.AutoRedraw = ArOn

Sheets（"二維碼發(fā)送"）.QRmaker1.InputData = QRString1

End Sub

通過該宏把工作表“二維碼發(fā)送”中單元格A10的內(nèi)容生成二維碼。然后利用INDIRECT函數(shù)就可以把任意一個學(xué)生的成績、電話號碼根據(jù)短信二維碼格式編寫放入單元格A10中生成對應(yīng)二維碼，最后通過智能手機(jī)二維碼掃描就可迅速、及時地把成績發(fā)送給學(xué)生或家長。

利用以上兩項(xiàng)成績發(fā)送方式，基本能夠滿足班主任的日常工作需要，再結(jié)合Excel的基本統(tǒng)計(jì)功能，集班主任對學(xué)生成績的管理、分析、發(fā)送于一身，可有效減輕班主任的工作負(fù)擔(dān)，有效提高班主任的工作效率。同時能夠讓學(xué)生在第一時間了解自己的成績情況，對自己的學(xué)習(xí)習(xí)慣、計(jì)劃進(jìn)行合理調(diào)整，而家長也能在第一時間了解自己子女的學(xué)習(xí)情況，配合學(xué)校為子女學(xué)習(xí)提供幫助，共同促進(jìn)學(xué)生的學(xué)習(xí)與成長。

參考文獻(xiàn)：

[1]夏建喜.基于SMTP組件使用CDO.Message進(jìn)行工資條批量發(fā)送的實(shí)現(xiàn)聯(lián)單.軟件導(dǎo)刊，2011（12）.

[2]張君楓.二維碼綜述.消費(fèi)電子，2013（14）.

[3]邢平立.二維碼概述及應(yīng)用.網(wǎng)印工業(yè)，2013（7）.