用Excel輕松實(shí)現(xiàn)財(cái)務(wù)憑證封面套打

1、用Excel輕松實(shí)現(xiàn)財(cái)務(wù)憑證封面套打刖5我院財(cái)務(wù)上的憑證封面一直以來(lái)都是用手工號(hào)碼印章的方法來(lái)處理的，雖然完成的效果很好，但是這種方法處理起來(lái)卻費(fèi)時(shí)費(fèi)力。有沒有更好的簡(jiǎn)潔快速的方法來(lái)實(shí)現(xiàn)財(cái)務(wù)憑證封面的套打功能呢？經(jīng)過認(rèn)真的研究,決定采用Excel的VBA功能配合相關(guān)控件工具箱來(lái)處理該問題。、方法簡(jiǎn)介二、實(shí)現(xiàn)步驟一）準(zhǔn)備圖形：用掃描儀對(duì)憑證封面原件掃描并用圖形工具處理多余空白部分后保存成擴(kuò)展名為JPG格式的圖片（如憑證JPG）o二）插入圖形：新建一個(gè)電子表格，工作薄名：記賬憑證套打.Xis,工作表名：憑證套打，打開菜單”插入f圖片f來(lái)自文件”，在彈出的對(duì)話框中選取掃描所得的圖片憑證.JPG,即可

2、在憑證套打表中看到該圖片，雙擊圖片在“設(shè)置圖片格式f大小”中按套打的憑證封面原樣張大小設(shè)設(shè)置好高度和寬度（如圖片處理）。（三）添加工具欄：點(diǎn)擊菜單欄”視圖f工具欄”選“控件工具箱”及“VisualBasic”，如圖1所示。圖1控件工具箱及VisualBasic工具四）設(shè)計(jì)控件屬性:在控件工具箱選設(shè)計(jì)模式，在憑證需要填寫的地方分別插入標(biāo)簽控件，在空白的區(qū)域分別插入標(biāo)簽控件、文本框控件、組合框控件及其他控件中的日期選取控件MicrosoftDateandTimePickerContorl6.0（SP4）圖3所）。如zpo在控件上右擊后在彈出的菜單上選擇屬性，將各控件的名稱改為如圖3所示名稱（非圖片

3、區(qū)的說明性的標(biāo)簽控件名稱不變）須調(diào)整的控件其他屬性設(shè)計(jì)如下：標(biāo)簽控件：BackStyle為O-frmBackStyleTranparentBoardStyle為O-frmBoardStyleNone；TextAlign為2-frmTextAlignCenter；Font（字體）根據(jù)需要調(diào)整。文本框控件：TextAlign為2-frmTextAlignCenterFont（字體）根據(jù)需要調(diào)整。五）添加代碼：Sheetl（憑證套打）中代碼：PrivateSubcbo保管_Change（）Me.Ibl保管.Caption=Me.cbo保管.TextEndSubPrivateSubcbo保管_Clic

4、k（）Me.Ibl保管.Caption=Me.cbo保管,TextEndSub圖2憑證封面套打設(shè)置界面及控件名稱PrivateSubcbo復(fù)核_Change()Me.Ibl復(fù)核.Caption=Me.cbo復(fù)核.TextEndSubPrivateSubcbo復(fù)核_Click()Me.Ibl復(fù)核.Caption=Me.cbo復(fù)核.TextEndSubPrivateSubcbo裝訂_Change()Me.Ibl裝訂.Caption=Me.cbo裝訂.TextEndSubPrivateSubcbo裝訂_Click()Me.Ibl裝訂.Caption=Me.cbo裝訂.TextEndSubPrivat

5、eSubDTPickerStart_CloseUp()Me.IblSYear.Caption=Format(DTPickerStart.Valueyyyy)Me.IblSMonth.Caption=Format(DTPickerStart.Value?Imm)Me.IblSDay.Caption=Format(DTPickerStart.Valuedd”)EndSubPrivateSubDTPickerEnd_CloseUp()Me.IblEYear.Caption=Format(DTPickerEnd.Value力yy)Me.IblEMonth.Caption=Format(DTPickerEnd.Valu