唐婷

摘 要：該文以教師較為熟悉的excel環(huán)境為背景，利用VBA進(jìn)行二次開(kāi)發(fā)，設(shè)計(jì)了一個(gè)基于Excel VBA的教師基本信息管理系統(tǒng)，將教師信息進(jìn)行統(tǒng)一規(guī)范的錄入，改善重復(fù)性操作轉(zhuǎn)換為自動(dòng)化實(shí)現(xiàn)，大大提高了工作效率，方便管理人員修改、查詢、填表、提交信息等一系列人事管理工作。

關(guān)鍵詞：excel vba 教師基本信息管理系統(tǒng)

中圖分類(lèi)號(hào)：TP317.7 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1672-3791（2015）04（c）-0030-02

在學(xué)院的系部管理中，有重要的一項(xiàng)管理就是教師師資力量的管理，一個(gè)隊(duì)伍的師資力量體現(xiàn)了教學(xué)的水平和實(shí)力，系部應(yīng)對(duì)該系所有教師的基本信息進(jìn)行統(tǒng)一管理并存檔。教師的基本信息繁多復(fù)雜，并且隨時(shí)需要添加新信息，在工作中經(jīng)常需要填寫(xiě)各種表格提交給上級(jí)單位，進(jìn)行教學(xué)評(píng)估、職稱(chēng)評(píng)定、爭(zhēng)優(yōu)選取等教學(xué)活動(dòng)。有時(shí)還需要對(duì)教師的基本信息進(jìn)行查詢和統(tǒng)計(jì)，比如說(shuō)統(tǒng)計(jì)教職工人數(shù)、性別、年齡、學(xué)歷、職稱(chēng)分布的情況等數(shù)據(jù)信息，以便給各種教研報(bào)告提供有效的數(shù)據(jù)。為方便系部統(tǒng)一有效的管理教師信息，利用Excel VBA的控件功能和編程技巧，將數(shù)據(jù)有效存入Excel表格中，為查詢、統(tǒng)計(jì)、生成可用表單提供基礎(chǔ)的數(shù)據(jù)，從而建立教師基本信息管理系統(tǒng)，提高管理工作效率。

教師基本信息管理系統(tǒng)適用于系部對(duì)教師信息的收集與管理，按照傳統(tǒng)的方式是在每一次需要提交教師基本信息時(shí)，由教師自己填表提交給系部，再由系部核實(shí)校正，制作成規(guī)范格式的表格送交到學(xué)院。為改變傳統(tǒng)模式，提高工作效能，建立有效的管理系統(tǒng)對(duì)教師信息進(jìn)行統(tǒng)一管理，全面掌握教師基本情況，在需要提供教師的各種基本信息時(shí)，可通過(guò)管理系統(tǒng)查詢并制成規(guī)范格式的表格進(jìn)行提交，避免每一次由教師填表時(shí)出現(xiàn)信息不統(tǒng)一或錯(cuò)誤填寫(xiě)的后果，減少管理人員的工作量和教師填表的重復(fù)勞動(dòng)，提高正確率和工作效率，實(shí)現(xiàn)現(xiàn)代化的科學(xué)管理。

1 VBA簡(jiǎn)介及設(shè)計(jì)

Vba，是visual basic FOR APPLICATION的縮寫(xiě)，是OFFICE辦公軟件內(nèi)嵌的編程語(yǔ)言。Vba采用visual basic的語(yǔ)言和面向?qū)ο蠹夹g(shù)，實(shí)現(xiàn)用戶定制化的技術(shù)，通過(guò)編程控制這些功能強(qiáng)大的軟件，從而發(fā)揮更強(qiáng)大的功能。Vba語(yǔ)言結(jié)構(gòu)簡(jiǎn)單，便于學(xué)習(xí)和設(shè)計(jì)出有效的功能系統(tǒng)。

1.1 功能設(shè)計(jì)

系統(tǒng)主要功能設(shè)計(jì)實(shí)現(xiàn)了四個(gè)大方面的功能：教師基本信息的錄入、教師信息查詢、教師信息統(tǒng)計(jì)和教師基本信息提交表與打印。

教師基本信息的錄入主要實(shí)現(xiàn)按編號(hào)進(jìn)行教師信息的錄入過(guò)程，如果在錄入完成后發(fā)現(xiàn)信息出現(xiàn)錯(cuò)誤，可通過(guò)修改功能進(jìn)行修改信息并再次保存信息?！敖處熁拘畔⑶闆r”表結(jié)構(gòu)中的字段名稱(chēng)如下：

編號(hào)、姓名、性別、民族、政治面貌、身份證號(hào)碼、出生年月、籍貫、工作單位、參加工作時(shí)間、身體狀況、黨政職務(wù)、最后學(xué)歷、畢業(yè)時(shí)間及畢業(yè)院校和專(zhuān)業(yè)、學(xué)位、何時(shí)任現(xiàn)專(zhuān)業(yè)技術(shù)職務(wù)（職稱(chēng)）、基礎(chǔ)工資（元）、懂何種外語(yǔ)及熟練程度、主要簡(jiǎn)歷、主要專(zhuān)業(yè)技術(shù)工作成績(jī)、撰寫(xiě)論文情況學(xué)習(xí)、進(jìn)修情況、受獎(jiǎng)情況、科研項(xiàng)目。

教師信息查詢功能主要實(shí)現(xiàn)按教師姓名進(jìn)行查詢，查詢到的內(nèi)容以一條記錄按行顯示，可查詢多條教師記錄，查詢表結(jié)構(gòu)中的字段名稱(chēng)與教師基本信息情況表中的字段名稱(chēng)一樣。查詢結(jié)束后可清楚查詢內(nèi)容，便于下一次的查詢。

教師信息統(tǒng)計(jì)功能主要實(shí)現(xiàn)按性別、年齡、學(xué)歷、工資等統(tǒng)計(jì)條件進(jìn)行單項(xiàng)統(tǒng)計(jì)，或者根據(jù)多項(xiàng)條件進(jìn)行綜合統(tǒng)計(jì)教師的人數(shù)并顯示姓名等功能。性別字段分為男、女；年齡字段分為20至30歲、31至40歲、41至50歲、50歲以上；學(xué)歷字段分為大專(zhuān)、本科、碩士、博士；工資字段分為2000以下、2000到3000之間、3000到4000之間、4000以上；職稱(chēng)字段分為助教、講師、副教授、教授。

教師基本信息提交表與打印功能主要實(shí)現(xiàn)按所選字段或特定表格填寫(xiě)教師信息，生成excel表格或轉(zhuǎn)換為word表格，便于提交給上級(jí)部門(mén)以及打印出來(lái)生成教師資料。信息提交表中的字段與教師基本信息情況表中的字段名稱(chēng)一樣，在實(shí)際操作中可以選擇字段項(xiàng)。

1.2 界面設(shè)計(jì)以及關(guān)鍵代碼

關(guān)鍵代碼：

Sub getonerecord（）

Dim msgboxrst As VbMsgBoxResult

Dim count As Integer

count = 0

Range（"A3"）.Select

Do Until Selection.Offset（count， 1）.Value = ""

If UserForm1.TextBox1.Text = Selection.Offset（count， 1）.Value Then

msgboxrst = MsgBox（"教師姓名重復(fù)！"， vbOKOnly & vbInformation， "提示"）

Exit Sub

End If

count = count + 1

Loop

lie1 = 0

With UserForm1

lie2 = .TextBox1.Text

lie3 = .ComboBox1.Text

lie4 = .TextBox3.Text

lie5 = .TextBox4.Text

lie6 = .TextBox17.Text

lie7 = .TextBox20.Text

lie8 = .TextBox2.Text

lie9 = .TextBox5.Text

lie10 = .TextBox18.Text

lie11 = .TextBox19.Text

lie12 = .TextBox6.Text

lie13 = .TextBox7.Text

lie14 = .TextBox8.Text

lie15 = .TextBox9.Text

lie16 = .TextBox10.Text

lie17 = .TextBox11.Text

lie18 = .TextBox12.Text

lie19 = .TextBox13.Text

lie20 = .TextBox14.Text

lie21 = .TextBox15.Text

lie22 = .TextBox16.Text

lie23 = .TextBox21.Text

End With

count = 0

Range（"A3"）.Select

Do Until Selection.Offset（count， 0）.Value = ""

count = count + 1

Loop

Selection.Offset（count， 0）.Value = count + 1

Selection.Offset（count， 1）.Value = lie2

Selection.Offset（count， 2）.Value = lie3

Selection.Offset（count， 3）.Value = lie4

Selection.Offset（count， 4）.Value = lie5

Selection.Offset（count， 5）.Value = lie6

Selection.Offset（count， 6）.Value = lie7

Selection.Offset（count， 7）.Value = lie8

Selection.Offset（count， 8）.Value = lie9

Selection.Offset（count， 9）.Value = lie10

Selection.Offset（count， 10）.Value = lie11

Selection.Offset（count， 11）.Value = lie12

Selection.Offset（count， 12）.Value = lie13

Selection.Offset（count， 13）.Value = lie14

Selection.Offset（count， 14）.Value = lie15

Selection.Offset（count， 15）.Value = lie16

Selection.Offset（count， 16）.Value = lie17

Selection.Offset（count， 17）.Value = lie18

Selection.Offset（count， 18）.Value = lie19

Selection.Offset（count， 19）.Value = lie20

Selection.Offset（count， 20）.Value = lie21

Selection.Offset（count， 21）.Value = lie22

Selection.Offset（count， 22）.Value = lie23

Selection.Offset（count， 23）.Value = lie24

Call initemvar

Call qingkong

End Sub

Sub uploadpic（）

Dim mypath As String

With UserForm3

mypath = .TextBox1.Text

lie24 = .TextBox1.Text

End With

Dim w As Integer

Dim h As Integer

w = 0

h = 0

With UserForm1

w = .Image1.Width

h = .Image1.Height

.Image1.Visible = False

.Image1.Picture = LoadPicture（mypath）

.Image1.AutoSize = True

.Image1.Width = w

.Image1.Height = h

.Image1.Visible = True

End With

End Sub

2 結(jié)語(yǔ)

Office是一個(gè)非常強(qiáng)大的辦公系統(tǒng)，為我們的辦公自動(dòng)化帶來(lái)了很大的便利，但是即使你熟悉的掌握了所有的操作技能也只是掌握了office的90%的功能，剩余的10% 的功能就是靠VBA的實(shí)現(xiàn)，并把前面的90%的功能進(jìn)行無(wú)限擴(kuò)展可能。該系統(tǒng)就是利用VBA對(duì)現(xiàn)有office進(jìn)行功能擴(kuò)展，保留了office的操作習(xí)慣，能使熟悉office操作的人員最短時(shí)間掌握和使用。

參考文獻(xiàn)

[1] 劉增杰，王英英.excel 2010 vba入門(mén)與實(shí)戰(zhàn)[M].北京：清華大學(xué)出版社，2012.

[2] 王川，軟興平，于平創(chuàng)，等.中文版Office2000 VBA一冊(cè)通[M].北京：人民郵電出版社，2000：92-160.

[3] 云舟工作室.中文版Word2000 VBA一冊(cè)通[M].北京：人民郵電出版社，2000：110-180.

[4] 李文江.VBA在powerpoint課件中的應(yīng)用[J].重慶文理學(xué)院學(xué)報(bào)：自然科學(xué)版，2006，5（1）：27-29.

[5] Jelen B，Syrstad T著.郭兵英譯.EXCEL 2007 VBA與宏完全剖析[M].北京：人民郵電出版社，2008.

[6] 格林著.Execel Home譯.Excel2007參考大全[M].北京：人民郵電出版社，2009.