《自编支票打印软件(EXCEL格式)》由会员分享，可在线阅读，更多相关《自编支票打印软件(EXCEL格式)（13页珍藏版）》请在金锄头文库上搜索。
1、DIYDIY 我自己的我自己的 EXCELEXCEL 支票打印软件支票打印软件共十四个步骤共十四个步骤：一、需求设计：需实现的功能，包括：存根的附加信息、日期、收款单位、金额、业务内容（用途） 、出票人、支票的大写日期、收款单位、大小写金额、帐号、支付密码、业务内容（用途）等，其中那些项目要打印出来。二、思路设计：设计为三个表Sheet，第一表（Sheet1）为支票打印及数据输入表、第二表（Sheet2）为数据支持表、第三表（Sheet3）为控制表。三、支票背景：用扫描仪将打印的支票扫描实图存入一文件，按 42%的缩小比例编辑此文件，存入后缀名为 JPG 的文件备用。四、读入背景：打开一空的
2、EXCEL 表，将后缀名为 JPG 的支票文件通过“格式工作表背景”设计为支票背景。五、表格调整：按背景中支票的打印内容调整表格行列宽度，合并单元格等，将支票背景区设定打印区域，另设如单位代码、金额、内容（用途） 、帐号、支付密码、出票人等信息的编辑区域，为编写公式做准备。注意各单元格属性设置，如附加信息、收款单位、业务内容、大写金额、帐号、支付密码和业务内容为文本，收款单位和大写金额还应该在“设置单元格格式对齐”中设置为“缩小字体填充” 。六、录入公式：编辑存根的附加信息、日期、收款单位、金额、业务内容、出票人、支票的大写日期、收款单位、大小写金额、帐号、支付密码、业务内容等取数值和取字符的
3、公式，以编辑区域的单位代码（X10） 、金额（X11） 、附件（X12） 、用途（X13） 、帐号（X6） 、支付密码（X9） 、出票人（X14） ，另以支票的小写金额从大至小位置在 N8至 X8 区间、Sheet2 表中 A 行为单位代码、B 行为会计科目编码、C 行为会计核算科目、D 行为单位名称、E 行为银行帐号、F 行为开户银行，G 行为联系人、H 行为联系电话为例。编写的公式明细分别为：1、存根的附加信息：=“结算单”&X12&“份”2、存根的日期：=NOW() 单元格设计为自定义 yyyy mmmm dd3、存根的收款单位：=IF(X10=“,“,LOOKUP(X10,Sheet2
4、!A1:A10067,Sheet2!D1:D10067)4、存根的金额：=X115、存根的业务内容（用途）：=X136、存根的出票人（出纳、会计、记帐等）：=X147、支票的大写日期：=NOW() 单元格设计为自定义DBNum2$-804 yyyy mmmm dd8、支票的收款单位：=IF(X10=“,“,LOOKUP(X10,Sheet2!A1:A10067,Sheet2!D1:D10067)9、支票的小写金额亿元：=IF(AND(X1110000000,X11 Sheet3!A1”的设定，在“格式”中将“字体”和“图案”设定为同一深色背景。并在相关重点区域编写=IF(E10 Sheet3!
5、A1,“程序已过使用期，延期联系:13383029900“,“)，通过“格式条件格式公式=$E$10 Sheet3!A1”的设定，在“格式”中将“字体”设定为同一红色提示背景。设置调整打印纸型、页边距、打印比例等，直至合适为止。十二、防止删改：在每个表中通过“工具保护保护工作表”输入保护密码，防止删改文件内容和屏弊公式内容。十三、设计密码：通过“工具选项安全性”输入打开（使用）权限保护密码和修改数据表 Sheet2 权限保护密码。十四、编程日志：将编写过程和各个保护密码记录下来，另存为 TXT 文件备查。财务科支票出票代码：Sub Macro1() Macro1 Macro 宏由 录制，时间:
6、 2009-6-3Sheets(“Sheet1“).SelectRange(“A8“).SelectSelection.EntireRow.InsertRange(“A2:M2“).SelectSelection.CopyRange(“A8:M8“).SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = FalseActiveWorkbook.SaveSheets(“A01“).Sel
7、ectActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=TrueSheets(“A01“).SelectEnd Sub征缴二科出票代码：Sub Auto_Save()On Error Resume NextDim I As Long, J As Long, K As LongDim X As Long, Y As Long, Z As LongDim Name As String, Start_Date As Date, End_Date As DateDim Obj_1 As Object, Obj_2 As Object初始化
8、数据Set Obj_1 = Sheets(“sheet1“)Set Obj_2 = Sheets(“sheet5“)J = CLng(Obj_1.Cells(2, 9)If J = CDate(Obj_2.Cells(I, 3) And End_Date = CDate(Obj_2.Cells(I, 3) Then什么事都不干ElseIf Start_Date = CDate(Obj_2.Cells(I, 3) And End_Date = CDate(Obj_2.Cells(I, 3) Then什么事都不干ElseIf Start_Date = CDate(Obj_2.Cells(I, 2)
9、 And End_Date = CDate(Obj_2.Cells(I, 2) Then什么事都不干ElseObj_1.Cells(2, 5) = JObj_1.Range(“A“ & J).SelectMsgBox “错误，重复记录！“, vbOKOnly, “错误“Exit SubEnd IfEnd IfI = I + 1LoopObj_1.Cells(2, 5) = JObj_2.Cells(I, 1) = NameObj_2.Cells(I, 2) = Start_DateObj_2.Cells(I, 3) = End_DateJ = J + 1LoopObj_1.Range(“A2:C2“) = EmptySet Obj_1 = NothingSet Obj_2 = NothingEnd Sub
