浅谈用Excel设计的支票打印小应用的论文.docVIP

　　浅谈用Excel设计的支票打印小应用的论文 ［摘 要］ 本文从宏语句设计、单元格属性设置与函数应用、打印及纸张设置等方面详细介绍用excel软件设计的支票打印小应用，只需填入收款人、小写金额、内容3个项目即可实现打印支票的自动化，进行大写金额和大写日期的自动转化，记录已打印支票的各项信息，提供已用支票、未用支票张数，无空余支票提醒，无金额或无收款人时不执行打印等功能。 　　［关键词］ excel软件；支票打印；应用 　　　　 　　２００３年７月的《 　2.2 大写日期的自动填写 　　我们需要定义一个新函数（大写日期），代码如下： 　　ｐｕｂｌｉｃ ｆｕｎｃｔｉｏｎ 中文日期（小写） 　　ａ＝ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（小写， ０， ＂零＂）， １， ＂壹＂）， ２， ＂贰＂）， ３， ＂叁＂）， ４， ＂肆＂）， ５， ＂伍＂）， ６， ＂陆＂）， ７， ＂柒＂）， ８， ＂捌＂）， ９， ＂玖＂） 　　ｓｅｌｅｃｔ ｃａｓｅ ｌｅｎ（小写） 　　ｃａｓｅ ２ 　　ｉｆ ｍｉｄ（小写， ２， １） ＝ ０ ｔｈｅｎ ｂ ＝ ＂零＂ ＆ ｍｉｄ（ａ， １， １） ＆ ＂拾＂ 　　ｅｌｓｅ 　　ｂ ＝ ｍｉｄ（ａ， １， １） ＆ ＂拾＂ ＆ ｍｉｄ（ａ， ２， １） 　　ｅｎｄ ｉｆ 　　ｃａｓｅ １ 　　ｂ ＝ ＂零＂ ＆ ｍｉｄ（ａ， １， １） 　　ｅｎｄ ｓｅｌｅｃｔ 　　中文日期 ＝ ｂ 　　ｅｎｄ ｆｕｎｃｔｉｏｎ 　　通过上面的代码结合单元格式设置及其他公式就可以实现年月日的大写模式。. 　　2.3 支票信息管理 　　需要设计一个过程来实现支票信息管理，代码如下： 　　ｓｕｂ 打印支票（） 　　ｓｈｅｅｔｓ（＂支票打印＂）．ｓｅｌｅｃｔ 　　账号 ＝ ｒｉｇｈｔ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（２， １４）．ｖａｌｕｅ， ４） 　　ｓｅｌｅｃｔ ｃａｓｅ 账号 　　ｃａｓｅ ｉｓ ＝ ＂０３０９＂ 　　??断 ＝ １ 　　ｃａｓｅ ｅｌｓｅ 　　判断 ＝ ０ 　　ｅｎｄ ｓｅｌｅｃｔ 　　ｉｆ 判断 ＝ １ ｔｈｅｎ 　　ｘ ＝ １ 　　ｄｏ ｗｈｉｌｅ ｎｏｔ （ｉｓｅｍｐｔｙ（ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， １）．ｖａｌｕｅ）） 　　ｘ ＝ ｘ ＋ １ 　　ｌｏｏｐ 　　ｘ ＝ ｒａｎｇｅ（ｃｅｌｌｓ（１， ２）， ｃｅｌｌｓ（ｘ， ２））．ｃｏｕｎｔ 　　ｓｈｅｅｔｓ（＂支票打印＂）．ｓｅｌｅｃｔ 　　’判断支票本数ａ，ｆｐ为支票信息启始行 　　支票类型 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１， １）．ｖａｌｕｅ 　　支票类型ａ ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１３， １）．ｖａｌｕｅ 　　支票类型ｂ ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（２０， １）．ｖａｌｕｅ 　　ｓｅｌｅｃｔ ｃａｓｅ 支票类型’判断 ｎｕｍｂｅｒ 的值。 　　ｃａｓｅ 支票类型ａ 　　ｙ ＝ １３ 　　ｃａｓｅ 支票类型ｂ 　　ｙ ＝ ２０ 　　ｅｎｄ ｓｅｌｅｃｔ 　　ｆｐ ＝ ｙ 　　ｄｏ ｗｈｉｌｅ ｎｏｔ （ｉｓｅｍｐｔｙ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｆｐ， ２）．ｖａｌｕｅ）） 　　ｆｐ ＝ ｆｐ ＋ １ 　　ｌｏｏｐ 　　ａ ＝ ｒａｎｇｅ（ｃｅｌｌｓ（ｙ， ２）， ｃｅｌｌｓ（ｆｐ － １， ２））．ｃｏｕｎｔ 　　 ’选择符合打印条件的数据，判断是否有备用支票 　　ｉｆ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８， ２）．ｖａｌｕｅ ＝ ＂＂ ｔｈｅｎ 　　ｅｘｉｔ ｓｕｂ 　　ｅｌｓｅ 　　’ｎ为支票票信息启始行 　　日期 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（７， ２）．ｖａｌｕｅ 　　姓名 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８， ２）．ｖａｌｕｅ 　　金额 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（９， ２）．ｖａｌｕｅ 　　用途 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１０， ２）．ｖａｌｕｅ 　　ｎ ＝ ｙ 　　ｄｏ ｗｈｉｌｅ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， １１）．ｖａｌｕｅ ＝ ０ 　　ｉｆ ｎ － ｙ ＞ ａ ｏｒ ｎ ＝ １８ ｏｒ ｎ ＝ ２５ ｔｈｅｎ 　　ｍｓｇｂｏｘ ＂没有备用支票＂ 　　’如果没有发票跳出程序 　　ｅｘｉｔ ｓｕｂ 　　ｅｌｓｅ 　　ｎ ＝