用Excel轻松实现财务凭证封面套打-文档 用Excel轻松实现财务凭证封面套打 前言 我院财务上的凭证封面一直以来都是用手工号码印章的方法来处理的，虽然完成的效果很好，但是这种方法处理起来却费时费力。有没有更好的简洁快速的方法来实现财务凭证封面的套打功能呢？经过认真的研究，决定采用Excel的VBA功能配合相关控件工具箱来处理该问题。 、方法简介 二、实现步骤 一）准备图形：用扫描仪对凭证封面原件扫描并用图形工 具处理多余空白部分后保存成扩展名为JPG格式的图片（如凭证JP G）。 二）插入图形：新建一个电子表格，工作薄名：记账凭证 套打.xIs，工作表名：凭证套打，打开菜单“插入f图片f来自 文件”，在弹出的对话框中选取扫描所得的图片凭证.JPG,即可在凭证套打表中看到该图片，双击图片在“设置图片格式f大小”中按套打的凭证封面原样张大小设设置好高度和宽度（如图片处理）。 （三）添加工具栏：点击菜单栏“视图f工具栏”选“控件 工具箱”及“ VisuaI Basic ”，如图 1 所示。 图 1 控件工具箱及 VisuaI 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 yyyy ”) Me.lblSMonth.Caption = Format(DTPickerStart.Value 本文来源：https://www.wddqw.com/doc/41cf319d9dc3d5bbfd0a79563c1ec5da51e2d677.html