如何自己编写EXCEL支票等票据打印软件.doc

如何自己编写EXCEL支票等票据打印软件.doc

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
如何自己编写EXCEL支票等票据打印软件

如何自己编写EXCEL支票等票据打印软件 共十四个步骤: 一、需求设计:需实现的功能,包括:存根的附加信息、日期、收款单位、金额、业务内容(用途)、出票人、支票的大写日期、收款单位、大小写金额、帐号、支付密码、业务内容(用途)等,其中那些项目要打印出来。 二、思路设计:设计为三个表——Sheet,第一表(Sheet1)为支票打印及数据输入表、第二表(Sheet2)为数据支持表、第三表(Sheet3)为控制表。 三、支票背景:用扫描仪将打印的支票扫描实图存入一文件,按42%的缩小比例编辑此文件,存入后缀名为JPG的文件备用。 四、读入背景:打开一空的EXCEL表,将后缀名为JPG的支票文件通过“格式——工作表——背景”设计为支票背景。 五、表格调整:按背景中支票的打印内容调整表格行列宽度,合并单元格等,将支票背景区设定打印区域,另设如单位代码、金额、内容(用途)、帐号、支付密码、出票人等信息的编辑区域,为编写公式做准备。注意各单元格属性设置,如附加信息、收款单位、业务内容、大写金额、帐号、支付密码和业务内容为文本,收款单位和大写金额还应该在“设置——单元格格式——对齐”中设置为“缩小字体填充”。 六、录入公式:编辑存根的附加信息、日期、收款单位、金额、业务内容、出票人、支票的大写日期、收款单位、大小写金额、帐号、支付密码、业务内容等取数值和取字符的公式,以编辑区域的单位代码(X10)、金额(X11)、附件(X12)、用途(X13)、帐号(X6)、支付密码(X9)、出票人(X14),另以支票的小写金额从大至小位置在N8至X8区间、Sheet2表中A行为单位代码、B行为会计科目编码、C行为会计核算科目、D行为单位名称、E行为银行帐号、F行为开户银行,G行为联系人、H行为联系电话为例。编写的公式明细分别为: 1、存根的附加信息:=“结算单”X12“份” 2、存根的日期: =NOW() 单元格设计为自定义yyyy mm dd 3、存根的收款单位: =IF(X10=,,LOOKUP(X10,Sheet2!A1:A10067,Sheet2!D1:D10067)) 4、存根的金额:=X11 5、存根的业务内容(用途):=X13 6、存根的出票人(出纳、会计、记帐等):=X14 7、支票的大写日期: 测试成功 年:=TEXT(F20,[DBNum2]e) 月:=IF(OR(MONTH(F20)={1,2,3,4,5,6,7,8,9,10}),零,)TEXT(F20,[DBNum2]M) 日:=IF(MOD(DAY(F20),10),,零)TEXT(F20,[DBNum2]DD) =NOW() 单元格设计为自定义[DBNum2][$-804] yyyy mmmm dd =TEXT(F20,e [dbnum2]IF(MONTH(F20)=10,零,)mm IF(MOD(DAY(F20),10),,零)dd ) 8、支票的收款单位: =IF(X10=,,LOOKUP(X10,Sheet2!A1:A10067,Sheet2!D1:D10067)) 9、支票的小写金额亿元: =IF(AND(X1110000000,X11100000000),¥,) 10、支票的小写金额千万元: =IF(OR(P8=¥,Q8=¥,R8=¥,S8=¥,T8=¥,U8=¥,V8=¥),,IF(X1110000000,¥,IF(X11=INT(X11),LEFT(RIGHT(X11,8),1),LEFT(RIGHT(X11*100,10),1)))) 11支票的小写金额百万元: =IF(OR(Q8=¥,R8=¥,S8=¥,T8=¥,U8=¥,V8=¥),,IF($X$111000000,¥,IF($X$11=INT($X$11),LEFT(RIGHT($X$11,7),1),LEFT(RIGHT($X$11*100,9),1)))) 12支票的小写金额十万元: =IF(OR(R8=¥,S8=¥,T8=¥,U8=¥,V8=¥),,IF($X¥,IF($X$11=INT($X$11),LEFT(RIGHT($X$11,6),1),LEFT(RIGHT($X$11*100,8),1)))) 13支票的小写金额万元: =IF(OR(S8=¥,T8=¥,U8=¥,V8=¥),,IF($X$1110000,¥,IF($X$11=INT($X$11),LEFT(RIGHT($X$11,5),1),LEFT(RIGHT($X$11*100,7),1)))) 14支票的小写金额千元: =IF(OR(T8=¥,U8=¥,V8=¥),,IF($X$111000,¥,IF($X$11=INT($X$11),LEFT(RIGHT($X$11,4),

文档评论(0)

junjun37473 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档