用Excel轻松实现财务凭证封面套打

1、用Excel轻松实现财务凭证封面套打.、八、一前言 我院财务上的凭证封面一直以来都是用手工号码印章的方 法来处理的， 虽然完成的效果很好， 但是这种方法处理起来却费 时费力。有没有更好的简洁快速的方法来实现财务凭证封面的套 打功能呢？经过认真的研究， 决定采用Excel的VBA功能配合相 关控件工具箱来处理该问题。一、方法简介二、实现步骤（一）准备图形：用扫描仪对凭证封面原件扫描并用图形工 具处理多余空白部分后保存成扩展名为 JPG格式的图片（如凭 证.JPG）。（二）插入图形：新建一个电子表格，工作薄名：记账凭证 套打.xls，工作表名：凭证套打，打开菜单“插入-图片-来自文件”，在弹出的对

2、话框中选取扫描所得的图片凭证 .JPG,即可 在凭证套打表中看到该图片，双击图片在“设置图片格式-大 小”中按套打的凭证封面原样张大小设设置好高度和宽度 （如图 片处理）。（三）添加工具栏：点击菜单栏“视图-工具栏”选“控件 工具箱”及“ Visual Basic ”，如图 1 所示。图 1 控件工具箱及 Visual Basic 工具（四）设计控件属性：在控件工具箱选设计模式 ，在凭证 需要填写的地方分别插入标签控件， 在空白的区域分别插入标签 控件、文本框控件、组合框控件及其他控件中的日期选取控件 （ Microsoft Date and Time Picker Contorl 6.0 （

3、SP4）。如图 3 所示。在控件上右击后在弹出的菜单上选择属性， 将各控件的名称 改为如图 3 所示名称（非图片区的说明性的标签控件名称不变） 须调整的控件其他属性设计如下：标签控件： BackStyle 为 0-frmBackStyleTranparent ； BoardStyle 为 0-frmBoardStyleNone ；TextAlign 为 2-frmTextAlignCenter；Font（ 字体） 根据需要调整。文本框控件： TextAlign 为 2-frmTextAlignCenter ； Font（ 字体 ） 根据需要调整。（五）添加代码：Sheet1（凭证套打）中代码：

4、Private Sub cbo 保管 _Change（）Me.lbl 保管.Caption = Me.cbo 保管.TextEnd SubPrivate Sub cbo 保管 _Click（）Me.lbl 保管.Caption = Me.cbo 保管.TextEnd Sub图 2 凭证封面套打设置界面及控件名称Private Sub cbo 复核 _Change()Me.lbl 复核.Caption = Me.cbo 复核.TextEnd SubPrivate Sub cbo 复核 _Click()Me.lbl 复核.Caption = Me.cbo 复核.TextEnd SubPrivate

5、 Sub cbo 装订 _Change()Me.lbl 装订.Caption = Me.cbo 装订.TextEnd SubPrivate Sub cbo 装订 _Click()Me.lbl 装订.Caption = Me.cbo 装订.TextEnd SubPrivate Sub DTPickerStart_CloseUp()Me.lblSYear.Caption = Format(DTPickerStart.Valuea”、yyyy ”)Me.lblSMonth.Caption = Format(DTPickerStart.Valuea ”、mm”)Me.lblSDay.Caption = Format(DTPickerStart.Valuedd”)End SubPrivate Sub DTPickerEnd_CloseUp()Me.lblEYear.Caption = Format(DTPickerEnd.Value” yy”)Me.lblEMonth.Caption = Format(DTPicke