Office2007實(shí)驗(yàn)指導(dǎo)-員工信息查詢系統(tǒng)

Office2007實(shí)驗(yàn)指導(dǎo)—員工信息查詢系統(tǒng)在日常生活中，工作人員可能經(jīng)常用到身份證查詢系統(tǒng)，火車票查詢系統(tǒng)等，本例中的“員工信息查詢系統(tǒng)”表單主要是記錄公司員工的基本檔案信息，并通過(guò)員工姓名實(shí)現(xiàn)查詢功能的一個(gè)系統(tǒng)。下面我們將利用Excel2007中VBA編程和宏功能，制作一個(gè)員工查詢界面表單，進(jìn)行查詢員工基本信息以及退出檔案管理系統(tǒng)。於工忙盛齊溝幣.選 區(qū)員工基本檔案笞理系■皖.電工福*|q .電工趙士|中"I枚斛另年舒1r阿息部11知A公司時(shí)間|MOXTU學(xué)廝|13?37?5&L23一1退出1．實(shí)驗(yàn)?zāi)康膱D8-541．實(shí)驗(yàn)?zāi)康腃OUNTA函數(shù)VBA編程宏2．操作步驟（1）單擊【文本】組中的【藝術(shù)字】COUNTA函數(shù)VBA編程宏2．操作步驟（1）單擊【文本】組中的【藝術(shù)字】一：.壽彳選擇“宇杰汽車銷售有限公司”藝術(shù)字，當(dāng)光標(biāo)變成“四向”箭頭時(shí)，拖提示動(dòng)以調(diào)整藝術(shù)字的位置。下拉按鈕，選擇“填充-無(wú)，輪廓-強(qiáng)調(diào)文字顏色6，發(fā)光-強(qiáng)調(diào)文字顏色6”項(xiàng)，并在藝術(shù)字文本框中，輸入“宇杰汽車銷售有限公司”文字。然后選擇輸入的藝術(shù)字，在【字體】組中，設(shè)置【字體】為“華文新魏”；【字號(hào)】為36，如圖8-54所示。（2）將鼠標(biāo)置于第一行行標(biāo)的邊界處，當(dāng)光標(biāo)變成“單豎線雙向”箭頭時(shí)于，向下拖動(dòng)，如調(diào)整高度顯示為57.00（76像素），如圖8-55所示。圖8-55調(diào)整行高單擊Ofe按鈕，執(zhí)行【另存為】命令，在彈出的【另存為】對(duì)話框中，_輸入【文件名】為“員工信息查詢系提示統(tǒng)”；并保存【文件類型】為“Excel啟用宏的工作簿（*.xlsm）"。（3）重命名工作表Sheetl為“員工基本檔案管理信息”，然后在工作表中的A7至H32單元格區(qū)域中，創(chuàng)建一個(gè)“員工基本檔案管理信息”表格，如圖8-56所示。ACDEfeH171n工*早員工處總地利用齡所處邰門何時(shí)屯入會(huì)可竽國(guó)聯(lián)忝才，1g1而正百里S4幣均都2DO5-7I-E5土干13厘-[]曜國(guó)，口13E手d曲里25在*都EROT-57士營(yíng)13566必就的10S太23帝西部20C-S-12-SS利412213299■LL1許啕現(xiàn)期圈市場(chǎng)部2C-3Y-1-2本料13113195^125希玲支旗市場(chǎng)知2Ci3T-l-2?豐科1311S1'：SMS136等等四a.第市塔那2CO7-5-1Q.豐4T肚王;t玄函市場(chǎng)都21?：'5-13-3本后1峻H煙E13ISe宓'h寧立也企M部2M4-S-9利41365兆的,3遍a申III黑篦市場(chǎng)部綸35^-26廿門兜T站配”M410*H曷工曷訪王禪峰管室管理15，..罵Shant2,街3Q產(chǎn)品陽(yáng)發(fā)部?豐科13369545a2圖8-56創(chuàng)建“員工基本檔案管理信息”表格建立表格時(shí)從A7單元格開(kāi)始創(chuàng)建，即空出開(kāi)頭幾行以方便在空白單元格區(qū)域計(jì)算“目前員工總數(shù)”和按鈕的創(chuàng)建。（4）選擇A列單元格，單擊【數(shù)字】組中的【對(duì)話框啟動(dòng)器】按鈕，彈出【單元格格式】對(duì)話框。然后選擇【特殊】選項(xiàng)卡，在【類型】欄中選擇【郵政編碼】項(xiàng)，單擊【確定】按鈕，即可設(shè)置員工編號(hào)格式，如圖8-57所示。A￡CII￡rHI■ ■員工地一我工■姓不佳劇華掙所能部FITg■4K入妗司1歲扇中式 1Bo￡?om聞韭西我21Iff場(chǎng)以2005-25.：.r愣；」用士.J19灰制儂季寸糧更25空到部E07-5-g■10QDQQ3任麗用女23柏雪部^li]￡-12-25赤「10手對(duì)蕃平區(qū)?用修正01omoiM許明現(xiàn)男Z6幣壇群2007-1-2一一門鼻￡11ZODOOiDS定用珞女26市場(chǎng)部2D07-1-Z一科yy冕12：帕亭舟國(guó)國(guó)21而埼礎(chǔ)2fiO7-E-lCl鈉?:■?■14ODOOtr7J2SIff場(chǎng)部2005-12-3牟利s-Hsffi15(iffiOC?n設(shè)設(shè)置編*25企劃部2Di乳一7自料產(chǎn)J6QDCiOC^1口坨* ,23市場(chǎng)部工&謨L斤2口「千案二等]7ODQOIO口號(hào)格式3㈣ZD立晶用我酰Z0C6-？-23書4SK_中文土耳也和1EflK'Ull夕耐R年.至利現(xiàn)4：利H舉￡JG190DO012丸代廿女21Iff場(chǎng)以空口藺-7g岑科Jrj 手2014WdCKiOlS卜卜?員工堊衰丁利甘藥管里工!一Shrrt2Shaa2t3JK3^jS?創(chuàng)的-緊貂,.■日毛工一L1二叵應(yīng)也a1時(shí)/蠣J工1圖8-57設(shè)置員工編號(hào)格式（5）選擇A7至H7單元格區(qū)域，在【字體】組中單擊【填充顏色】下拉按鈕，并在【主題顏色】欄中，選擇“橙色，強(qiáng)調(diào)文字顏色6,淡色80%”項(xiàng)。然后選擇A8至A32單元格區(qū)域，設(shè)置【填充顏色】為“橄欖色，強(qiáng)調(diào)文字顏色3，淡色80%”，如圖8-58所示。ABa]￡P(guān)dKI .7曲.工*導(dǎo)用工0;范魅男:1不掙斯券部門何時(shí)選:人wq球?qū)?lián)軍■方式0itiOl閶亞西B事市昉部金加5HV5工虧153010^562&OCOOIDE李小泯且25做部20￡f?-E-=i大專ID洶。疏任麗SI玄23銷自部2期匕1支空5本科-U、AAiOCOOC4許電視5526市葩部200^-1-2本科 t 1]Znccii]虎i宋母長(zhǎng)次26市場(chǎng)部Z0P7-1-2本科耳上式_-?加TFL選擇」nCODDEi>"■■:■,■■■■EOQ7-S5-1D一科I-IE-24**;曲觸 \lidocoac?,1L，浦A222Q0E-12-2本利■■■■■V15IJlXiljK：■?5■jMi^gr2001-5-9本科1:工旺區(qū)&::■■■■1]&OCCifii^if■_冷3烹23覆區(qū)300^^0之甘］刈腳口5EJ7neon:[口一一主BW巨產(chǎn)品際金隹陽(yáng)口&,靂本制］號(hào)跖為《色.L…]&OteiuiL■■■■?■■?企劃就3304-2-23本科]￡3ijl'J562321150D0012童獻(xiàn)成市場(chǎng)鵬20Ki-^9本科]S5tiliJ2S65520ODOOIS丁而r選擇廣市后部30。7口V5式專1320103S5B2圖1覆去JL-產(chǎn)品師甘郡陽(yáng)昭一/15?±】“。1口儂塞,■HW卜”：工4!：r；：面爐「一Sh?t2至h?r1『：口1 圖8-58設(shè)置單元格填充顏色（6）選擇第2行至32行單元格區(qū)域，右擊執(zhí)行【行高】命令，彈出【行高】對(duì)話框。然后在【行高】文本框中輸入【行高】值為20，如圖8-59所示。單擊【確定】按鈕。圖8-59設(shè)置行高（7）選擇【開(kāi)發(fā)工具】選項(xiàng)卡，在【控件】組中單擊【插入】下拉按鈕，并在【表單控件】欄中，單擊【按鈕（窗體控件）】按鈕然后在合適單元格區(qū)域（如在C3單元格中繪制）繪制按鈕，釋放鼠標(biāo)后彈出【指定宏】對(duì)話框，并在【宏名】文本框中，輸入“員工查詢”文字，如圖8-60所示。單擊【確定】按鈕。圖8-60繪制“按鈕”控件（8）右擊“按鈕1”控件按鈕，執(zhí)行【編輯文字】命令，光標(biāo)將定位于“按鈕1”控件中，更改名稱為“員工查詢”，如圖8-61所示。圖8-61更改控件名稱（9）運(yùn)用相同的方法在工作表的合適位置制作一個(gè)“退出系統(tǒng)”控件按鈕。然后在H4單元格中輸入“目前員工總數(shù)”文字，設(shè)置【字體】為“隸書”，【字號(hào)】為14，如圖8-62所示。退出生統(tǒng)輸入制作控件何可哧入金』聯(lián)舉方式退出生統(tǒng)輸入制作控件何可哧入金』聯(lián)舉方式退出黑蚯FT時(shí)--,■：,：」,退出黑蚯FT時(shí)--,■：,：」,2三號(hào)l，L!■■■=COUNT(A8:A32)圖8-62制作“退出系統(tǒng)”控件(10)選擇H5單元格，輸入“=COUNTA(A8:A32)”公式，并按Enter鍵，計(jì)算“目前員工總數(shù)”，如圖8-63所示。然后H4和H5單元格，單擊【對(duì)齊方式】組中的【居中】按鈕。圖8-63計(jì)算員工總?cè)藬?shù)(11)為了使表格看上去更美觀，將工作表網(wǎng)格線隱藏。選擇【視圖】選項(xiàng)卡，在【顯示/隱藏】組中禁用【網(wǎng)格線】復(fù)選框，如圖8-64所示。隱藏網(wǎng)工格線,I□網(wǎng)隱藏網(wǎng)工格線,I□網(wǎng)格峙J■昱斡際U前.0工A效bJ，出第藐圖8-64禁用網(wǎng)格線(12)右擊“退出系統(tǒng)”控件按鈕，執(zhí)行【指定宏】命令，彈出【指定宏】對(duì)話框，然后在【宏名】文本框中將自動(dòng)選擇“Bookl!退出系統(tǒng)”宏名，如圖，出第藐圖8-64禁用網(wǎng)格線(12)右擊“退出系統(tǒng)”控件按鈕，執(zhí)行【指定宏】命令，彈出【指定宏】對(duì)話框，然后在【宏名】文本框中將自動(dòng)選擇“Bookl!退出系統(tǒng)”宏名，如圖8-65所示。at見(jiàn)痢卻3QQT-1-2桃1311.^195^52W&-lS-^5本科 1混1硒B河1國(guó)匚型上J程尿才出].3^BKl32560[F?J-i.圖8-65指定宏(13)單擊【指定宏】對(duì)話框中的【新建】按鈕，彈出VB編輯窗口，在窗口輸入“退出系統(tǒng)”代碼，如圖8-66所示。

由卜il出某玩U_.慢件工唧克咒. ，小、1■, 5輸入由卜il出某玩U_.慢件工唧克咒. ，小、1■, 5輸入… ［代碼J.昌工忙電去看福院，門”-枚/，：在聞＞圖8-66輸入“退出系統(tǒng)”代碼其代碼如下：Sub退出系統(tǒng)()ActiveWorkbook.Save’保存工作簿文件ActiveWorkbook.Close‘關(guān)閉工作簿文件EndSub輸入代碼并保存退出VB編輯窗口后，當(dāng)用戶單擊工作表上“退出系統(tǒng)”按鈕時(shí)，將自動(dòng)退出“員工基本檔案管理”工作表。(14)下面我們來(lái)創(chuàng)建“員工信息查詢系統(tǒng)”界面。單擊【代碼】組中的VisualBasic按鈕，彈出VB編輯窗口。然后執(zhí)行【插入】|【用戶窗體】命令，彈出用戶窗體和控件【工具箱】，如圖8-67所示。圖8-67插入用戶窗體(15)選擇用戶窗體，單擊【標(biāo)準(zhǔn)】工具欄上【屬性窗口】按鈕卬，彈出【屬性】窗口。然后將名稱UserForm1更改為Management；#CaptionUserForm1更改為“員工信息查詢系統(tǒng)”文字，如圖8-68所示。圖8-68更改名稱(16)選擇插入的用戶窗體，四周出現(xiàn)8個(gè)控制點(diǎn)，將鼠標(biāo)置于右下角的控制點(diǎn)上，拖動(dòng)以調(diào)整窗體為適當(dāng)大小。然后單擊【工具箱】中的【標(biāo)簽】按鈕“，在“員工信息查詢系統(tǒng)”用戶窗體上繪制一個(gè)“標(biāo)簽”按鈕，如圖8-69所示。

繪制標(biāo)簽按鈕單擊【標(biāo)繪制標(biāo)簽按鈕單擊【標(biāo)簽】按鈕L4t>d]更改名稱A"-qr*i?rH.riierE：?rHiLm-L4t>d]更改名稱A"-qr*i?rH.riierE：?rHiLm-E“明日#圖8-69繪制標(biāo)簽按鈕(17)選擇Labell標(biāo)簽按鈕，在【屬性-Labell】窗口中更改CaptionLabell名稱為“員工工檔案管理系統(tǒng)”，如圖8-70所示。Lvtilll4biL東手毋耳,布“史中|選擇標(biāo)...〔簽按鈕」..圖8-70更改標(biāo)簽名稱(18)選擇【屬性-Label。窗口，在［Font］右側(cè)的【宋體】文本框中單擊按鈕二J,彈,,TlMnMttlMmMtil::第, ? ',1 H .-X--..工....1..口茴工安里再詢蔡陟出【字體】對(duì)話框，設(shè)置【字體】格式，如圖8-71所示。單擊【確定】按鈕后，調(diào)整“員;粗大手拈工lirdwE-ijID-W-JI工■才工基本檔案管理系統(tǒng)”標(biāo)簽位置至合適位置。宇由雨儂crarraj-KHZ;粗大手拈工lirdwE-ijID-W-JI工■才工基本檔案管理系統(tǒng)”標(biāo)簽位置至合適位置。宇由雨儂crarraj-KHZ設(shè)置字體本件0Sfl-舸tiji:wSi-圖8-71設(shè)置標(biāo)簽字體格式(19)單擊【工具箱】中的【框架】按鈕■,并用戶窗體中創(chuàng)建一個(gè)框架區(qū)域。然后在【屬性-Framel】窗口中將CaptionFramel更改為“項(xiàng)目?jī)?nèi)容”文字，并設(shè)置【字體】為“隸書”；【字號(hào)】為“小四”，如圖8-72所示。麗員工基本檔案爸理系藐;「更改文字:1麗員工基本檔案爸理系藐;「更改文字:1并設(shè)置格圖8-72創(chuàng)建框架(20)在框架“項(xiàng)目?jī)?nèi)容”區(qū)域中添加8個(gè)“標(biāo)簽”控件按鈕，設(shè)置【字體】為“楷體_GB2312”【字號(hào)】為“小四”，分別將Caption依次重命名為“員工編號(hào)”、“員工姓名”、“性別”、“年齡”、“所屬部門”、“加入公司時(shí)間”、“學(xué)歷”和“手機(jī)號(hào)碼”，如圖8-73所示。。圖8-73添加“標(biāo)簽”控件按鈕(21)單擊【工具箱】中的【文本框】按鈕■,在窗體的各個(gè)項(xiàng)目的右側(cè)添加8個(gè)“文本框”控件按鈕，并調(diào)整位置，如圖8-74所示。然后分別選擇8個(gè)“文本框”按鈕，設(shè)置【字體】為“楷體GB2312”。圖8-74添加“文本框”控件按鈕(22)單擊【工具箱】中的【命令按鈕】按鈕上，分別創(chuàng)建3個(gè)“命令按鈕”控件，將Caption分別更改為“清空”、“查詢”、和“退出”文字；并設(shè)置文字【字體】為“華文新魏”，【字號(hào)】為“三號(hào)”，如圖8-75所示。圖8-75添加“命令按鈕”控件(23)保存VB用戶窗體并返回“員工信息查詢系統(tǒng)”工作表中，右擊“員工查詢”按鈕，執(zhí)行【指定宏】命令。然后在彈出【指定宏】對(duì)話框，單擊【新建】按鈕，彈出“VisualBasic編輯器”窗口，輸入“員工查詢”代碼，如圖8-76所示。

:?員工嗚層超詢塾輪?Ge應(yīng)瓦鄴：圖/X3IA1M■^fijailu-liUB4MarilZtrM.?擊按用,引言修出EmilynL…又輸入

d弋無(wú)碼小，1|圖8-76輸入“員工查詢”代碼其代碼如下：Sub員工查詢()Management.Show’單擊按鈕,則會(huì)彈出窗口MangementEndSub(24)下面對(duì)“員工信息查詢系統(tǒng)”用戶窗體中的按鈕進(jìn)行編程。雙擊用戶窗體中的“清其代碼如下：PrivateSubCommandButton1_Click()TextBoxl.Value=""將文本框賦于空TextBox2.Value=""TextBox3.Value=""TextBox4.Value=""TextBox5.Value=""TextBox6.Value=""TextBox7.Value=""TextBox8.Value=""EndSub在【工程-VBA-Project】窗口中的【窗體】列表框中，雙擊Management按鈕，可調(diào)出窗體編輯窗口。(25)雙擊用戶窗體中的“查詢”按鈕，然后在彈出的在【工程-VBA-Project】窗口中的【窗體】列表框中，雙擊Management按鈕，可調(diào)出窗體編輯窗口。IZ!叵“恒0hVakil.It誦IZ!叵“恒0hVakil.It誦GU小也￡1PfJ=TikL"YU，mOf■=i1E%ni左心Lb同第7&La。01”口n.r.Mx進(jìn)區(qū)d.YJwi=Ddlii國(guó)D.Vdwi，昌工歸忠去力需娓,工1..-E&n.&￡e?en.t展?jié)橨圖8-78輸入“查詢”代碼其代碼如下：PrivateSubCommandButton2_Click()DimdAsLong‘定義一個(gè)長(zhǎng)整型變量dDimeAsInteger‘定義一個(gè)整型變量eIfTextBox2.Value=""Then如果文本框2為空MsgBox"請(qǐng)輸入員工的姓名進(jìn)行查詢!，vbOKOnly‘單擊"查詢”按鈕后，系統(tǒng)提示輸入員工姓名后再查詢ExitSubEndIfSheets("員工基本檔案管理信息").Select‘激活”員工基本檔案管理信息”工作表d=32Do