用excel轻松实现财务凭证封面套打.docxVIP

用Excel轻松实现财务凭证封面套打 .、八 、一 前言 我院财务上的凭证封面一直以来都是用手工号码印章的方 法来处理的， 虽然完成的效果很好， 但是这种方法处理起来却费 时费力。有没有更好的简洁快速的方法来实现财务凭证封面的套 打功能呢？经过认真的研究， 决定采用Excel的VBA功能配合相 关控件工具箱来处理该问题。 一、方法简介 二、实现步骤 （一）准备图形：用扫描仪对凭证封面原件扫描并用图形工 具处理多余空白部分后保存成扩展名为 JPG格式的图片（如凭 证.JPG）。 （二） 插入图形：新建一个电子表格，工作薄名：记账凭证 套打.xls，工作表名：凭证套打，打开菜单“插入-图片-来自 文件”，在弹出的对话框中选取扫描所得的图片凭证 .JPG,即可 在凭证套打表中看到该图片，双击图片在“设置图片格式-大 小”中按套打的凭证封面原样张大小设设置好高度和宽度 （如图 片处理）。 （三） 添加工具栏：点击菜单栏“视图-工具栏”选“控件 工具箱”及“ Visual Basic ”，如图 1 所示。 图 1 控件工具箱及 Visual Basic 工具 （四）设计控件属性：在控件工具箱选设计模式 ，在凭证 需要填写的地方分别插入标签控件， 在空白的区域分别插入标签 控件、文本框控件、组合框控件及其他控件中的日期选取控件 （ Microsoft Date and Time Picker Contorl 6.0 （SP4） ）。如 图 3 所示。 在控件上右击后在弹出的菜单上选择属性， 将各控件的名称 改为如图 3 所示名称（非图片区的说明性的标签控件名称不变） 须调整的控件其他属性设计如下： ⑴标签控件： BackStyle 为 0-frmBackStyleTranparent ； BoardStyle 为 0-frmBoardStyleNone ；TextAlign 为 2-frmTextAlignCenter ；Font（ 字体） 根据需要调整。 ⑵文本框控件： TextAlign 为 2-frmTextAlignCenter ； Font（ 字体 ） 根据需要调整。 （五）添加代码： ⑴Sheet1（凭证套打）中代码： Private Sub cbo 保管 _Change（） Me.lbl 保管.Caption = Me.cbo 保管.Text End Sub Private Sub cbo 保管 _Click（） Me.lbl 保管.Caption = Me.cbo 保管.Text End Sub 图 2 凭证封面套打设置界面及控件名称 Private Sub cbo 复核 _Change() Me.lbl 复核.Caption = Me.cbo 复核.Text End Sub Private Sub cbo 复核 _Click() Me.lbl 复核.Caption = Me.cbo 复核.Text End Sub Private Sub cbo 装订 _Change() Me.lbl 装订.Caption = Me.cbo 装订.Text End Sub Private Sub cbo 装订 _Click() Me.lbl 装订.Caption = Me.cbo 装订.Text End Sub Private Sub DTPickerStart_CloseUp() Me.lblSYear.Caption = Format(DTPickerStart.Value a ” 、 yyyy ”) Me.lblSMonth.Caption = Format(DTPickerStart.Value a ” 、 mm”) Me.lblSDay.Caption = Format(DTPickerStart.Value dd”) End Sub Private Sub DTPickerEnd_CloseUp() Me.lblEYear.Caption = Format(DTPickerEnd.Value ” \ yy”) Me.lblEMonth.Caption = Format(DTPickerEnd.Value mm”) Me.lblEDay.Caption = Format(DTPickerEnd.Value ， dd”) 日期错误提醒 If DTPEnd.Value