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

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