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

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

2、在凭证套打表中看到该图片，双击图片在“设置图片格式f大小”中按套打的凭证封面原样张大小设设置好高度和宽度（如图片处理）。（三）添加工具栏：点击菜单栏”视图f工具栏”选“控件工具箱”及“VisualBasic”，如图1所示。图1控件工具箱及VisualBasic工具四）设计控件属性:在控件工具箱选设计模式，在凭证需要填写的地方分别插入标签控件，在空白的区域分别插入标签控件、文本框控件、组合框控件及其他控件中的日期选取控件MicrosoftDateandTimePickerContorl6.0（SP4）图3所）。如zpo在控件上右击后在弹出的菜单上选择属性，将各控件的名称改为如图3所示名称（非图片

3、区的说明性的标签控件名称不变）须调整的控件其他属性设计如下：标签控件：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