劉曉燕

摘 要 Excel 2007是office應(yīng)用程序其中一款功能強大的辦公軟件，具有數(shù)據(jù)計算、數(shù)據(jù)統(tǒng)計分析和信息保存等功能；同時，它還是一個開放的平臺，用戶可以使用其內(nèi)嵌的VBA程序進行二次開發(fā)。本文就如何利用Excel2007和VBA編程平臺進行二次開發(fā)，設(shè)計與實現(xiàn)一個學(xué)生成績管理系統(tǒng)進行簡單地闡述。

關(guān)鍵詞 VBA EXCEL 學(xué)生成績

中圖分類號：TP311.52 文獻(xiàn)標(biāo)識碼：A

1 VBA簡介

VBA是Visual Basic For Application的簡稱， VB的子集，是Office應(yīng)用程序內(nèi)嵌的一種開發(fā)工具，使用VBA編程可以有效地自定義和擴展Excel等office應(yīng)用程序的功能。

2 系統(tǒng)的設(shè)計思想

學(xué)生成績管理，是一項繁瑣且耗時的工作，大多數(shù)成績管理員統(tǒng)計成績時都是利用Excel公式進行重復(fù)地操作，工作效率不高。本系統(tǒng)主要是想通過VBA編程對Excel2007進行二次開發(fā)，采用VBA按鈕控件創(chuàng)建一個學(xué)生成績管理系統(tǒng)，以便成績管理員更有效地管理成績。

3 系統(tǒng)的分析與設(shè)計

3.1 系統(tǒng)分析

該系統(tǒng)的使用者是教務(wù)成績管理員，要求系統(tǒng)方便實用，能簡化某些重復(fù)的操作，對系統(tǒng)功能分析需求如下：

（1）能完成各班學(xué)生基本信息的錄入、刪除及修改，完成各科成績的登記；

（2）能方便有效地查詢成績；

（3）能自動進行成績的分析和統(tǒng)計；

（4）能生成各班級成績匯總表。

3.2 模塊設(shè)計

根據(jù)系統(tǒng)分析需求，設(shè)置“學(xué)生信息管理”、“學(xué)生成績登記”、“學(xué)生成績查詢”、“成績統(tǒng)計分析”、“打印成績單”和“退出系統(tǒng)”6個模塊。下面簡單介紹一下這6個模塊各自的功能設(shè)計：

（1）學(xué)生信息管理：運行系統(tǒng)進入主界面，單擊該模塊按鈕則激活一個“學(xué)生信息管理”的窗體，再通過“學(xué)生信息管理”窗體選擇相應(yīng)班級及信息后，激活各個班級工作表。

（2）學(xué)生成績登記：完成學(xué)生各學(xué)科成績的登記、修改等功能。單擊該模塊按鈕時激活一個“學(xué)生成績登記”工作表，工作表中顯示有各班級按鈕，單擊相應(yīng)按鈕便可在相應(yīng)的班級成績信息表中直接錄入成績。（成績信息表顯示有“學(xué)生班級”、“學(xué)號”、“姓名”、“性別”和各學(xué)科名稱等）。

（3）學(xué)生成績查詢：根據(jù)設(shè)定的條件進行查詢，可以按班級名稱或?qū)W生姓名學(xué)號查詢個人成績，也可以按學(xué)期進行查詢各班級所有學(xué)生成績匯總等等。單擊該模塊時激活 “學(xué)生成績查詢”工作表，單擊工作表中不同的查詢條件按鈕則會彈出相應(yīng)的查詢選擇窗體，根據(jù)窗體提示選擇好后，相關(guān)成績信息便能直接顯示在“學(xué)生成績查詢”工作表中。

（4）成績統(tǒng)計分析：根據(jù)錄入的成績，統(tǒng)計出各科目的平均分、及格率、最高分?jǐn)?shù)、最低分?jǐn)?shù)和各分?jǐn)?shù)段的分布情況。

（5）打印成績單：生成班級成績單報表，并打印出來。

（6）退出系統(tǒng)：學(xué)生成績都保存在本系統(tǒng)工作簿的相關(guān)工作表中，當(dāng)對學(xué)生成績進行了錄入、刪除和修改等操作時必須保存。因此，該模塊的功能則是單擊按鈕時，系統(tǒng)會先對工作簿進行保存，然后再退出系統(tǒng)。

表格是Excel的基礎(chǔ)，要完成各模塊的編輯與實施，需使用Excel2007創(chuàng)建相關(guān)工作表并將可共享使用的信息先錄入及編輯，將表格框架搭建好，再使用內(nèi)嵌的VBA編輯宏，對表格進行處理。

3.3 主界面的設(shè)計

創(chuàng)建一個名為“學(xué)生成績管理系統(tǒng)”的工作簿，將第一個工作表設(shè)置為主界面，重命名為“封面”，利用插入藝術(shù)字和自選圖形等功能添加美化主界面的背景及按鈕模塊，再分別為各模塊按鈕指定相應(yīng)的VBA宏代碼。主界面效果圖如下圖1：

封面是對整個系統(tǒng)的控制，在打開系統(tǒng)工作簿時，會自動激活“封面”工作表。所以必須將該工作表進行保護，同時將工作簿中除“封面”工作表外的所有工作表隱藏起來，以保護其中的數(shù)據(jù)。因此，需要為工作簿對象設(shè)置Open事件。

4 VBA程序編寫

由于代碼量較多，本文只對部分代碼進行摘錄。

4.1為工作簿對象設(shè)置Open事件的代碼

Private Sub Workbook_Open（）

Dim i As Integer

Worksheets（"封面"）.Activate，激活工作表"封面"

Worksheets（"封面"）.Protect，保護工作表"封面"

For i = 1 To Worksheets.Count

If Worksheets（i）.Name <> "封面" Then Worksheets（i）.Visible = False '保護除工作表"封面"外的所有工作表

End If

Next i

End Sub

4.2為模塊按鈕指定宏的代碼

Sub 學(xué)生信息管理（） '"學(xué)生信息管理"按鈕

學(xué)生管理窗口.Show

End Sub

Sub登記學(xué)生成績 （）'"學(xué)生成績登記"按鈕

學(xué)生成績登記工作表.Show

End Sub

Sub 查詢學(xué)生成績（）'"學(xué)生成績查詢"按鈕

學(xué)生成績查詢工作表.Show

End Sub

Sub 成績統(tǒng)計分析（） '"成績統(tǒng)計分析"按鈕

成績統(tǒng)計分析窗口.Show

End Sub

Sub 打印成績單（）'"打印成績單"按鈕

打印成績單窗口.Show

End Sub

4.3成績統(tǒng)計分析模塊按鈕代碼

Sub LIK3（）'成績統(tǒng)計分析按鍵，

On Error Resume Next

Sheets（"成績統(tǒng)計分析"）.Visible = True

Sheets（"成績統(tǒng)計分析"）.Select

'Sheets（"成績統(tǒng)計分析"）.Cells.Clear

Sheets（"成績統(tǒng)計分析"）.Cells（1， 1）.Select

Kmpj_Form.Show

End Sub

4.4退出系統(tǒng)代碼

Sub File_Close（） '退出系統(tǒng)'

Application.ScreenUpdating = True

ActiveWorkbook.Save

Application.Quit

End Sub

5 結(jié)語

本文分別從系統(tǒng)功能模塊的設(shè)計、主界面的設(shè)計和Excel VBA編程幾方面進行闡述，采用Excel2007+VBA編程開發(fā)一個學(xué)生成績管理系統(tǒng)的設(shè)計與實現(xiàn)。該系統(tǒng)用戶界面友好，實用性強，實現(xiàn)了教務(wù)部門的實際需求，簡化了成績管理員大部分重復(fù)的操作工作，使成績管理員既可根據(jù)平時使用Excel的習(xí)慣和方式操作，并充分發(fā)揮Excel的VBA編程功能，又能大大提高了工作效率。

參考文獻(xiàn)

[1] ExcelHome.Excel 2007 VBA實戰(zhàn)技巧精粹[M].人民郵電出版社，2013（12）.

[2] ExcelHome.別怕，Excel VBA其實很簡單[M].人民郵電出版社，2012（10）.

[3] 馬文靜.計算機應(yīng)用基礎(chǔ)[M].江蘇教育出版社，2013（3）.