用VBA編制員工薪金管理系統(tǒng)

1、正確學會Excel VBA的16堂課用用用VBA編制員工薪金管理系統(tǒng)設(shè)置“員工薪金管理系統(tǒng)”工作簿創(chuàng)建員工薪金管理窗體運行員工薪金管理系統(tǒng)設(shè)置設(shè)置“員工薪金管理員工薪金管理”工作簿工作簿 添加美觀的按鈕 1在“首頁”工作表添加按鈕 2在其他工作表中添加“返回”按鈕按鈕 匯總考勤記錄 計算員工薪金計算員工薪金計算員工薪金具體操作步驟如下：步驟1：打開“員工薪金管理3”工作簿，切換到“薪金表”工作表中，如圖13-22所示。步驟2：按照為“考勤記錄”工作表添加“匯總考勤記錄”圓角矩形的方法，在“薪金表”工作表中添加幾個圓角矩形并設(shè)置其文本字體為“華文中宋”、字號為9號，如圖13-23所示。計算員工薪

2、金計算員工薪金具體操作步驟如下： 步驟3：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1代碼編輯窗口中輸入計算基本工資的程序代碼。步驟4：關(guān)閉VBA代碼窗口，返回“薪金表”工作表中，右擊“基本工資”圓角矩形選擇【指定宏】菜單項，在【指定宏】對話框“宏名”列表框中選擇“計算基本工資”選項，如圖13-24所示。計算員工薪金計算員工薪金具體操作步驟如下：步驟5：單擊【確定】按鈕，即可完成指定宏操作。此時“基本工資”圓角矩形已經(jīng)成為一個按鈕，單擊該【基本工資】按鈕，即可計算出每位員工的基本工資，如圖13-25所示。員工的工齡工資是由員工的工作年限決定的，工作年限越長，工齡工資越高。這里假設(shè)員工工齡

3、每增加1年，工齡工資就增加200元。如果工齡超過10年，則工齡工資統(tǒng)一設(shè)定為2000元，即工齡工資的上限為2000元。步驟6：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1代碼編輯窗口中輸入計算工齡工資的程序代碼。計算員工薪金計算員工薪金具體操作步驟如下：步驟7：在輸入完畢后關(guān)閉VBA代碼窗口，返回“薪金表”工作表中，右擊“工齡工資”圓角矩形選擇【指定宏】菜單項，即可打開【指定宏】對話框，在“宏名”列表框中選擇“計算工齡工資”選項，如圖13-26所示。步驟8：單擊【確定】按鈕，即可完成指定宏操作。此時“工齡工資”圓角矩形已經(jīng)成為一個按鈕，單擊該【工齡工資】按鈕，即可計算出每位員工的工齡工資

4、，如圖13-27所示。在該實例中員工獎金主要指銷售人員的獎金，與銷售業(yè)績有關(guān)，其計算公式設(shè)置為：獎金=銷售額*5%。也可根據(jù)所在企業(yè)需要為獎金設(shè)置其他計算方式，如為研發(fā)部門員工設(shè)置研發(fā)項目獎金，為生產(chǎn)部門設(shè)置以計劃時間內(nèi)超額完成生產(chǎn)產(chǎn)品的數(shù)據(jù)為依據(jù)的獎金等。該實例以上述計算公式為依據(jù)計算銷售部門的獎金并將其他部門員工的獎金設(shè)置為零。計算員工薪金計算員工薪金具體操作步驟如下：步驟9：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1的代碼編輯窗口中輸入計算獎金的程序代碼。步驟10：在輸入完畢后關(guān)閉VBA代碼窗口返回“薪金表”工作表中，右擊“獎金”圓角矩形，在彈出菜單中選擇【指定宏】菜單項，即可打

5、開【指定宏】對話框，在“宏名”列表框中選擇“計算獎金”選項，如圖13-28所示。步驟11：單擊【確定】按鈕，即可完成指定宏操作。此時“獎金”圓角矩形已經(jīng)成為一個按鈕，單擊【獎金】按鈕，即可計算出每位員工的獎金，如圖13-29所示。計算員工薪金計算員工薪金具體操作步驟如下：步驟12：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1代碼編輯窗口中輸入差旅費的代碼程序。步驟13：在輸入完畢后關(guān)閉VBA代碼窗口，返回“薪金表”工作表中，右擊“差旅費”圓角矩形，在彈出菜單中選擇【指定宏】菜單項，即可打開【指定宏】對話框，在“宏名”列表框中選擇“計算差旅費”選項，如圖13-30所示。步驟14：單擊【確定

6、】按鈕，即可完成指定宏操作。此時“差旅費”圓角矩形已經(jīng)成為一個按鈕，單擊【差旅費】按鈕，即可計算出每位員工的差旅費，如圖13-31所示。企業(yè)員工的保險是由企業(yè)和個人共同承擔的，在該實例中的保險是指員工個人所要繳納的部分，這里假設(shè)員工需要繳納的保險均為150元。計算員工薪金計算員工薪金具體操作步驟如下：步驟15：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1的代碼編輯窗口中輸入計算保險的程序代碼。步驟16：在輸入完畢后關(guān)閉VBA代碼窗口返回“薪金表”工作表中，右擊“保險”圓角矩形選擇【指定宏】菜單項，即可打開【指定宏】對話框，在“宏名”列表框中選擇“計算保險”選項，如圖13-32所示。步驟1

7、7：單擊【確定】按鈕，即可完成指定宏操作。此時“保險”圓角矩形已經(jīng)成為一個按鈕，單擊【保險】按鈕，即可計算出每位員工的保險費，如圖13-33所示。計算員工薪金計算員工薪金具體操作步驟如下：步驟17：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1代碼編輯窗口中輸入計算缺勤扣款的程序代碼。步驟18：在輸入完畢后關(guān)閉VBA代碼窗口返回“薪金表”工作表中，右擊“缺勤扣款”圓角矩形選擇【指定宏】菜單項，即可打開【指定宏】對話框，在“宏名”列表框中選擇“計算缺勤扣款”選項，如圖13-34所示。步驟19：單擊【確定】按鈕，即可完成指定宏操作。此時“缺勤扣款”圓角矩形已經(jīng)成為一個按鈕，單擊【缺勤扣款】按鈕

8、，即可計算出每位員工的缺勤扣款，如圖13-35所示。計算員工薪金計算員工薪金具體操作步驟如下：步驟20：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1代碼編輯窗口中輸入計算加班費的程序代碼。步驟21：在輸入完畢后關(guān)閉VBA代碼窗口返回“薪金表”工作表中，右擊“加班費”圓角矩形選擇【指定宏】菜單項，即可打開【指定宏】對話框，在“宏名”列表框中選擇“計算加班費”選項，如圖13-36所示。步驟22：單擊【確定】按鈕，即可完成指定宏操作。此時“加班費”圓角矩形已經(jīng)成為一個按鈕，單擊【加班費】按鈕，即可計算出每位員工的加班費，如圖13-37所示。根據(jù)計算結(jié)果得到每位員工的實發(fā)工資。計算實發(fā)工資的公式

9、為：實發(fā)工資=基本工資+工齡工資+獎金+差旅費-保險-缺勤扣款+加班費。計算員工薪金計算員工薪金具體操作步驟如下：步驟23：按Alt+F11組合鍵打開VBA代碼窗口，在模塊1的代碼編輯窗口中輸入計算實發(fā)工資的程序代碼。步驟24：在輸入完畢后關(guān)閉VBA代碼窗口返回“薪金表”工作表中，右擊“實發(fā)工資”圓角矩形選擇【指定宏】菜單項，即可打開【指定宏】對話框，在“宏名”列表框中選擇“計算實發(fā)工資”選項，如圖13-38所示。步驟25：單擊【確定】按鈕，即可完成指定宏操作。此時“實發(fā)工資”圓角矩形已經(jīng)成為一個按鈕，單擊該【實發(fā)工資】按鈕，即可計算出每位員工的實發(fā)工資，如圖13-39所示。創(chuàng)建員工薪金管理窗

10、體創(chuàng)建員工薪金管理窗體 創(chuàng)建【員工薪金查詢】窗體 創(chuàng)建【查詢結(jié)果】窗體 創(chuàng)建【管理員登錄】窗體運行員工薪金管理系統(tǒng)運行員工薪金管理系統(tǒng)具體的操作步驟如下：步驟1：打開“員工薪金管理4”工作簿，即可打開【員工薪金查詢】對話框，在其中輸入想要查詢的員工編號，如輸入“EM0010”，如圖13-62所示。步驟2：單擊【開始查詢】按鈕，即可自動關(guān)閉【員工薪金查詢】對話框并顯示【查詢結(jié)果】對話框，在其中可以查看該員工的詳細信息，如圖13-63所示。運行員工薪金管理系統(tǒng)運行員工薪金管理系統(tǒng)具體的操作步驟如下：步驟3：單擊【返回】按鈕，即可關(guān)閉【查詢結(jié)果】對話框并返回到【員工薪金查詢】對話框，在文本框中輸入另

11、一位員工的編號，這里輸入“EM0006”，如圖13-64所示。步驟4：單擊【開始查詢】按鈕進入【查詢結(jié)果】對話框，由于該員工不是銷售部員工，所以在查詢結(jié)果中沒有顯示銷售額和獎金信息，該員工也沒有出差，所以也不顯示出差的信息，如圖13-65所示。運行員工薪金管理系統(tǒng)運行員工薪金管理系統(tǒng)具體的操作步驟如下：步驟5：單擊【返回】按鈕返回到【員工薪金查詢】對話框中，如果輸入一個工作簿中不存在的員工編號，例如輸入“EM110”，單擊【開始查詢】按鈕，即可彈出“不存在這個員工編號！”的提示信息，如圖13-66所示。步驟6：單擊提示信息對話框中的【確定】按鈕返回【員工薪金查詢】對話框，如果用戶是管理員則單擊

12、【管理員登錄】按鈕，即可進入【管理員登錄】對話框，如圖13-67所示。運行員工薪金管理系統(tǒng)運行員工薪金管理系統(tǒng)具體的操作步驟如下：步驟7：如果在“密碼”文本框中輸入不正確的密碼，如輸入“123456789”，單擊【登錄】按鈕，即可彈出“密碼不正確！”的提示信息，如圖13-68所示。步驟8：單擊提示信息對話框中的【確定】按鈕返回【管理員登錄】對話框，在其中輸入正確的密碼“123456”，單擊【登錄】按鈕自動關(guān)閉【管理員登錄】對話框并進入“員工薪金管理4.xlsm”工作簿中，如圖13-69所示。專家課堂（常見問題與解答）專家課堂（常見問題與解答）點撥點撥1：在創(chuàng)建【員工薪金查詢】窗體過程中添加【開始查詢】按鈕的響應(yīng)程序時，為什么不使用VLookup函數(shù)，而要使用For循環(huán)？解答：解答：因為使用VLookup函數(shù)時需要注意，如果增加了新的員工記錄，例如在“員工資料”工作表中新增加了一行員工記錄，則要修改VLookup函數(shù)的參數(shù)，即將VLookup函數(shù)中的第2個參數(shù)“Sheets(員工資料).Range(A1:H30)”修改為“Sheets(員工資料).R