基于Excel VBA的教師基本信息管理系統(tǒng)設(shè)計

唐婷

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

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

中圖分類號：TP317.7 文獻標識碼：A 文章編號：1672-3791（2015）04（c）-0030-02

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

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

1 VBA簡介及設(shè)計

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

1.1 功能設(shè)計

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

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

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

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

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

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

1.2 界面設(shè)計以及關(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（"教師姓名重復！"， 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é)語

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

參考文獻

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

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

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

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

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

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