用Excel輕松實現財務憑證封面套打

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

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

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

4、k（）Me.Ibl保管.Caption=Me.cbo保管,TextEndSub圖2憑證封面套打設置界面及控件名稱PrivateSubcbo復核_Change()Me.Ibl復核.Caption=Me.cbo復核.TextEndSubPrivateSubcbo復核_Click()Me.Ibl復核.Caption=Me.cbo復核.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