1、設(shè)計(jì)成績自動(dòng)統(tǒng)計(jì)Excel模板在教學(xué)管理工作中，學(xué)期期末成績統(tǒng)計(jì)是學(xué)校重要且枯燥煩瑣的工作，設(shè)計(jì)成績自動(dòng)統(tǒng)計(jì)Excel模板成為實(shí)際需要。本人經(jīng)過摸索，利用Excel函數(shù)功能，能夠?qū)崿F(xiàn)成績自動(dòng)統(tǒng)計(jì)要求。接下來本人就將自動(dòng)統(tǒng)計(jì)功能的實(shí)現(xiàn)過程進(jìn)行簡單的陳述，以期望拋磚引玉，與眾多朋友一起學(xué)習(xí)和探討。一、學(xué)校教學(xué)成績統(tǒng)計(jì)的需求分析在進(jìn)行成績自動(dòng)統(tǒng)計(jì)模板設(shè)計(jì)前，正確進(jìn)行學(xué)校教學(xué)成績統(tǒng)計(jì)的需求分析是必要的，就以我校情況簡述如下：每年級(jí)現(xiàn)有教學(xué)班10個(gè)，考慮到學(xué)校的發(fā)展，因此設(shè)模板每年級(jí)上限班級(jí)為20個(gè)。現(xiàn)每個(gè)教學(xué)班具有50至60人，因此設(shè)模板每個(gè)教學(xué)班上限人數(shù)為75人，每級(jí)學(xué)生總?cè)藬?shù)上限為1500人。根據(jù)

2、學(xué)校教學(xué)成績評(píng)估的需求，成績統(tǒng)計(jì)表格如下：表1-1二、成績自動(dòng)統(tǒng)計(jì)模板的總體設(shè)計(jì)新建空白Excel工作簿，將自動(dòng)建立的Sheet1和Sheet2工作表重命名為Tstat和Tscore，并將Sheet3工作表刪除。如圖 ，其中Tscore工作表用于記錄成績數(shù)據(jù)，Tstat工作表用于記錄成績統(tǒng)計(jì)數(shù)據(jù)。1、定制Tscore工作表在Tscore工作表第一行中從A1單元格開始順序輸入記錄字段名：學(xué)號(hào)、姓名、班級(jí)、語文、數(shù)學(xué)、外語、物理、化學(xué)、生物、政治、歷史和地理。2、定制Tstat工作表對Tstat工作表的定制多而復(fù)雜，下面就以語文科統(tǒng)計(jì)表定制為例進(jìn)行陳述，其它科的統(tǒng)計(jì)類比操作。（一）定制語文科統(tǒng)計(jì)表

3、基本框架將單元格A1:T1合并。并在合并單元格中輸入“=IF(MONTH(TODAY()>6,"第" & (YEAR(TODAY()-1) & "-" & YEAR(TODAY() &"學(xué)年度第二學(xué)期期末","第" & (YEAR(TODAY()-2) & "-" & (YEAR(TODAY()-1)&"學(xué)年度第一學(xué)期期末") &TScore!D1 &"科統(tǒng)計(jì)表一覽" ”

4、，其中MONTH（TODAY（）得到統(tǒng)計(jì)時(shí)的月份數(shù)，YEAR(TODAY()得到統(tǒng)計(jì)時(shí)的年份數(shù)，TScore!D1得到統(tǒng)計(jì)科目，即“語文”。通過函數(shù)IF對數(shù)值和公式進(jìn)行條件檢測，使得單元格能夠自動(dòng)獲得學(xué)年度信息和學(xué)期信息。參照前面表1-1，定制單元格區(qū)域A2：S3，并從A4單元格至A23單元格中順序輸入1至20，A24輸入“級(jí)”。 (二)求語文科各班參考人數(shù)首先在B4單元格中輸入“=COUNTIF(TScore!$C$2:TScore!$C$1501,"=" & A4)”，其中COUNTIF函數(shù)用于計(jì)算給定區(qū)域內(nèi)滿足特定條件的單元格的數(shù)目，通過COUNTIF函數(shù)求出

5、1班的參考人數(shù)。然后選中B4單元格，拖動(dòng)B4單元格右下角的小“十”字圖標(biāo)至B23單元格（這種操作本文統(tǒng)稱為向下自動(dòng)填充操作），這樣，就能自動(dòng)得到B5至B23單元格的公式。最后在B24單元格中輸入“=SUM(B4:B23)”(三) 求語文科各班平均分首先在C4單元格中輸入“=IF(B4=0,0,SUMIF(TScore!$C$2:TScore!$C$1501,"=" & A4,TScore!$D$2:TScore!$D$1501)/B4) ”，其中SUMIF函數(shù)功能是根據(jù)指定條件對若干單元格求和。為了避免分母為0的錯(cuò)誤產(chǎn)生，單元格中用到了IF函數(shù)。該單元格公式可理解為

6、：若1班參考人數(shù)不為0，則把1班語文科總分除以參考人員得到平均分。然后對C4至C23單元格進(jìn)行向下自動(dòng)填充操作，就可以自動(dòng)得到C5至C23單元格的公式。最后在C25單元格中輸入“=IF(B24=0,0,SUM(TScore!$D$2:TScore!$D$1501)/B24)”，求出全級(jí)平均分。(四)求語文科各班合格人數(shù)在求各班合格人數(shù)時(shí)，利用COUNTIF函數(shù)功能比較難滿足設(shè)計(jì)要求，為了解決這種多條件的計(jì)算功能，本人使用了數(shù)組公式進(jìn)行多重標(biāo)準(zhǔn)單元計(jì)算。首先在D4單元格中輸入“=SUM(TScore!$C$2:TScore!$C$1501=A4)*(TScore!$D$2:TScore!$D$1

7、501>=60)”，按下SHIFTCTRL鍵敲回車(這是生成數(shù)組公式的關(guān)鍵環(huán)節(jié))，Excel會(huì)自動(dòng)在公式兩側(cè)加上大括號(hào),生成數(shù)組公式。然后對D4至D23單元格進(jìn)行向下自動(dòng)填充操作。最后在D25中輸入“=SUM(D4:D23)”，求出全級(jí)及格人數(shù)。(五)求語文科各班合格率首先在E4單元格中輸入“=IF(B4=0,0,D4/B4)*100”，為避免分母為O的錯(cuò)誤，用了IF函數(shù)。公式可以理解為：若1班參考人數(shù)不為0，則合格率為合格人數(shù)除以參考人數(shù)后乘以100。然后對E4至E24單元格進(jìn)行向下自動(dòng)填充操作。(六) 求語文科各班差生人數(shù)我校對分?jǐn)?shù)低于30分的學(xué)生稱為差生。首先在F4單元格中輸入“=

8、SUM(TScore!$C$2:TScore!$C$1501=A4)*(TScore!$D$2:TScore!$D$1501<30)”，按下SHIFTCTRL鍵敲回車(這是生成數(shù)組公式的關(guān)鍵環(huán)節(jié))，Excel會(huì)自動(dòng)在公式兩側(cè)加上大括號(hào),生成數(shù)組公式。然后對F4至F23單元格進(jìn)行向下自動(dòng)填充操作。最后在F24單元格中輸入“=SUM(F4:F23)”，以求得全級(jí)差生人數(shù)。(七) 求語文科各班差生率首先在G4單元格中輸入“=IF(B4=0,0,F4/B4)*100”，為避免分母為O的錯(cuò)誤，用了IF函數(shù)。該單元格公式可以理解為：若1班參考人數(shù)不為0，則差生率為差生人數(shù)除以參考人數(shù)后乘以100。然

9、后對G4至G24單元格進(jìn)行向下自動(dòng)填充操作。(八）求語文科各班優(yōu)生人數(shù)我校對分?jǐn)?shù)高于或等于80分的學(xué)生稱為優(yōu)生。首先在H4單元格中輸入“=SUM(TScore!$C$2:TScore!$C$1501=A4)*(TScore!$D$2:TScore!$D$1501>=80)”，按下SHIFTCTRL鍵敲回車(這是生成數(shù)組公式的關(guān)鍵環(huán)節(jié))，Excel會(huì)自動(dòng)在公式兩側(cè)加上大括號(hào),生成數(shù)組公式。然后對H4至H23單元格進(jìn)行向下自動(dòng)填充操作。最后在H24單元格中輸入“=SUM(H4:H23)”，以求得全級(jí)優(yōu)生人數(shù)。(九) 求語文科各班優(yōu)生率首先在I4單元格中輸入“=IF(B4=0,0,H4/B4)

10、*100”，為避免分母為O的錯(cuò)誤，用了IF函數(shù)。公式可以理解為：若1班參考人數(shù)不為0，則優(yōu)生率為優(yōu)生人數(shù)除以參考人數(shù)后乘以100。然后對I4至I24單元格進(jìn)行向下自動(dòng)填充操作。(十) 求語文科各班0-10分?jǐn)?shù)段人數(shù)0-10分?jǐn)?shù)段即可理解為小于10分的分?jǐn)?shù)段。首先在J4單元格中輸入“=SUM(TScore!$C$2:TScore!$C$1501=A4)*(TScore!$D$2:TScore!$D$1501<10)”，按下SHIFTCTRL鍵敲回車(這是生成數(shù)組公式的關(guān)鍵環(huán)節(jié))，Excel會(huì)自動(dòng)在公式兩側(cè)加上大括號(hào),生成數(shù)組公式。然后對J4至J23單元格進(jìn)行向下自動(dòng)填充操作。，然后在J24

11、單元格中輸入“=SUM(J4:J23)”，以求得全級(jí)0-10分?jǐn)?shù)段人數(shù)。(十一）求語文科各班10-20分?jǐn)?shù)段人數(shù)求語文科各班10-20分?jǐn)?shù)段人數(shù)，將用到三個(gè)條件進(jìn)行標(biāo)準(zhǔn)單元計(jì)算。首先在K4單元格中輸入“=SUM(TScore!$C$2:TScore!$C$1501=A4)*(TScore!$D$2:TScore!$D$1501<20)*(TScore!$D$2:TScore!$D$1501>=10)”，按下SHIFTCTRL鍵敲回車，生成數(shù)組公式。然后對K4至K23單元格進(jìn)行向下自動(dòng)填充操作。最后在K25單元格中輸入“=SUM(K4:K23)”，求出全級(jí)10-20分?jǐn)?shù)段人數(shù)。同樣的

12、道理，可以分別統(tǒng)計(jì)各班語文科共它各分?jǐn)?shù)段人數(shù)，在此不再多述。(十二）求語文科各班最高分在T4單元格中輸入“=MAX(IF(TScore!$C$2:TScore!$C$1501=A4,TScore!$D$2:TScore!$D$1501)” 按下SHIFTCTRL鍵敲回車，生成數(shù)組公式。然后對T4至T23單元格進(jìn)行向下自動(dòng)填充操作。最后在T25單元格中輸入“=MAX(T4:T23)”，求出全級(jí)最高分。三、成績自動(dòng)統(tǒng)計(jì)Excel模板的密碼加強(qiáng)為了維護(hù)數(shù)據(jù)的安全性，防止非法用戶善自有意或無意更改成績數(shù)據(jù)，加強(qiáng)成績自動(dòng)統(tǒng)計(jì)Excel模板的密碼功能成為實(shí)際需要。雖然Excel應(yīng)用軟件提供了加密功能，但針

13、對Excel的加密而開發(fā)的解密軟件已經(jīng)出現(xiàn)，因此，本人利用VBA接口，加強(qiáng)了學(xué)校成績統(tǒng)計(jì)Excel模板打開要求。同時(shí)按住Alt鍵和F11鍵，激活VBE（即VB編輯器），在“工程”窗口中雙擊“ThisWorkbook”后，在代碼窗口中輸入下列語句：Private Sub Workbook_Open()Dim PasswordPassword = InputBox("請輸入合法密碼：", "提示")If Password <> "111" Then MsgBox "密碼錯(cuò)誤，你是非法用戶", vbOKOnly, "提示" Me.Close (1)End IfEnd Sub上述代碼可理解為：將輸入密碼內(nèi)容賦值給Password，若Password內(nèi)容不為驗(yàn)證密碼“111”，則提示用戶為非法用戶