潘偉珍　張　譽　盧　彤

教育部全國學生體質健康標準數(shù)據(jù)管理中心研發(fā)了一套體質健康管理系統(tǒng)，在全國已普遍采用。這套管理系統(tǒng)采用了使用較廣泛的Excel進行數(shù)據(jù)導入與導出，這樣提高數(shù)據(jù)的重用率和與其他軟件的兼容性，為學生體質健康、體育達標評分工作提供了非常大的便利，避免了手工查詢數(shù)據(jù)進行評分與登記的繁勞與人為出錯的可能。同時，全國各地數(shù)據(jù)統(tǒng)一匯報到中國學生體質健康網(wǎng)后，又為各部門了解掌握與分析全國或部分地區(qū)的學生體質健康與

體育達標情況提供了依據(jù)與便利。作為在教育第一線的體育教師，更是直接的受益者。

在使用該統(tǒng)計表過程中，筆者發(fā)現(xiàn)這套管理系統(tǒng)美中不足的是它評分、劃等級、生成Excel文檔后并沒有直接進行數(shù)據(jù)統(tǒng)計，需上傳到中國學生體質健康網(wǎng)上后，過兩天才能到網(wǎng)上查各種統(tǒng)計成績。這樣教師就不能及時地了解學生成績情況。同時，網(wǎng)上的統(tǒng)計是分項的，一次只能生成一項的數(shù)據(jù)，使用起來不是很方便。能不能自己進行統(tǒng)計呢？當然，應該說由Excel文檔再進行統(tǒng)計也不是難事，可偏偏此Excel文檔每個單元格格式為“文本”，這樣的格式中，數(shù)字作為文本處理，是不能進行運算的，這樣平均分如何求得？改為“常規(guī)”后仍不能進行計算。左調(diào)右試，原來是改格式后，需激活方才有效。如何激活？需雙擊此單元格。（原表及統(tǒng)計表如http://flybase.51.net/體質健康統(tǒng)計示例.rar）這么多的數(shù)據(jù)，一個一個點是不是太機械，同時也不可能？何況，上級部門所需要的統(tǒng)計表復雜到分年級、分性別計算，再小計，全校再合計，如表1所示。

如何進行統(tǒng)計，得出上表的數(shù)據(jù)呢？體育達標工作轉眼在春夏之交又將進行了，這項統(tǒng)計工作又將落在教師的身上，如何才能取得事半功倍甚至一勞永逸的效果呢？筆者經(jīng)過摸索，尋找到以下幾種解決方案與途徑，因其具有廣泛的適用性與參考意義，特拋出與大家共勉。

方案一 克服激活問題，進行統(tǒng)計

方法1：重新拷貝與選擇性粘貼將需統(tǒng)計的表單全部拷貝，并新建一表，進行選擇性粘貼。在選擇性粘貼的對話框中選擇運算為“加”，這樣處理后的數(shù)據(jù)將可以進行計算。但非常可惜的是，除數(shù)字外，其余文字均不見了，對需要的文字應再選中其列，進行復制。顯而易見，這絕非良策。

方法2：更改格式，再導入將表單另存為文本文件（在“另存為”對話框中選保存類型為“文本文件 *.txt”），再將數(shù)據(jù)導入（在菜單“數(shù)據(jù)/獲取外部數(shù)據(jù)/導入文本文件”中按向導對話框提示點擊“下一步”、“下一步”、“完成”即可）。

方法3：用VBA宏的方法激活進入菜單“工具/宏/Visual Basic編輯器”編寫如下宏：

Sub 改格式并激活的宏()

Cells.Select

Selection.NumberFormatLocal = "G/通用格式"′改格式為常用

ActiveCell.SpecialCells(xlLastCell).Select′找到最后一格

MaxRow = ActiveCell.Row ′最大行

MaxCol = ActiveCell.Column′最大列

For i = 1 To MaxCol

CharOfCol = Chr(Asc("A") + (i - 1) Mod 26) ′列的字母

If i > 26 Then CharOfCol = Chr(Asc("A") + i 26 - 1) & CharOfCol

For j = 1 To MaxRow

Range(CharOfCol & j).Select

ActiveCell.FormulaR1C1 = ActiveCell.Text ′激活單元格

Next j,i

End Sub

以上這些方法均達到更改單元格格式，使之能進行計算的效果，還要多次進行排序、篩選、匯總、計數(shù)、用函數(shù)計算等操作。但由于本次統(tǒng)計數(shù)據(jù)復雜，運用這些方法仍需要做大量的工作，因此不能算是理想的方案。

方案二 運用VBA編寫宏，直接得出統(tǒng)計數(shù)據(jù)

Excel提供了宏，可以方便地進行VBA程序編寫，用機器進行計算和判斷的速度與準確性是人腦所不能比擬的。根據(jù)原始表中“年級編號”在A列，分別在年級前加了個“1”,“性別”在G列，用“1”和“2”表示男女，“總分”在AG列，“等級”在AH列的特點，結合統(tǒng)計表所需數(shù)據(jù)，本人編寫了VBA宏。您可以將之拷貝下來，放入宏中運行即可得出所需各項數(shù)據(jù)。為使之對大家有參考與借鑒意義，方便大家在另外工作中需要時進行修改，加入了較多注釋。（由于篇幅原因，這里講一下關鍵代碼，完整示例在我的個人網(wǎng)站中，點擊http://flybase.51.net/體質健康統(tǒng)計示例.rar可進行下載）主要步驟如下。

定義標題、各種計數(shù)數(shù)組、數(shù)組始化關鍵代碼如下：

Title() = Array("學生人數(shù)", "平均分數(shù)", "達標人數(shù)", "達標率", "優(yōu)秀", "優(yōu)秀率", "良好", "良好率", "及格", "及格率", "不及格", "不及格率")/數(shù)組，存標題欄字串/

Dim a(7, 3, 12) As Single′6個年級加合計、3行(1男 2女 3小計)、12種數(shù)據(jù)同Title

……

由有數(shù)據(jù)的行得出全校人數(shù)及確定所需處理數(shù)據(jù)范圍運用上面改格式并激活的宏的方法，找到最后一格、最后一個記錄再減掉最后的空行得到范圍及全校人數(shù)。

分年級、分男女生進行統(tǒng)計各項數(shù)據(jù)從第二行到最大行進行循環(huán)，運用Range("A" & i).Text, 1)得到年級；用Sex = Range("G" & i).Value得到性別；再分年級、性別、成績級別進行累加，存入相應數(shù)組。

由各年級男女數(shù)相加得各年級小計數(shù)，再將各年級相加得全校總計數(shù)，再分別計算各項分率，存入相應數(shù)組中，關鍵代碼如下：

For Grade = 1 To 7 :For Sex = 1 To 3/算各項分率/

a(Grade, Sex, 3) = a(Grade, Sex, 1) - a(Grade, Sex, 11) /合格數(shù)/

a(Grade, Sex, 2) = a(Grade, Sex, 2) / a(Grade, Sex, 1) /平均分/

For k = 4 To 12 Step 2 /算其余項分率/

a(Grade, Sex, k) = a(Grade, Sex, k - 1) / a(Grade, Sex, 1)

Next k, Sex, Grade

添加工作表，將統(tǒng)計數(shù)據(jù)寫入添加工作表的方法：Sheets.Add；取列的字母方法：CharOfCol= Chr(Asc("A") + i)。然后進行循環(huán)，將各數(shù)組數(shù)據(jù)寫到對應的單元格。

運行以上宏的方法，于是方便地得出了各項所需數(shù)據(jù)，可說是達到了一勞永逸的效果。其實，在Excel進行數(shù)據(jù)統(tǒng)計中，一般會選擇排序、函數(shù)、自動篩選、高級篩選、分類匯總等方法，但當操作較復雜，這些方法也不太濟事時，不妨考慮編寫VBA宏，使之更好地為教師服務。

（作者單位：湖南省長沙縣黃興鎮(zhèn)中心學校）