Excel VBA員工管理系統(tǒng)開(kāi)發(fā)

Excel VBA員工管理系統(tǒng)開(kāi)發(fā)

“什么？才學(xué)了點(diǎn)皮毛就可以開(kāi)發(fā)系統(tǒng)了？”我想您讀到這兒，看到本篇的題目，一定會(huì)感到非常疑惑。

如果您仔細(xì)體會(huì)了前面的小短文內(nèi)容，就可以開(kāi)始著手來(lái)試著做一些有趣的事情了。不錯(cuò)！現(xiàn)在我們就嘗試用已學(xué)到的知識(shí)來(lái)逐步開(kāi)發(fā)一套小系統(tǒng)。為何這么快就可以運(yùn)用VBA來(lái)開(kāi)始實(shí)戰(zhàn)了呢？這就是Excel作為一個(gè)開(kāi)發(fā)平臺(tái)的優(yōu)勢(shì)！

系統(tǒng)初步規(guī)劃

員工管理系統(tǒng)的初步構(gòu)想是：

員工按表格要求填寫(xiě)相應(yīng)的信息。

自動(dòng)匯總員工所填寫(xiě)的信息。

查詢(xún)某員工的信息。

查詢(xún)某員工的信息并能夠自動(dòng)顯示在員工信息表中，方便打印輸出。

分析員工的信息，例如畢業(yè)5年的員工有多少、具備高級(jí)職稱(chēng)的員工有多少。

其他一些擴(kuò)展功能。（暫時(shí)未想到，根據(jù)需要擴(kuò)展）

表格設(shè)計(jì)

根據(jù)初步構(gòu)想，先在Excel中設(shè)計(jì)兩個(gè)工作表。

“員工基本信息表”：便于員工填寫(xiě)信息。

“員工信息數(shù)據(jù)庫(kù)”：匯總員工填寫(xiě)的信息。

工作表初步設(shè)計(jì)如下圖所示：

其中，“員工信息數(shù)據(jù)庫(kù)”表實(shí)際上是將“員工基本信息表”中所填寫(xiě)的數(shù)據(jù)按數(shù)據(jù)庫(kù)記錄格式匯總到一張表中。

代碼

下面的代碼實(shí)現(xiàn)將“員工基本信息表”中填寫(xiě)的數(shù)據(jù)寫(xiě)入到“員工信息數(shù)據(jù)庫(kù)”中：

Sub TotalData()

Dim wksInfo As Worksheet

Dim wksBaseInfo As Worksheet

‘給wksInfo變量賦值

Set wksInfo = ThisWorkbook.Worksheets(“員工信息數(shù)據(jù)庫(kù)”)

Set wksBaseInfo = ThisWorkbook.Worksheets(“員工基本信息表”)

With wksInfo

.Range(“A2”).Value = wksBaseInfo.Range(“B2”).Value

.Range(“B2”).Value = wksBaseInfo.Range(“F2”).Value

.Range(“C2”).Value = wksBaseInfo.Range(“B3”).Value

.Range(“D2”).Value = wksBaseInfo.Range(“D3”).Value

.Range(“E2”).Value = wksBaseInfo.Range(“F3”).Value

.Range(“F2”).Value = wksBaseInfo.Range(“B4”).Value

.Range(“G2”).Value = wksBaseInfo.Range(“D4”).Value

.Range(“H2”).Value = wksBaseInfo.Range(“F4”).Value

.Range(“I2”).Value = wksBaseInfo.Range(“B5”).Value

.Range(“J2”).Value = wksBaseInfo.Range(“F5”).Value

.Range(“K2”).Value = wksBaseInfo.Range(“B6”).Value

.Range(“L2”).Value = wksBaseInfo.Range(“D6”).Value

.Range(“M2”).Value = wksBaseInfo.Range(“F6”).Value

.Range(“N2”).Value = wksBaseInfo.Range(“B7”).Value

.Range(“O2”).Value = wksBaseInfo.Range(“F7”).Value

.Range(“P2”).Value = wksBaseInfo.Range(“B8”).Value

.Range(“Q2”).Value =wksBaseInfo.Range(“D8”).Value

.Range(“R2”).Value = wksBaseInfo.Range(“F8”).Value

.Range(“S2”).Value = wksBaseInfo.Range(“B9”).Value

.Range(“T2”).Value = wksBaseInfo.Range(“D9”).Value

.Range(“U2”).Value = wksBaseInfo.Range(“F9”).Value

.Range(“V2”).Value = wksBaseInfo.Range(“B10”).Value

.Range(“W2”).Value = wksBaseInfo.Range(“B11”).Value

.Range(“X2”).Value = wksBaseInfo.Range(“B12”).Value

End With

End Sub

代碼很簡(jiǎn)單，用到的都是前面我們學(xué)到的知識(shí)。在”員工基本信息表”中填寫(xiě)相應(yīng)的數(shù)據(jù)，運(yùn)行上面的代碼，可以看到數(shù)據(jù)會(huì)自動(dòng)填充到”員工信息數(shù)據(jù)庫(kù)”的第二行中。

這里的代碼只是機(jī)械地將一個(gè)表中的數(shù)據(jù)復(fù)制到另一個(gè)表中相應(yīng)的單元格，并且只能實(shí)現(xiàn)填充固定一行的數(shù)據(jù)。

接下來(lái)，我們邊進(jìn)一步學(xué)習(xí)，邊完善我們的系統(tǒng)，使系統(tǒng)逐漸靈活方便起來(lái)。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。