浅谈用Excel设计的支票打印小应用

《浅谈用Excel设计的支票打印小应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、浅谈用Excel设计的支票打印小应用［摘要］本文从宏语句设计、单元格属性设置与函数应用、打印及纸张设置等方面详细介绍用Excel软件设计的支票打印小应用，只需填入收款人、小写金额、内容3个项目即可实现打印支票的自动化，进行大写金额和大写日期的自动转化，记录已打印支票的各项信息，提供已用支票、未用支票张数，无空余支票提醒，无金额或无收款人时不执行打印等功能。　　［关键词］Excel软件；支票打印；应用　　　　　２００３年７月的《中国会计电算化》杂志上曾刊登过一篇笔者关于打印票据的文章，后在实践中笔者对Excel的应

2、用有了更深的理解和认识，现将新的票据打印应用进行重新整理。　　原来的应用主要是使用Ｗord的邮件合并功能，后来在使用中感觉还是比较麻烦，需要用到Ｗord和Excel软件。新应用放弃了邮件合并功能，只用到Excel软件。　　　　1设计思路　　　　支票打印需要输入的项目为：收款人、日期、款项内容、开户银行及账号、大小写金额。　　首先，希望只需要输入收款人、款项内容、小写金额就可以完成所有填开项目。如果收款人和款项内容是比较固定的，最好通过下拉框选择输入。大写日期和大写金额能自动填写。　　其次，希望系统实现对支票信息的

3、管理，即能记录每一张支票的开票时间、收款人、款项内容、金额等信息，同时能提供已开支票张数、未开支票张数，无空余支票时能提醒购买新支票。　　此外，软件应该能在无金额或无收款人时不执行打印。　　　　2设计过程　　　　根据上述思路，需要充分利用Excel的各项功能，特别是宏的设计。　　大写金额的自动填写　　默认金额最大为玖仟玖佰玖拾玖万玖仟玖佰玖拾玖元玖角玖分。在此需要自定义一个函数，打开Excel软件，在工具下选择“宏”，打开ＶＢ编辑器，插入一个新模块，在其中建立一个函数，其代码如下：　　ＰｕｂｌｉｃＦｕｎｃｔｉｏｎ

4、中文金额　　Ａ＝Ｒｅｐｌａｃｅ，１，＂壹＂），２，＂贰＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陆＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）　　ＳｅｌｅｃｔＣａｓｅＬｅｎ　　Ｃａｓｅ１０　　Ｂ＝Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ９　　Ｂ＝Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆

5、Ｍｉｄ＆＂分＂　　Ｃａｓｅ８　　Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ７　　Ｂ＝Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ６　　Ｂ＝Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ５　　Ｂ＝Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａ

6、ｓｅ４　　Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ３　　Ｂ＝Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ２　　Ｂ＝Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂　　Ｃａｓｅ１　　Ｂ＝Ｍｉｄ＆＂分＂　　ＥｎｄＳｅｌｅｃｔ　　中文金额＝Ｂ　　ＦｏｒＣ＝４Ｔｏ１Ｓｔｅｐ－１’建立４次循环。　　中文金额＝Ｒｅｐｌａｃｅ，＂零仟＂，＂零＂），＂零佰＂，＂零＂），＂零拾＂，＂零＂），＂零角零分＂，＂整＂），＂零角＂，＂零＂），＂零分＂，＂整＂），＂零零＂，＂零＂），＂零元＂，＂元＂）　　Ｎ

7、ｅｘｔＣ　　ＥｎｄＦｕｎｃｔｉｏｎ　　上面的代码通过不断反复使用Ｒｅｐｌａｃｅ命令将小写金额的数字进行替换，最后转换为大写金额。2.大写日期的自动填写　　我们需要定义一个新函数，代码如下：　　ＰｕｂｌｉｃＦｕｎｃｔｉｏｎ中文日期　　Ａ＝Ｒｅｐｌａｃｅ，１，＂壹＂），２，＂贰＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陆＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）　　ＳｅｌｅｃｔＣａｓｅＬｅｎ　　Ｃａｓｅ２　　ＩｆＭｉｄ＝０ＴｈｅｎＢ＝＂零＂＆Ｍｉｄ＆＂拾＂　　Ｅｌｓｅ　　Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ　　

8、ＥｎｄＩｆ　　Ｃａｓｅ１　　Ｂ＝＂零＂＆Ｍｉｄ　　ＥｎｄＳｅｌｅｃｔ　　中文日期＝Ｂ　　ＥｎｄＦｕｎｃｔｉｏｎ　　通过上面的代码结合单元格式设置及其他公式就可以实现年月日的大写模式。　　2.支票信息管理　　需要设计一个过程来实现支票信息管理，代码如下：　　Ｓｕｂ打印支票　　Ｓｈｅｅｔｓ．Ｓｅｌｅｃｔ　　账号＝Ｒｉｇｈｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ，４）　　ＳｅｌｅｃｔＣａｓｅ