用EXCEL VBA 實(shí)現(xiàn)獎金發(fā)放

梁 方莊 莉

（1.南通大學(xué)現(xiàn)代教育技術(shù)中心 江蘇 南通 226019；2.南通市財(cái)政局 江蘇 南通 226001）

0 引言

近年來，許多部門、單位都要在工資金額以外發(fā)放加班費(fèi)等補(bǔ)貼。如市財(cái)政局每年按市政府要求發(fā)放的招商引資獎、目標(biāo)考核獎。這些獎金一般要求直接發(fā)放到員工工資卡上，需要將數(shù)據(jù)以電子文檔（如DBF XLS）發(fā)送到銀行。

以前獎金發(fā)放是由機(jī)房專業(yè)人員幫助會計(jì)通過VFP完成數(shù)據(jù)的整理、上報(bào)，管理責(zé)任不明、操作流程不順，因此迫切需要一個程序，由會計(jì)自行使用。

目的：充分運(yùn)用EXCEL VBA的功能，開發(fā)實(shí)用程序，實(shí)現(xiàn)獎金發(fā)放。

內(nèi)容：運(yùn)用EXCEL VBA技術(shù)，在EXCEL表的菜單中新建獎金發(fā)放菜單欄，菜單欄包含生成獎金、生成匯總表、生成上報(bào)數(shù)據(jù)、數(shù)據(jù)解鎖及幫助功能；同時程序具備隱藏指定系統(tǒng)表及VBA代碼的密碼保護(hù)功能。

1 EXCEL VBA的技術(shù)簡介及獎金發(fā)放程序的設(shè)計(jì)目標(biāo)

1.1 EXCEL VBA的技術(shù)簡介

Visual Basic for Application Visual Basic是Windows環(huán)境下開發(fā)應(yīng)用軟件的一種通用程序設(shè)計(jì)語言，功能強(qiáng)大，直觀易用。一方面，它是可視性程序設(shè)計(jì)語言，許多復(fù)雜的用戶界面設(shè)計(jì)都可以直觀地利用鼠標(biāo)拖放以及對各種對象屬性的設(shè)置、修改完成，幾乎無需編程。另一方面，程序的控制普遍采用了事件驅(qū)動機(jī)制，根據(jù)用戶操作觸發(fā)的事件，執(zhí)行不同的動作，完成相應(yīng)的功能，因而都是一些短小精練的過程，容易設(shè)計(jì)和調(diào)試。例如Excel2003的VBA，主要增加了關(guān)于Excel工作簿、工作表、區(qū)域、數(shù)據(jù)透視表等對象的屬性、事件和方法。

1.2 獎金發(fā)放程序的設(shè)計(jì)目標(biāo)

改變原有由專業(yè)技術(shù)人員用VFP直接對數(shù)據(jù)庫手工輸入命令修改獎金的操作方法為利用EXCEL2003應(yīng)用程序中加入特定菜單欄、菜單項(xiàng)，由會計(jì)人員自己通過點(diǎn)擊菜單項(xiàng)完成生成獎金、生成匯總表、生成上報(bào)數(shù)據(jù)、數(shù)據(jù)解鎖等功能。

2 獎金發(fā)放程序結(jié)構(gòu)

2.1 獎金發(fā)放程序結(jié)構(gòu)

該程序的使用環(huán)境是Microsoft Excel2003，采用的是EXCEL VBA技術(shù)實(shí)現(xiàn)程序功能。

2.2 數(shù)據(jù)字典

2.2.1 獎金表

2.2.2 部門匯總表

3 獎金發(fā)放程序的功能實(shí)現(xiàn)

3.1 菜單欄的實(shí)現(xiàn)

功能：提供獎金發(fā)放程序的操作功能菜單。

輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。

輸出項(xiàng)目：無。

界面如圖4-1所示：

圖4-1 菜單欄

3.2 生成獎金

功能：根據(jù)需要，輸入獎金基數(shù)、選擇系數(shù)及離退休項(xiàng)目，完成獎金數(shù)據(jù)生成。

輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。

輸出項(xiàng)目：無。

界面如圖4-2所示：

圖4-2 生成獎金窗體

3.3 生成匯總表

功能：按獎金發(fā)放部門生成金額及人數(shù)的匯總表。

輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。

實(shí)現(xiàn)此項(xiàng)功能的代碼段：

3.4 生成上報(bào)數(shù)據(jù)

功能：將獎金表轉(zhuǎn)換為TXT文件，保存在獎金發(fā)放表的同級目錄中。

文件名定義格式：“獎金發(fā)放表之獎金”+“匯總金額”

輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。

實(shí)現(xiàn)此項(xiàng)功能的代碼段：

3.5 數(shù)據(jù)解鎖

功能：表中數(shù)據(jù)除金額列外全部加鎖保護(hù)。解鎖后可修改基礎(chǔ)數(shù)據(jù)。

輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。

實(shí)現(xiàn)此項(xiàng)功能的代碼段：

Sheets(1).Protect DrawingObjects:=True,contents:=True,Scenarios:=True

4 結(jié)論

本文給出了用EXCEL VBA實(shí)現(xiàn)獎金發(fā)放的方法。程序成功開發(fā)和運(yùn)行證明利用VBA能夠快速部署和解決日常工作中實(shí)際問題，提高工作效率和提升工作質(zhì)量。

［1］伊利奇，王保眾.透視 EXCEL VBA應(yīng)用與開發(fā)[M].北京：人民郵電出版社，2008，1.