用Excel设计支票打印小应用.docVIP

用Excel设计支票打印小应用 　　［摘 要］ 本文从宏语句设计、单元格属性设置与函数应用、打印及纸张设置等方面详细介绍用Excel软件设计的支票打印小应用，只需填入收款人、小写金额、内容3个项目即可实现打印支票的自动化，进行大写金额和大写日期的自动转化，记录已打印支票的各项信息，提供已用支票、未用支票张数，无空余支票提醒，无金额或无收款人时不执行打印等功能。 　　［关键词］ Excel软件；支票打印；应用 　　doi : 10 . 3969 / j . issn . 1673 - 0194 . 2011 . 04. 003 　　［中图分类号］F232 ［文献标识码］A ［文章编号］1673 - 0194（2011）04- 0008- 04 　　 　　２００３年７月的《中国会计电算化》杂志上曾刊登过一篇笔者关于打印票据的文章，后在实践中笔者对Excel的应用有了更深的理解和认识，现将新的票据打印应用进行重新整理。 　　原来的应用主要是使用Ｗord的邮件合并功能，后来在使用中感觉还是比较麻烦，需要用到Ｗord和Excel软件。新应用放弃了邮件合并功能，只用到Excel软件。 　　 　　1设计思路 　　 　　支票打印需要输入的项目为：收款人、日期、款项内容、开户银行及账号、大小写金额。 　　首先，希望只需要输入收款人、款项内容、小写金额就可以完成所有填开项目。如果收款人和款项内容是比较固定的，最好通过下拉框选择输入。大写日期和大写金额能自动填写。 　　其次，希望系统实现对支票信息的管理，即能记录每一张支票的开票时间、收款人、款项内容、金额等信息，同时能提供已开支票张数、未开支票张数，无空余支票时能提醒购买新支票。 　　此外，软件应该能在无金额或无收款人时不执行打印。 　　 　　2设计过程 　　 　　根据上述思路，需要充分利用Excel的各项功能，特别是宏的设计。 　　2.1大写金额的自动填写 　　默认金额最大为玖仟玖佰玖拾玖万玖仟玖佰玖拾玖元玖角玖分。在此需要自定义一个函数（大写金额），打开Excel软件，在工具下选择“宏”，打开ＶＢ编辑器，插入一个新模块，在其中建立一个函数，其代码如下： 　　Ｐｕｂｌｉｃ Ｆｕｎｃｔｉｏｎ 中文金额（小写） 　　Ａ＝Ｒｅｐｌａｃｅ（Ｒｅ??ｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（Ｒｅｐｌａｃｅ（小写*１００， ０， ＂零＂）， １， ＂壹＂）， ２， ＂贰＂）， ３， ＂叁＂）， ４， ＂肆＂）， ５， ＂伍＂）， ６， ＂陆＂）， ７， ＂柒＂）， ８， ＂捌＂）， ９， ＂玖＂） 　　Ｓｅｌｅｃｔ Ｃａｓｅ Ｌｅｎ（小写*１００） 　　Ｃａｓｅ １０ 　　Ｂ ＝ Ｍｉｄ（Ａ， １， １） ＆ ＂仟＂ ＆ Ｍｉｄ（Ａ， ２， １） ＆ ＂佰＂ ＆ Ｍｉｄ（Ａ， ３， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ４， １） ＆ ＂万＂ ＆ Ｍｉｄ（Ａ， ５， １） ＆ ＂仟＂ ＆ Ｍｉｄ（Ａ， ６， １） ＆ ＂佰＂ ＆ Ｍｉｄ（Ａ， ７， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ８， １） ＆ ＂元＂ ＆ Ｍｉｄ（Ａ， ９， １） ＆ ＂角＂ ＆ Ｍｉｄ（Ａ， １０， １） ＆ ＂分＂ 　　Ｃａｓｅ ９ 　　Ｂ ＝ Ｍｉｄ（Ａ， １， １） ＆ ＂佰＂ ＆ Ｍｉｄ（Ａ， ２， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ３， １） ＆ ＂万＂ ＆ Ｍｉｄ（Ａ， ４， １） ＆ ＂仟＂ ＆ Ｍｉｄ（Ａ， ５， １） ＆ ＂佰＂ ＆ Ｍｉｄ（Ａ， ６， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ７， １） ＆ ＂元＂ ＆ Ｍｉｄ（Ａ， ８， １） ＆ ＂角＂ ＆ Ｍｉｄ（Ａ， ９， １） ＆ ＂分＂ 　　Ｃａｓｅ ８ 　　Ｂ ＝ Ｍｉｄ（Ａ， １， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ２， １） ＆ ＂万＂ ＆ Ｍｉｄ（Ａ， ３， １） ＆ ＂仟＂ ＆ Ｍｉｄ（Ａ， ４， １） ＆ ＂佰＂ ＆ Ｍｉｄ（Ａ， ５， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ６， １） ＆ ＂元＂ ＆ Ｍｉｄ（Ａ， ７， １） ＆ ＂角＂ ＆ Ｍｉｄ（Ａ， ８， １） ＆ ＂分＂ 　　Ｃａｓｅ ７ 　　Ｂ ＝ Ｍｉｄ（Ａ， １， １） ＆ ＂万＂ ＆ Ｍｉｄ（Ａ， ２， １） ＆ ＂仟＂ ＆ Ｍｉｄ（Ａ， ３， １） ＆ ＂佰＂ ＆ Ｍｉｄ（Ａ， ４， １） ＆ ＂拾＂ ＆ Ｍｉｄ（Ａ， ５， １） ＆ ＂元＂ ＆ Ｍｉｄ（Ａ， ６， １） ＆ ＂角＂ ＆ Ｍｉｄ（Ａ， ７， １） ＆ ＂分＂ 　　Ｃａｓｅ ６ 　　Ｂ ＝ Ｍｉｄ（Ａ， １， １） ＆ ＂仟＂ ＆ Ｍｉｄ（Ａ， ２， １） ＆ ＂佰＂