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

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

Excel软件；支票打印；应用

２００３年７月的《中国会计电算化》杂志上曾刊登过一篇笔者关于打印票据的文章，后在实践中笔者对Excel的应用有了更深的理解和认识，现将新的票据打印应用进行重新整理。

原来的应用主要是使用Ｗord的邮件合并功能，后来在使用中感觉还是比较麻烦，需要用到Ｗord和Excel软件。新应用放弃了邮件合并功能，只用到Excel软件。

1设计思路

支票打印需要输入的项目为：收款人、日期、款项内容、开户银行及账号、大小写金额。

首先，希望只需要输入收款人、款项内容、小写金额就可以完成所有填开项目。如果收款人和款项内容是比较固定的，最好通过下拉框选择输入。大写日期和大写金额能自动填写。

其次，希望系统实现对支票信息的管理，即能记录每一张支票的开票时间、收款人、款项内容、金额等信息，同时能提供已开支票张数、未开支票张数，无空余支票时能提醒购买新支票。

此外，软件应该能在无金额或无收款人时不执行打印。

2设计过程

根据上述思路，需要充分利用Excel的各项功能，特别是宏的设计。

大写金额的自动填写

默认金额最大为玖仟玖佰玖拾玖万玖仟玖佰玖拾玖元玖角玖分。在此需要自定义一个函数，打开Excel软件，在工具下选择“宏”，打开ＶＢ编辑器，插入一个新模块，在其中建立一个函数，其代码

ＰｕｂｌｉｃＦｕｎｃｔｉｏｎ中文金额

Ａ＝Ｒｅｐｌａｃｅ，１，＂壹＂），２，＂贰＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陆＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）

ＳｅｌｅｃｔＣａｓｅＬｅｎ

Ｃａｓｅ１０

Ｂ＝Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ９

Ｂ＝Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ８

Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ７

Ｂ＝Ｍｉｄ＆＂万＂＆Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ６

Ｂ＝Ｍｉｄ＆＂仟＂＆Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ５

Ｂ＝Ｍｉｄ＆＂佰＂＆Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ４

Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ３

Ｂ＝Ｍｉｄ＆＂元＂＆Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ２

Ｂ＝Ｍｉｄ＆＂角＂＆Ｍｉｄ＆＂分＂

Ｃａｓｅ１

Ｂ＝Ｍｉｄ＆＂分＂

ＥｎｄＳｅｌｅｃｔ

中文金额＝Ｂ

ＦｏｒＣ＝４Ｔｏ１Ｓｔｅｐ－１’建立４次循环。

中文金额＝Ｒｅｐｌａｃｅ，＂零仟＂，＂零＂），＂零佰＂，＂零＂），＂零拾＂，＂零＂），＂零角零分＂，＂整＂），＂零角＂，＂零＂），＂零分＂，＂整＂），＂零零＂，＂零＂），＂零元＂，＂元＂）

ＮｅｘｔＣ

ＥｎｄＦｕｎｃｔｉｏｎ

上面的代码通过不断反复使用Ｒｅｐｌａｃｅ命令将小写金额的数字进行替换，最后转换为大写金额。

大写日期的自动填写

我们需要定义一个新函数，代码

ＰｕｂｌｉｃＦｕｎｃｔｉｏｎ中文日期

Ａ＝Ｒｅｐｌａｃｅ，１，＂壹＂），２，＂贰＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陆＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）

ＳｅｌｅｃｔＣａｓｅＬｅｎ

Ｃａｓｅ２

ＩｆＭｉｄ＝０Ｔｈｅｎ

Ｂ＝＂零＂＆Ｍｉｄ＆＂拾＂

Ｅｌｓｅ

Ｂ＝Ｍｉｄ＆＂拾＂＆Ｍｉｄ

ＥｎｄＩｆ

Ｃａｓｅ１

Ｂ＝＂零＂＆Ｍｉｄ

ＥｎｄＳｅｌｅｃｔ

中文日期＝Ｂ

ＥｎｄＦｕｎｃｔｉｏｎ

通过上面的代码结合单元格式设置及其他公式就可以实现年月日的大写模式。

支票信息管理

需要设计一个过程来实现支票信息管理，代码

Ｓｕｂ打印支票

Ｓｈｅｅｔｓ．Ｓｅｌｅｃｔ

账号＝Ｒｉｇｈｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ，４）

ＳｅｌｅｃｔＣａｓｅ账号

ＣａｓｅＩｓ＝＂０３０９＂

判断＝１

ＣａｓｅＥｌｓｅ

判断＝０

ＥｎｄＳｅｌｅｃｔ

Ｉｆ判断＝１Ｔｈｅｎ

ｘ＝１

ＤｏＷｈｉｌｅＮｏｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ））

ｘ＝ｘ＋１

Ｌｏｏｐ

ｘ＝Ｒａｎｇｅ，Ｃｅｌｌｓ）．Ｃｏｕｎｔ

Ｓｈｅｅｔｓ．Ｓｅｌｅｃｔ

’判断支票本数ａ，ｆｐ为支票信息启始行

支票类型＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

支票类型Ａ＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

支票类型Ｂ＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

ＳｅｌｅｃｔＣａｓｅ支票类型’判断Ｎｕｍｂｅｒ的值。

Ｃａｓｅ支票类型Ａ

Ｙ＝１３

Ｃａｓｅ支票类型Ｂ

Ｙ＝２０

ＥｎｄＳｅｌｅｃｔ

ｆｐ＝Ｙ

ＤｏＷｈｉｌｅＮｏｔ．Ｃｅｌｌｓ．Ｖａｌｕｅ））

ｆｐ＝ｆｐ＋１

Ｌｏｏｐ

Ａ＝Ｒａｎｇｅ，Ｃｅｌｌｓ）．Ｃｏｕｎｔ

’选择符合打印条件的数据，判断是否有备用支票

ＩｆＳｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝＂＂Ｔｈｅｎ

ＥｘｉｔＳｕｂ

Ｅｌｓｅ

’ｎ为支票票信息启始行

日期＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

姓名＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

金额＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

用途＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

ｎ＝Ｙ

ＤｏＷｈｉｌｅＳｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝０

Ｉｆｎ－Ｙ＞ＡＯｒｎ＝１８Ｏｒｎ＝２５Ｔｈｅｎ

ＭｓｇＢｏｘ＂没有备用支票＂

’如果没有发票跳出程序

ＥｘｉｔＳｕｂ

Ｅｌｓｅ

ｎ＝ｎ＋１

ＥｎｄＩｆ

Ｌｏｏｐ

’输入发票信息

ｐｊｈｍ１＝Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ，３，１０））＋Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ）

ｐｊｈｍ２＝Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ

ｐｊｈｍ３＝Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ，３，１０））

ｐｊｈｍ＝Ｒｅｐｌａｃｅ

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝Ｖａｌ．Ｃｅｌｌｓ．Ｖａｌｕｅ）＋１

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝日期

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝姓名

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝用途

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝金额

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝支票类型

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝ｐｊｈｍ

ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＰｒｉｎｔＯｕｔＣｏｐｉｅｓ：＝１，Ｃｏｌｌａｔｅ：＝Ｔｒｕｅ

Ｓｈｅｅｔｓ．Ｃｅｌｌｓ．Ｖａｌｕｅ＝＂＂

ＥｎｄＩｆ

ｘ＝ｘ＋１

Ｅｌｓｅ

ＭｓｇＢｏｘ＂本程序授权：龙泉市机关事务局＂，，＂非法用户！请联系１３６××××５４５４＂

Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｆａｌｓｅ

ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｃｌｏｓｅ

Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｔｒｕｅ

ＥｎｄＩｆ

ＥｎｄＳｕｂ

由于篇幅所限，不再对每个语句作详细的解释。为保证由授权单位使用，在过程还增加了判断是否为合法单位的语句，可以删除该部分语句，不影响使用。

支票套打

将工作表１改名为“支票打印”，视图中的显示比例调整为１２５％。

以浙江省的支票尺寸设置列宽及行高，其他省份如有不同需比照设置。

列宽：ＡＢＣＤＥＦＧＨＩＪＫＬＭＮ－Ｘ

行宽：１２３４５６７８９１０

以上尺寸除Ｍ列用来微调外，其他切勿调整！

合并单元格：Ａ１－Ｂ６；Ｃ１－Ｅ１；Ｆ１－Ｇ１；Ｎ１－Ｘ１；Ｃ２－Ｄ２；Ｅ２－Ｋ２；Ｎ２－Ｘ２；Ｃ３－Ｄ４；Ｅ３－Ｌ４；Ｄ５－Ｇ５；Ａ１１－Ｌ１１；Ｍ１１－Ｘ１１；Ａ１２－Ｂ１２；Ｃ１２－Ｆ１２；Ｇ１２－Ｈ１２；Ｉ１２－Ｊ１２；Ｋ１２－Ｌ１２；Ａ１３－Ａ１８；Ｃ１３－Ｆ１３；Ｇ１３－Ｈ１３；Ｉ１３－Ｊ１３；Ｋ１３－Ｌ１３；Ｃ１４－Ｆ１４；Ｇ１４－Ｈ１４；Ｉ１４－Ｊ１４；Ｋ１４－Ｌ１４；Ｃ１５－Ｆ１５；Ｇ１５－Ｈ１５；Ｉ１５－Ｊ１５；Ｋ１５－Ｌ１５；Ｃ１６－Ｆ１６；Ｇ１６－Ｈ１６；Ｉ１６－Ｊ１６；Ｋ１６－Ｌ１６；Ｃ１７－Ｆ１７；Ｇ１７－Ｈ１７；Ｉ１７－Ｊ１７；Ｋ１７－Ｌ１７；Ｃ１８－Ｆ１８；Ｇ１８－Ｈ１８；Ｉ１８－Ｊ１８；Ｋ１８－Ｌ１８；Ａ１９－Ｂ１９，Ｃ１９－Ｆ１９；Ｇ１９－Ｈ１９；Ｉ１９－Ｊ１９；Ｋ１９－Ｌ１９；Ａ２０－Ａ２５；Ｃ２０－Ｆ２０；Ｇ２０－Ｈ２０；Ｉ２０－Ｊ２０；Ｋ２０－Ｌ２０；Ｃ２１－Ｆ２１；Ｇ２１－Ｈ２１；Ｉ２１－Ｊ２１；Ｋ２１－Ｌ２１；Ｃ２２－Ｆ２２；Ｇ２２－Ｈ２２；Ｉ２２－Ｊ２２；Ｋ２２－Ｌ２２；Ｃ２３－Ｆ２３；Ｇ２３－Ｈ２３；Ｉ２３－Ｊ２３；Ｋ２３－Ｌ２３；Ｃ２４－Ｆ２４；Ｇ２４－Ｈ２４；Ｉ２４－Ｊ２４；Ｋ２４－Ｌ２４；Ｃ２５－Ｆ２５；Ｇ２５－Ｈ２５；Ｉ２５－Ｊ２５；Ｋ２５－Ｌ２５。

单元格填充色及字体颜色：Ａ１－Ｘ２５填充色选养眼点的，其中Ｂ８－B１０是日常使用时唯一需要填写的单元格，可以用其他容易识别的颜色，Ａ１－Ａ１０；Ｄ２－Ｄ４；Ｃ５；Ｌ１－Ｌ２；Ｑ３－Ｘ３字体颜色选白色，其他单元格默认。

单元格内容及公式：Ａ１字体２４号，黑体，有效性设置为序列，内容输入：“现金支票，转账支票”；Ｃ１、Ａ７填“出票日期”；Ｃ２、Ａ８填“收款人”；Ｃ３填“人民币”；Ｃ５、Ａ１０填“用途”；Ａ９填“金额”；Ｌ１填“付款行名称”；Ｌ２填“出票人账号”；Ｏ３－Ｘ３分别填：“仟”、“佰”、“拾”、“万”、“仟”、“佰”、“拾”、“元”、“角”、“分”。Ｂ７公式“＝ＮＯＷ”，数字格式自定义“ｙｙｙｙｍｄ”，Ｂ８如果收款人比较固定可以将有效性设置为序列，Ｂ１０的用途内容也同理。Ｂ９数字格式为“■＃，＃＃０．００；■－＃，＃＃０．００”即“会计专用，２位小数，货币符号■”，Ｆ１公式“＝ＮＯＷ”，数字格式自定义“［ＤＢＮｕｍ２］ｙｙｙｙ”，Ｆ２和Ｆ３需套用自定义函数，公式为“＝中文日期））”及“＝中文日期）））”。Ｅ２公式“＝Ｂ８”，Ｅ３需套用自定义函数，公式为“＝中文金额”，黑体１６号字加粗缩小字体自适宜较合适，Ｄ５公式“＝Ｂ１０”，Ｎ１填对应开户行，Ｎ２填对应账号，Ｎ４－Ｘ４用来提取小写金额对应位置的数字，宋体１０号字加粗比较合适，公式

Ｎ４为“＝ＩＦ＞１０，ＭＩＤ－１０，１），＂＂）”

Ｏ４为“＝ＩＦ＞９，ＭＩＤ－９，１），＂＂）”

Ｐ４为“＝ＩＦ＞８，ＭＩＤ－８，１），＂＂）”

Ｑ４为“＝ＩＦ＞７，ＭＩＤ－７，１），＂＂）”

Ｒ４为“＝ＩＦ＞６，ＭＩＤ－６，１），＂＂）”

Ｓ４为“＝ＩＦ＞５，ＭＩＤ－５，１），＂＂）”

Ｔ４为“＝ＩＦ＞４，ＭＩＤ－４，１），＂＂）”

Ｕ４为“＝ＩＦ＞３，ＭＩＤ－３，１），＂＂）”

Ｖ４为“＝ＩＦ＞２，ＭＩＤ－２，１），＂＂）”

Ｗ４为“＝ＩＦ＞１，ＭＩＤ－１，１），＂＂）”

Ｘ４为“＝ＩＦ＞０，ＭＩＤ，１），＂＂）”

Ａ１１填“支票信息”；Ｍ１１填“使用说明”；Ａ１２填“转账支票启始号”；Ａ１９填“现金支票启始号”；Ｃ１２、Ｃ１９填“支票结束号”；Ｇ１２、Ｇ１９填“份数”；Ｉ１２、Ｉ１９填“已用”；Ｋ１２、Ｋ１９填“未用”；Ａ１３填“转账支票”；Ａ１９填“现金支票”；Ｂ１３－B１８；Ｃ１３－C１８填入每本转账支票的开始号码和结束号码；Ｂ２０－B２５；Ｃ２０－C２５填入每本现金支票的开始号码和结束号码；Ｇ１３公式为“＝ＭＩＤＢ－ＭＩＤＢ＋１”；Ｇ１４－１８、Ｇ２０－２５公式类推；Ｋ１３公式为“＝ＩＦ＝１，，０）”；Ｋ１４－K１８、Ｋ２０－K２５公式类推。以上所有单元格无说明时采用左对齐，为防止误删，将有公式的单元格设置为保护锁定和隐藏。

建立一个按钮，打开“视图”—工具栏－控件工具箱－命令按钮，将按钮大小覆盖Ｃ６－Ｘ１０，名称为“务必点击此处打印”，字体及颜色要醒目，指定宏为原来设置好的“打印