基于Excel VBA的成績(jī)管理系統(tǒng)的探索與實(shí)現(xiàn)

楊發(fā)友 曹瀚天 黃恩相 張光福 鐵衛(wèi)華

摘? 要：文章以云南水利水電職業(yè)學(xué)院的成績(jī)管理為研究對(duì)象，以Excel 2010為平臺(tái)，采用VBA編程，設(shè)計(jì)了一款能夠自動(dòng)匯總班級(jí)成績(jī)并可以統(tǒng)計(jì)出補(bǔ)考學(xué)生名單的成績(jī)管理系統(tǒng)。利用Excel VBA實(shí)現(xiàn)學(xué)生成績(jī)管理的自動(dòng)化處理，提高工作效率和數(shù)據(jù)處理能力，加強(qiáng)數(shù)據(jù)處理結(jié)果的準(zhǔn)確性，實(shí)現(xiàn)學(xué)生成績(jī)信息管理工作流程的系統(tǒng)化、規(guī)范化和自動(dòng)化，降低工作量，提高工作效率。

關(guān)鍵詞：VBA;自動(dòng)生成;排版;成績(jī)管理

中圖分類號(hào)：TP311.52? ? ? 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：2096-4706（2020）22-0011-05

Exploration and Implementation of Achievement Management System

Based on Excel VBA

YANG Fayou，CAO Hantian，HUANG Enxiang，ZHANG Guangfu，TIE Weihua

（Yunnan Water Resources and Hydropower Vocational College，Kunming? 650499，China）

Abstract：The article takes the achievement management of Yunnan Water Resources and Hydropower Vocational College as the research object，uses Excel 2010 as the platform，and uses VBA programming to design a achievement management system that can automatically summarize class results and make statistics on the list of students who take the retake exam. Using Excel VBA to realize the automatic processing of student achievement management，improve work efficiency and data processing ability，strengthen the accuracy of data processing results，realize the systematization，standardization and automation of student achievement information management workflow，reduce workload and improve work efficiency.

Keywords：VBA;automatic generation;typesetting;achievement management

0? 引? 言

經(jīng)過(guò)多年的教育信息化發(fā)展，以互聯(lián)網(wǎng)為基礎(chǔ)的成績(jī)管理系統(tǒng)在各級(jí)各類學(xué)校中得到了普及。但經(jīng)過(guò)調(diào)查，仍然有很多學(xué)校還沒(méi)有專門的成績(jī)管理系統(tǒng)，學(xué)校對(duì)成績(jī)的管理還停留在使用Excel進(jìn)行管理。

Excel雖然本身具有很強(qiáng)的數(shù)據(jù)處理能力，但是存在以下兩個(gè)問(wèn)題：一是由于Excel的網(wǎng)絡(luò)功能有限，對(duì)數(shù)據(jù)錄入的工作很難實(shí)現(xiàn)多人在線收集;二是雖然教師們都熟悉Excel，但是該軟件的強(qiáng)大的數(shù)據(jù)處理功能要想發(fā)揮出來(lái)，需要掌握復(fù)雜的公式或者VBA編程才能實(shí)現(xiàn)，這一點(diǎn)卻少有人能夠精通。

云南水利水電職業(yè)學(xué)院目前有5個(gè)二級(jí)學(xué)院，將近5 000名在校學(xué)生，開(kāi)設(shè)26個(gè)專業(yè)，每學(xué)期開(kāi)設(shè)約200門課程，包含理論課和實(shí)踐課。由于學(xué)院有在線成績(jī)管理系統(tǒng)，但有部分教師暫不能接受新系統(tǒng)使用操作，特別年長(zhǎng)的老教師習(xí)慣了使用Excel統(tǒng)計(jì)各科成績(jī)后上報(bào)教務(wù)處，再由教務(wù)處按照要求錄入系統(tǒng)，生成班級(jí)成績(jī)匯總表，進(jìn)行排名和補(bǔ)考統(tǒng)計(jì)。每次考試結(jié)束后，教務(wù)處的工作量非常大，不得不抽調(diào)其他工作人員進(jìn)行支援。這樣做，不僅工作效率低，而且學(xué)生成績(jī)錄入錯(cuò)誤的風(fēng)險(xiǎn)非常大。

解決這個(gè)問(wèn)題最好的辦法是升級(jí)優(yōu)化或重新采購(gòu)一套操作更簡(jiǎn)潔的在線成績(jī)管理系統(tǒng)，但是由于學(xué)校經(jīng)費(fèi)有限，近幾年都沒(méi)有這方面的資金預(yù)算。

鑒于以上原因，本文從云南水利水電職業(yè)學(xué)院成績(jī)管理需求出發(fā)，通過(guò)分析學(xué)校需求，從Excel本身的功能開(kāi)發(fā)考慮，用VBA開(kāi)發(fā)了一套低成本的解決方案。

1? 研究的意義

我國(guó)的教育信息化經(jīng)過(guò)多年的發(fā)展，已經(jīng)取得了長(zhǎng)足的進(jìn)步。市場(chǎng)上不乏優(yōu)秀的成績(jī)管理系統(tǒng)，但是這些系統(tǒng)要么就是商業(yè)化嚴(yán)重，雖然好用，后臺(tái)服務(wù)也能及時(shí)跟進(jìn)，但是價(jià)格不菲;要么就是地方教育行政管理部門推廣的系統(tǒng)，具有一定的優(yōu)勢(shì)，但是售后服務(wù)跟不上。有的學(xué)校自己有能力開(kāi)發(fā)各種子系統(tǒng)，但是也存在各子系統(tǒng)之間數(shù)據(jù)不統(tǒng)一等問(wèn)題。

Microsoft Office是廣大學(xué)校教師最熟悉也是使用最多的辦公軟件，Excel軟件是有強(qiáng)大的數(shù)據(jù)處理能力的表格系統(tǒng)，可以存儲(chǔ)各種類型的數(shù)據(jù)。Visual Basic宏語(yǔ)言（Visual Basic for Application，VBA）是Office內(nèi)嵌的一種完全面向?qū)ο蟮木幊陶Z(yǔ)言。Excel本身雖然具有非常強(qiáng)大的數(shù)據(jù)處理能力，但是往往需要大量復(fù)雜的公式或者用VBA進(jìn)行二次開(kāi)發(fā)，才能使Excel的功能得以充分發(fā)揮。運(yùn)用VBA開(kāi)發(fā)成績(jī)管理系統(tǒng)，Excel軟件既是應(yīng)用程序又是數(shù)據(jù)庫(kù)，去避免了應(yīng)用程序和數(shù)據(jù)庫(kù)軟件頻繁交換數(shù)據(jù)的問(wèn)題。

學(xué)生成績(jī)是學(xué)生評(píng)先評(píng)優(yōu)的重要依據(jù)，同時(shí)也是學(xué)生是否需要補(bǔ)考、能否達(dá)到畢業(yè)條件的重要考核指標(biāo)?？荚嚦煽?jī)管理，是學(xué)校教學(xué)管理最重要的環(huán)節(jié)之一，成績(jī)能否及時(shí)收集固定、是否能準(zhǔn)確無(wú)誤的進(jìn)行統(tǒng)計(jì)匯總，關(guān)系學(xué)校管理的嚴(yán)肅性、嚴(yán)謹(jǐn)性。利用VBA技術(shù)，只需把Excel成績(jī)單模板進(jìn)行格式統(tǒng)一，這樣就能使數(shù)據(jù)標(biāo)準(zhǔn)化，再利用VBA編程，就能輕松對(duì)成績(jī)進(jìn)行收集、管理。

2? 所用VBA關(guān)鍵技術(shù)的介紹

本系統(tǒng)直接用Excel+VBA進(jìn)行開(kāi)發(fā)。VBA是應(yīng)用程序開(kāi)發(fā)語(yǔ)言VB（Visual Basic）的子集，一般是嵌入Excel等已有應(yīng)用程序中對(duì)其進(jìn)行二次開(kāi)發(fā)，提高自動(dòng)化功能。VBA編程可以自定義Excel的工具欄、菜單和界面，對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析，使Excel突破自身局限，成為開(kāi)發(fā)平臺(tái)，從而實(shí)現(xiàn)基于VBA的成績(jī)管理系統(tǒng)的各項(xiàng)功能。

使用VBA開(kāi)發(fā)有以下幾個(gè)好處：

（1）VBA設(shè)計(jì)的窗體雖然不能脫離Excel獨(dú)立運(yùn)行，但可以讓Excel在后臺(tái)工作，并利用Windows API，可以設(shè)計(jì)浮動(dòng)在桌面上的窗體，讓使用者感覺(jué)不出是Excel中的窗體;

（2）使用Excel軟件中的VBA開(kāi)發(fā)系統(tǒng)，主要是要充分利用Excel軟件自身的優(yōu)勢(shì)，Excel軟件還有很多內(nèi)置的函數(shù)可以調(diào)用，在VBA中使用非常方便;

（3）VBE（VBA的編輯器）提供了模塊功能，可以根據(jù)功能需要編寫(xiě)模塊代碼，實(shí)現(xiàn)模塊化編程功能，也非常利于系統(tǒng)功能的擴(kuò)展升級(jí);

（4）用VBA讀取Excel文件中的數(shù)據(jù)比讀取數(shù)據(jù)庫(kù)的數(shù)據(jù)更方便，而且程序的設(shè)計(jì)更簡(jiǎn)單。

因此本系統(tǒng)選用Excel+VBA作為平臺(tái)和工具，是十分便捷和高效的。

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

本系統(tǒng)分別由成績(jī)報(bào)告單、成績(jī)收集匯總表、補(bǔ)考統(tǒng)計(jì)表、成績(jī)收集模塊、補(bǔ)考統(tǒng)計(jì)模塊、用戶窗體6部分組成。

3.1? 用戶登錄驗(yàn)證及添加用戶窗體

運(yùn)行軟件后，系統(tǒng)會(huì)自動(dòng)進(jìn)入此窗口，如圖1（a）所示，選擇對(duì)應(yīng)的“用戶名”有“成績(jī)管理員、臨時(shí)用戶”兩種，輸入正確“密碼”即可登錄;也可以點(diǎn)擊“新用戶注冊(cè)”如圖1（b）所示，添加“用戶名”“密碼”后點(diǎn)“添加”即完成新用戶注冊(cè)。

（a）用戶登錄驗(yàn)證窗口

（b）新用戶注冊(cè)窗口

圖1? 用戶登錄驗(yàn)證及新用戶注冊(cè)窗口

此登錄驗(yàn)證模塊能很好解決管理員用戶和普通用戶的權(quán)限問(wèn)題，能夠有效追蹤成績(jī)出錯(cuò)環(huán)節(jié)，從而進(jìn)行責(zé)任劃分;同時(shí)也能添加不同用戶，方便管理。

實(shí)現(xiàn)程序代碼為：

Private Sub cmbUsername_Change（）

End Sub

Public Sub cmdExit_Click（）

Unload Me

Application.Quit

ActiveWorkbook.Close savechanges：=False

End Sub

Private Sub cmdNewyh_Click（）

frmAddUser.Show

End Sub

Private Sub lblWelcome_Click（）

End Sub

Private Sub UserForm_QueryClose（Cancel As Integer， CloseMode As Integer）

If CloseMode = 0 Then

Cancel = True

End If

End Sub

Private Sub UserForm_Initialize（）

N1 = Application.WorksheetFunction.CountA（Sheet3.Range（"b：b"））

AA1 = "b2：b"& N1

Sheet3.Activate

cmbUsername.RowSource = AA1

End Sub

Private Sub cmdLogin_Click（）

Dim I As Integer，Username As String，Password As String

N1 = Application.WorksheetFunction.CountA（Sheet3.Range（"b：b"））

For I = 2 To N1

Username = cmbUsername.Value

Password = txtPassword.Text

If Username = Sheets（3）.Cells（I，2） Then

If Password = Sheets（3）.Cells（I，3）

ThenMsgBox cmbUsername.Value &"，歡迎您進(jìn)入系統(tǒng)！"， 48，"提示"

Unload Me

ElseMsgBox "請(qǐng)正確輸入用戶名和密碼！"，48，"提示"

cmbUsername.Value = ""

txtPassword.Text = ""

cmbUsername.SetFocus

End If

Exit Sub

End If

Next

End Sub

Private Sub cmdAdd_Click（）

Dim sht As Worksheet

Set sht = Worksheets（"用戶"）

Dim X As Integer

X = sht.Range（"A1"）.CurrentRegion.Rows.Count

sht.Cells（X + 1，1） = sht.Cells（X，1）.Value + 1

sht.Cells（X + 1，2） = AddUsername.Value

sht.Cells（X + 1，3） = AddPassword.Value

End Sub

Public Sub cmdExit_Click（）

Unload Me

Application.Quit

ActiveWorkbook.Close savechanges：=True

End Sub

3.2? 成績(jī)匯總統(tǒng)計(jì)模塊

當(dāng)用戶驗(yàn)證成功后，在“成績(jī)收集匯總”表中點(diǎn)擊“一鍵收成績(jī)”，如圖2所示，在彈出的提示對(duì)話框內(nèi)輸入需要匯總的“班級(jí)名稱”如：輸入“150175”確定后，系統(tǒng)即運(yùn)行后臺(tái)程序代碼，把指定班級(jí)文件夾中收集的各科成績(jī)報(bào)告單進(jìn)行匯總，并能自動(dòng)排版和實(shí)現(xiàn)成績(jī)匯總和排名等功能，生成統(tǒng)一的匯總表可以直接打印和存檔。

實(shí)現(xiàn)程序?yàn)椋?/p>

Sub 一鍵收集成績(jī)并匯總（）

Dim myPath$，myFile$，AK As Workbook，Tk As Workbook，I，j，n，m，X，Y，Num1，Num2，Num3，Wjs As Integer

Application.ScreenUpdating = False

Sheet1.[A1].CurrentRegion.Clear

Dim className As String

className = Application.InputBox（"請(qǐng)輸入班級(jí)名稱"，"班級(jí)名稱"，""，510，380）

If className = "" Then Exit Sub

myPath = ThisWorkbook.Path &"＼"& className &"＼"

Set Tk = ThisWorkbook

myFile = Dir（myPath &"*.xls"）

Do While myFile <>""

If myFile <> Tk.Name Then

a = CreateObject（"scripting.FileSystemObject"）.GetFolder （myPath）.Files.Count

For j = 6 To 5 + a

Set AK = Workbooks.Open（myPath & myFile）

AK.Sheets（1）.Unprotect Password：="cxb"

Num1 = AK.Sheets（1）.Range（"A2"）.CurrentRegion.Rows.Count? ? ? ? ?AK.Sheets（1）.Range（"f7"）.Copy Tk.Sheets（1）.Cells（4，j）

AK.Sheets（1）.Range（"f8"）.Copy Tk.Sheets（1）.Cells（3，j）

AK.Sheets（1）.Range（"f9"）.Copy Tk.Sheets（1）.Cells（2，j）

Tk.Sheets（1）.Cells（1，j） = AK.Sheets（1）.[f6]? ? ? ? ? Tk.Sheets（1）.[b1] = AK.Sheets（1）.[f4]

Tk.Sheets（1）.[b2] = AK.Sheets（1）.[f3]

For I = 2 To Num1

AK.Sheets（1）.Range（"a"& I）.Copy Tk.Sheets（1）.Cells（I + 2，2）

AK.Sheets（1）.Range（"b"& I）.Copy Tk.Sheets（1）.Cells（I + 2，3）

Tk.Sheets（1）.Cells（I + 3，1） = AK.Sheets（1）.[f2]? ? ? ? ? ? ?AK.Sheets（1）.Range（"c"& I + 1）.Copy Tk.Sheets（1）.Cells（I + 3，j）

Next

Workbooks（myFile）.Close False

myFile = Dir

Next

End If

Loop

Tk.Sheets（1）.[A1] = "應(yīng)考人數(shù)"

Tk.Sheets（1）.[A2] = "專業(yè)"

Tk.Sheets（1）.[a3] = "單人單科成績(jī)"

Tk.Sheets（1）.[a4] = "班級(jí)"

Tk.Sheets（1）.[e1] = "學(xué)期"

Tk.Sheets（1）.[e2] = "考試類別"

Tk.Sheets（1）.[e3] = "任課教師"

Tk.Sheets（1）.[c1] = "日期"

Tk.Sheets（1）.[d4] = "總分"

Tk.Sheets（1）.[e4] = "名次"

Tk.Sheets（1）.[d1] = "=today（）"

Num2 = Tk.Sheets（1）.Range（"b5"）.CurrentRegion.Rows.Count

Num3 = Tk.Sheets（1）.Range（"f4"）.CurrentRegion.Columns.Count

Tk.Sheets（1）.Cells（5，4）.Select

For n = 5 To Num2 - 1

For m = 6 To Num3

Tk.Sheets（1）.Cells（n，4） = "=Sum（RC[2]：RC["& Num3 - 4 &"]）"

Next

Next

Tk.Sheets（1）.Cells（5，5）.Select

For n = 5 To Num2 - 1

Tk.Sheets（1）.Cells（n，5）.Select

ActiveCell.FormulaR1C1 = "=RANK（RC[-1]，R5C4：R"& Num2 - 1 &"C4，0）"

Next

Num2 = Tk.Sheets（1）.Range（"b5"）.CurrentRegion.Rows.Count

Tk.Sheets（1）.Cells（Num2，1） = "合計(jì)與不及格統(tǒng)計(jì)"

ActiveCell.FormulaR1C1 = "=SUM（R["& -Num2 + 5 &"]C：R[-1]C）"

Tk.Sheets（1）.Cells（Num2，5）.Clear

Tk.Sheets（1）.[b3].Select

ActiveCell.FormulaR1C1 = "=R["& Num2 - 3 &"]C[2]/R[-2]C[0]/（"& Num3 - 5 &"）"

Selection.NumberFormatLocal = "0.000_ "

For m = 6 To Num3

Tk.Sheets（1）.Cells（Num2，6）.Select?Cells（Num2，m） = _"=COUNTIF（R["& -Num2 + 5 &"]C：R[-1]C，""<60""） +COUNTIF（R["& -Num2 + 5 &"]C：R[-1]C，""缺考""）+COUNTIF （R["& -Num2 + 5 &"]C：R[-1]C，""作弊""）+COUNTIF（R["& -Num2 + 5 &"]C：R[-1]C，""補(bǔ)缺""）"

Next

Num2 = Tk.Sheets（1）.Range（"b5"）.CurrentRegion.Rows.Count

Num3 = Tk.Sheets（1）.Range（"f4"）.CurrentRegion.Columns.Count

For X = 5 To Num2 - 2

For Y = 6 To Num3

If Cells（X，Y） <>"" Then

If Cells（X，Y） < 60 Or Cells（X，Y） = "缺考" Or Cells（X，Y） = "作弊" Or Cells（X，Y） = "補(bǔ)缺" Then

Cells（X，Y）.Interior.Color = 13551615

End If

End If

Next

Next

Tk.Sheets（1）.Range（"a1"）.CurrentRegion.Select

With Selection

.Borders.Weight = xlThin

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

With Sheet1.Columns.AutoFit

End With

Dim myPath2 As String

Dim FileName2 As StringmyPath2 = "D：＼學(xué)校成績(jī)收集匯總"

FileName2 = Tk.Worksheets（1）.Range（"a5"）.Value

Tk.Worksheets（1）.SaveAs Filename：=myPath2 &"＼"& FileName2 &"班成績(jī)匯總"

Application.ScreenUpdating = True

MsgBox "匯總完成，請(qǐng)查看！"，64，"提示"

End Sub

3.3? 補(bǔ)考統(tǒng)計(jì)模塊

當(dāng)用戶驗(yàn)證成功后，在“成績(jī)收集匯總”表中點(diǎn)擊“一鍵統(tǒng)計(jì)補(bǔ)考”，如圖3所示，系統(tǒng)即運(yùn)行后臺(tái)程序代碼，在匯總的成績(jī)報(bào)告表中，篩選出成績(jī)“小于60”“缺考”“作弊”“補(bǔ)缺”“緩考”的人員及名單及需“補(bǔ)考科目”等相關(guān)信息匯總到“補(bǔ)考統(tǒng)計(jì)”表中。

實(shí)現(xiàn)程序?yàn)椋?/p>

Sub縱向補(bǔ)考便于教務(wù)用（）

DimI

arr=Sheet1.[A1].CurrentRegion

ReDimBRR（1ToUBound（arr）*10，1To8）

ForI=5To（UBound（arr）-2）

Forj=6ToUBound（arr，2）

Ifarr（I，3）<>""Then

Ifarr（I，j）<60Orarr（I，j）="缺考"Orarr（I，j）="作弊"Orarr（I，j）= "補(bǔ)缺"Orarr（I，j）="緩考"Then

K=K+1

BRR（K，1）=arr（I，1）

BRR（K，2）=arr（I，2）

BRR（K，3）=arr（I，3）

BRR（K，4）=arr（4，j）

BRR（K，5）=arr（I，j）

BRR（K，6）=arr（3，j）

BRR（K，7）=arr（1，j）

BRR（K，8）=arr（2，j）

EndIf

EndIf

Next

Next

Sheet2.[A2].CurrentRegion.Offset（1）.ClearContents

Sheet2.[A2].Resize（UBound（BRR），8）=BRR

Sheet2.UsedRange.Borders.LineStyle=xlNone

Sheet2.UsedRange.SpecialCells（xlCellTypeConstants，3）.Borders.LineStyle=xlContinuous

WithSheet2

.[a1：h1]=Array（"班級(jí)"，"學(xué)號(hào)"，"姓名"，"補(bǔ)考科目"，"成績(jī)"，"任課教師"，"學(xué)期"，"考試類別"）

.Columns（"a：h"）.AutoFit

EndWith

EndSub

4? 系統(tǒng)主要功能

4.1? 成績(jī)報(bào)告單規(guī)范化

通過(guò)設(shè)計(jì)統(tǒng)一的成績(jī)報(bào)告單，使過(guò)去老師們報(bào)告成績(jī)格式不統(tǒng)一的情況得以完全改善，成績(jī)報(bào)告單設(shè)置了工作表保護(hù)，任課教師不能隨意更改學(xué)生等信息，填入報(bào)告單的數(shù)據(jù)也只能按照設(shè)置統(tǒng)一格式填寫(xiě)，這樣就規(guī)范了成績(jī)數(shù)據(jù)。

4.2? 成績(jī)自動(dòng)收集匯總功能

考試結(jié)束后，班主任向老師們收集各班的各科成績(jī)后，報(bào)給教務(wù)員，教務(wù)員一鍵即可生成各班的成績(jī)匯總表，自動(dòng)匯總、自動(dòng)排名、一鍵打印。

4.3? 補(bǔ)考統(tǒng)計(jì)功能

過(guò)去補(bǔ)考統(tǒng)計(jì)也是一項(xiàng)復(fù)雜的工作，使用該系統(tǒng)后，教務(wù)員可一鍵統(tǒng)計(jì)出各班各同學(xué)的補(bǔ)考科目，真正實(shí)現(xiàn)辦公自動(dòng)化。

5? 結(jié)? 論

研究環(huán)境以Excel 2010為平臺(tái)，利用VBA編程語(yǔ)言，開(kāi)發(fā)出成績(jī)管理系統(tǒng)，能適用于各中小型規(guī)模學(xué)校，一方面能大大減輕教務(wù)處工作人員的工作量。經(jīng)驗(yàn)證，過(guò)去需要10多位老師加班五六天的工作量，使用該系統(tǒng)后，只需要教務(wù)員1人加班三個(gè)小時(shí)左右即可完成全部成績(jī)匯總和補(bǔ)考統(tǒng)計(jì)工作。此外，由于VBA編程語(yǔ)言的普適性，系統(tǒng)的可移植性也非常高，稍做修改就可改為其他類似的管理系統(tǒng)。

由于筆者的技術(shù)水平有限，該系統(tǒng)基于Excel 2010采用VBA編程開(kāi)發(fā)，沒(méi)有考慮在線收集成績(jī)的功能，所以還需要人工點(diǎn)選收集匯總。最新版本Office或WPS網(wǎng)絡(luò)功能得以增強(qiáng)，后續(xù)可以在網(wǎng)絡(luò)功能開(kāi)發(fā)上進(jìn)一步開(kāi)發(fā)，就可以設(shè)計(jì)出適應(yīng)其他學(xué)校需要的成績(jī)管理系統(tǒng)。

參考文獻(xiàn)：

[1] Excel Home.Excel 2007 VBA實(shí)戰(zhàn)技巧精粹 [M].北京：人民郵電出版社，2013.

[2] Excel Home.別怕，Excel VBA其實(shí)很簡(jiǎn)單：第1版 [M].北京：人民郵電出版社，2012.

[3] 郭剛.Excel VBA入門與應(yīng)用典型實(shí)例 [M].北京：北京希望電子出版社，科學(xué)出版社，2009.

[4] 王鴻儒.Excel VBA程序設(shè)計(jì) [M].北京：中國(guó)鐵道出版社，2005.

[5] 魏汪洋.從零開(kāi)始學(xué)Excel VBA：第2版 [M].北京：電子工業(yè)出版社，2014.

[6] 伍遠(yuǎn)高.Excel VBA編程實(shí)戰(zhàn)寶典 [M].北京：清華大學(xué)出版社，2014.

[7] 李政，王月，鄭月鋒，等.VBA應(yīng)用基礎(chǔ)與實(shí)例教程：第2版 [M].北京：國(guó)防工業(yè)出版社，2009.

[8] 張峋.Excel VBA入門與典型實(shí)例 [M].北京：清華大學(xué)出版社，2007.

[9] 李洋.Excel函數(shù)、圖表與數(shù)據(jù)分析應(yīng)用實(shí)例 [M].北京：清華大學(xué)出版社，2007.

作者簡(jiǎn)介：楊發(fā)友（1985.09—），男，漢族，云南賓川人，實(shí)驗(yàn)師，本科，研究方向：網(wǎng)絡(luò)與信息安全;曹瀚天（1984.10—），男，漢族，云南祿豐人，講師，本科，研究方向：電氣工程;黃恩相（1970.12—），男，漢族，云南梁河人，高級(jí)實(shí)驗(yàn)師，本科，研究方向：電氣工程及自動(dòng)化;張光福（1979.06—），男，漢族，云南雙江人，經(jīng)濟(jì)師，本科，研究方向：高校內(nèi)控及信息化;鐵衛(wèi)華（1975.12—），男，漢族，云南賓川人，高校講師，在職研究生，研究方向：電氣工程及計(jì)算機(jī)。