一種VBA制作的EXCEL工資條解決方案

魏 里，鄧大治

（1.河南醫(yī)學(xué)高等專(zhuān)科學(xué)校，河南 鄭州 451191；2.河南工程學(xué)院，河南 鄭州 451191）

1 概述

當(dāng)今時(shí)代是信息大爆炸時(shí)代，誰(shuí)掌握了信息誰(shuí)就能預(yù)測(cè)與擁有未來(lái)。信息技術(shù)包含三大部分：一是通信技術(shù)；二是網(wǎng)絡(luò)技術(shù)；三是計(jì)算機(jī)技術(shù)。其中計(jì)算機(jī)技術(shù)作為信息時(shí)代的關(guān)鍵技術(shù)，越來(lái)越發(fā)揮著關(guān)鍵作用。尤其在2018 年中華人民共和國(guó)教育部提出的教育信息化2.0 的背景下，教育信息化又再次得到大幅升級(jí)，全國(guó)各大中專(zhuān)院校積極響應(yīng)教育部號(hào)召，加大計(jì)算機(jī)學(xué)科及計(jì)算機(jī)相關(guān)學(xué)科支持力度。計(jì)算機(jī)專(zhuān)業(yè)幾乎成了我國(guó)每個(gè)大專(zhuān)中院校的標(biāo)配，即便是非計(jì)算機(jī)專(zhuān)業(yè)，計(jì)算機(jī)應(yīng)用與人工智能科目也成了一種必修課。計(jì)算機(jī)應(yīng)用能力也成了用人單位對(duì)大學(xué)畢業(yè)生考查的一個(gè)重要技能選項(xiàng)。國(guó)家為了鼓勵(lì)與檢測(cè)當(dāng)代大學(xué)生的計(jì)算機(jī)應(yīng)用水平，特別組織了全國(guó)計(jì)算機(jī)等級(jí)考試（National Computer Rank Examination，簡(jiǎn)稱(chēng)NCRE），考試共有一、二、三、四4 種級(jí)別，每個(gè)級(jí)別又有不同考試選項(xiàng)。對(duì)于非計(jì)算機(jī)專(zhuān)業(yè)的學(xué)生來(lái)講，選擇計(jì)算機(jī)二級(jí)之MS OFFICE 高級(jí)應(yīng)用的人數(shù)最多，MS OFFICE考查文字處理、電子表格、演示文稿的綜合運(yùn)用能力，雖然這三個(gè)組件很多考生早有接觸，但是MS OFFICE 高級(jí)應(yīng)用的通過(guò)率還是很低，全國(guó)的通過(guò)率在19%左右。而筆者所在的院校為專(zhuān)科院校，考生的通過(guò)率更低。本文就計(jì)算機(jī)二級(jí)之MS OFFICE高級(jí)應(yīng)用中的難點(diǎn)：利用EXCEL制作工資條的問(wèn)題進(jìn)行總結(jié)與探討。

2 VBA 簡(jiǎn)介

計(jì)算機(jī)有很多編程語(yǔ)言，比如說(shuō)C 語(yǔ)言，C++語(yǔ)言，C# 語(yǔ)言，JAVA 語(yǔ)言，PYTHON 語(yǔ)言等，那么在OFFICE 中，書(shū)寫(xiě)宏（一串可以控制和操作Excel 的代碼）代碼的語(yǔ)言，我們稱(chēng)之為VBA 語(yǔ)言。從專(zhuān)業(yè)角度來(lái)說(shuō)，VBA 就是Visual Basic For Application 的縮寫(xiě)，這種語(yǔ)言是微軟公司開(kāi)發(fā)的，鑲嵌在OFFICE 中的一種應(yīng)用程序開(kāi)發(fā)工具。VBA 是為了擴(kuò)展EXCEL 的功能而存在的，通過(guò)它可以實(shí)現(xiàn)人機(jī)交互、打造屬于自己的管理系統(tǒng)，它可以幫助用戶完成EXCEL 基礎(chǔ)功能無(wú)法實(shí)現(xiàn)的任務(wù)。要想熟練使用代碼來(lái)控制與操作EXCEL，必須要熟練掌握VBA 這門(mén)編程語(yǔ)言，將自己的意圖通過(guò)VBA 來(lái)告訴EXCEL。VBA 對(duì)于非計(jì)算機(jī)專(zhuān)業(yè)的考生來(lái)說(shuō)看似遙遠(yuǎn)，但是并不陌生，在EXCEL 中使用宏錄制器錄制的宏其實(shí)就是一個(gè)VBA 程序。既然宏就是VBA 程序，那么宏保存在哪里，就可以將VBA 程序?qū)懺谀睦?。調(diào)出【宏】對(duì)話框，在【宏名】列表中選中宏的名稱(chēng)，單擊對(duì)話框中的【編輯】按鈕，即可看到錄制的宏代碼。

3 工資條制作在計(jì)算機(jī)二級(jí)中的問(wèn)題描述

在未來(lái)教育的計(jì)算機(jī)二級(jí)考試系統(tǒng)中新增題庫(kù)第一套，就是一道關(guān)于工資條制作的問(wèn)題，描述如下：

某家公司在每年的年終，都會(huì)按照慣例給員工發(fā)放年終獎(jiǎng)金，公司的會(huì)計(jì)負(fù)責(zé)統(tǒng)計(jì)工資獎(jiǎng)金的個(gè)人所得稅的計(jì)算工作并為公司的每位員工制作一個(gè)工資條。要求考生按照題目的要求完成每位員工的獎(jiǎng)金及個(gè)稅的計(jì)算并為每位員工發(fā)送一個(gè)工資條。第一問(wèn)題是要求考生在考生文件內(nèi)把現(xiàn)有的EXCEL 素材文檔另存為考生文件夾內(nèi)，并更名為EXCEL；第二個(gè)問(wèn)題是打開(kāi)EXCEL 文件后在該文件中插入一個(gè)工作表并把該工作表移至文件的最左側(cè)，把該工作表更名為“員工基礎(chǔ)檔案”，并把該工作表的標(biāo)簽更改為標(biāo)準(zhǔn)紅色；第三個(gè)問(wèn)題是把題目給出的“員工基礎(chǔ)檔案”CSV 文件導(dǎo)入到“員工基礎(chǔ)檔案”工作表中，從A1 單元格開(kāi)始導(dǎo)入。其中第一列包含了“工號(hào)”與“姓名”信息，讓考生把此列內(nèi)容分成兩列顯示。把工資列的數(shù)據(jù)格式調(diào)整為會(huì)計(jì)專(zhuān)用，對(duì)所有行與列適當(dāng)調(diào)整行高與列寬，最后創(chuàng)建一個(gè)名為“檔案”的表，此表包含數(shù)據(jù)區(qū)域A1:N102，并把此表與外部的鏈接刪除；第四個(gè)問(wèn)題是在“員工基礎(chǔ)檔案”工作表中，利用公式與函數(shù)計(jì)算每個(gè)員工的性別與出生日期，并把出生日期更改為“XXXX 年XX 月XX 日”的格式，每位員工的截止年齡為2015 年9 月30 日，并計(jì)算每位員工的工齡工資，基本工資，其中年齡按周歲計(jì)算，滿1年才記1 歲，1 年無(wú)論平閏年都按360 天算。工齡工資為滿30 年的每年加50 元，滿10 年不滿30 年的每年加30 元，不滿10 年的每年加20 元。第五個(gè)問(wèn)題是參照“員工基礎(chǔ)檔案”表，在工作表“年終獎(jiǎng)金”中輸入工號(hào)對(duì)應(yīng)的每個(gè)員工的姓名、部門(mén)、月基本工資，并按年工資的15%計(jì)算每個(gè)員工的年終獎(jiǎng)。第六個(gè)問(wèn)題是在“年終獎(jiǎng)金”工作表中根據(jù)“個(gè)人所得稅稅率”工作表中的信息求出每個(gè)員工年終獎(jiǎng)金的應(yīng)繳所得稅，其中計(jì)稅方法是①年終獎(jiǎng)的月稅額為全部年終獎(jiǎng)的十二分之一；②根據(jù)步驟①求出的月應(yīng)稅在“個(gè)人所得稅稅率表”中找出對(duì)應(yīng)的稅率；③其中年終獎(jiǎng)獎(jiǎng)金應(yīng)交個(gè)稅=全部年終獎(jiǎng)金* 月應(yīng)交所得額的對(duì)應(yīng)稅率-對(duì)應(yīng)速算扣除數(shù)；④員工的實(shí)發(fā)獎(jiǎng)金為應(yīng)發(fā)獎(jiǎng)金減去應(yīng)繳個(gè)稅。第七個(gè)問(wèn)題是根據(jù)“年終獎(jiǎng)金”工作表中的數(shù)據(jù)，在工作表“12 月工資表”中依次計(jì)算各個(gè)員工的“實(shí)發(fā)工資獎(jiǎng)金”“獎(jiǎng)金個(gè)稅”“應(yīng)發(fā)年終獎(jiǎng)金”，其中實(shí)發(fā)工資獎(jiǎng)金等于應(yīng)發(fā)工資獎(jiǎng)金合計(jì)減去扣除社保減去工資個(gè)稅減去獎(jiǎng)金個(gè)稅。第八個(gè)問(wèn)題是要重點(diǎn)探討的問(wèn)題，也是本文的寫(xiě)作目的。要求根據(jù)“12 月工資表”的數(shù)據(jù)，在“工資條”工作表中的A2 單元格為本公司的每一個(gè)員工生成一個(gè)工資條，其中工資條的樣例已經(jīng)給出，并且要求每個(gè)工資條占用兩行，第一行為標(biāo)題行，第二行是標(biāo)題行對(duì)應(yīng)的數(shù)據(jù)，兩行內(nèi)外都要加上邊框。為了便于人事專(zhuān)員裁剪，每?jī)蓚€(gè)人的工資條之間都要加入一個(gè)空行，該空行的行高為40的單位，最后調(diào)整各個(gè)列的列寬到合適大小，字號(hào)大于等于10 磅。第九個(gè)問(wèn)題是對(duì)工作表“工資條”的頁(yè)面進(jìn)行調(diào)整以方便打印，其中紙張方向?yàn)闄M向，并且使所有的頁(yè)面只占一個(gè)頁(yè)面寬度，水平居中打印在紙上。

4 利用VBA制作EXCEL工資條

首先利用EXCEL 中的宏對(duì)某個(gè)員工的工資條做單一完整操作。但是在默認(rèn)情況下，【宏】命令在選項(xiàng)卡中是找不到的，因?yàn)樵诤暝凇鹃_(kāi)發(fā)工具】選項(xiàng)卡中，而【開(kāi)發(fā)工具】選項(xiàng)卡在默認(rèn)情況下是不存在的。打開(kāi)【開(kāi)發(fā)工具】選項(xiàng)卡的方法如下：①打開(kāi)【文件】選項(xiàng)卡；②選擇【選項(xiàng)】命令；③打開(kāi)自定義功能區(qū)；④勾選【開(kāi)發(fā)工具】選項(xiàng)。經(jīng)過(guò)這些操作之后，【開(kāi)發(fā)工具】 選項(xiàng)卡就出現(xiàn)在選項(xiàng)卡欄中，然后在【開(kāi)發(fā)工具】選項(xiàng)卡中找到【錄制宏】，此時(shí)進(jìn)入宏錄制時(shí)刻，再完整的對(duì)某個(gè)員工操作一次工資條制作，操作完成后，點(diǎn)擊停止錄制，停止錄制后在【宏】中找到剛才錄制的宏，進(jìn)行編輯，即在前兩行增加兩行代碼（第一行：Dim i As Integer，第二行：For i=2 To Range("a1").CurrentRegion.Rows.Count）-1 與最后兩行增加兩行代碼（倒數(shù)第二行：ActiveCell.Select，倒數(shù)第一行：Next）即可。這樣，然后在【開(kāi)發(fā)工具】中找到【宏】，然后在【宏】中找到已經(jīng)編制好的程序，然后點(diǎn)擊“執(zhí)行”就會(huì)很快完成工資條的制作。

5 結(jié)論

計(jì)算機(jī)二級(jí)之MS OFFICE 高級(jí)應(yīng)用是非計(jì)算專(zhuān)業(yè)學(xué)生選擇最多的一個(gè)考試科目，此科目考查范圍廣，考試難度大，通過(guò)率一直不高。針對(duì)MS OFFICE 中的其中一個(gè)難點(diǎn)問(wèn)題（工資條的制作），筆者比較多種操作方法，從辦公自動(dòng)化的角度提出了一種基于VBA 的工資條制作方法，借此希望給同行與學(xué)習(xí)者們一些建議。