浅谈用excel设计的支票打印小应用的论文

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

1、浅谈用Excel设计的支票打印小应用的论文［摘要］本文从宏语句设计、单元格属性设置与函数应用、打印及纸张设置等方面详细介绍用excel软件设计的支票打印小应用，只需填入收款人、小写金额、内容3个项目即可实现打印支票的自动化，进行大写金额和大写日期的自动转化，记录已打印支票的各项信息，提供已用支票、未用支票张数，无空余支票提醒，无金额或无收款人时不执行打印等功能。　　［关键词］excel软件；支票打印；应用　　　　　　２００３年７月的《　2.2大写日期的自动填写　　我们需要定义一个新函数（大写日期），代码如下：　　ｐｕｂｌｉｃｆｕ

2、ｎｃｔｉｏｎ中文日期（小写）　　ａ＝ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（小写，０，＂零＂），１，＂壹＂），２，＂贰＂），３，＂叁＂），４，＂肆＂），５，＂伍＂），６，＂陆＂），７，＂柒＂），８，＂捌＂），９，＂玖＂）　　ｓｅｌｅｃｔｃａｓｅｌｅｎ（小写）　　ｃａｓｅ２　　ｉｆｍｉｄ（小写，２，１）＝０ｔｈｅｎｂ＝＂零＂＆ｍｉｄ（ａ，１，１）＆＂拾＂　　ｅｌｓｅ　　ｂ＝ｍｉｄ（ａ，１，１）＆＂拾＂＆ｍｉｄ（ａ

3、，２，１）　　ｅｎｄｉｆ　　ｃａｓｅ１　　ｂ＝＂零＂＆ｍｉｄ（ａ，１，１）　　ｅｎｄｓｅｌｅｃｔ　　中文日期＝ｂ　　ｅｎｄｆｕｎｃｔｉｏｎ　　通过上面的代码结合单元格式设置及其他公式就可以实现年月日的大写模式。wWW.11665.coM　　2.3支票信息管理　　需要设计一个过程来实现支票信息管理，代码如下：　　ｓｕｂ打印支票（）　　ｓｈｅｅｔｓ（＂支票打印＂）．ｓｅｌｅｃｔ　　账号＝ｒｉｇｈｔ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（２，１４）．ｖａｌｕｅ，４）　　ｓｅｌｅｃｔｃａｓｅ账号　　ｃａｓｅｉｓ＝＂０３０９＂　　判断

4、＝１　　ｃａｓｅｅｌｓｅ　　判断＝０　　ｅｎｄｓｅｌｅｃｔ　　ｉｆ判断＝１ｔｈｅｎ　　ｘ＝１　　ｄｏｗｈｉｌｅｎｏｔ（ｉｓｅｍｐｔｙ（ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ，１）．ｖａｌｕｅ））　　ｘ＝ｘ＋１　　ｌｏｏｐ　　ｘ＝ｒａｎｇｅ（ｃｅｌｌｓ（１，２），ｃｅｌｌｓ（ｘ，２））．ｃｏｕｎｔ　　ｓｈｅｅｔｓ（＂支票打印＂）．ｓｅｌｅｃｔ　　’判断支票本数ａ，ｆｐ为支票信息启始行　　支票类型＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１，１）．ｖａｌｕｅ　　支票类型ａ＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１３，１）

5、．ｖａｌｕｅ　　支票类型ｂ＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（２０，１）．ｖａｌｕｅ　　ｓｅｌｅｃｔｃａｓｅ支票类型’判断ｎｕｍｂｅｒ的值。　　ｃａｓｅ支票类型ａ　　ｙ＝１３　　ｃａｓｅ支票类型ｂ　　ｙ＝２０　　ｅｎｄｓｅｌｅｃｔ　　ｆｐ＝ｙ　　ｄｏｗｈｉｌｅｎｏｔ（ｉｓｅｍｐｔｙ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｆｐ，２）．ｖａｌｕｅ））　　ｆｐ＝ｆｐ＋１　　ｌｏｏｐ　　ａ＝ｒａｎｇｅ（ｃｅｌｌｓ（ｙ，２），ｃｅｌｌｓ（ｆｐ－１，２））．ｃｏｕｎｔ　　’选择符合打印条件的数据，判断是否有备用支票　　ｉｆｓｈｅ

6、ｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８，２）．ｖａｌｕｅ＝＂＂ｔｈｅｎ　　ｅｘｉｔｓｕｂ　　ｅｌｓｅ　　’ｎ为支票票信息启始行　　日期＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（７，２）．ｖａｌｕｅ　　姓名＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８，２）．ｖａｌｕｅ　　金额＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（９，２）．ｖａｌｕｅ　　用途＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１０，２）．ｖａｌｕｅ　　ｎ＝ｙ　　ｄｏｗｈｉｌｅｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，１１）．ｖａｌｕｅ＝０　　ｉｆｎ－ｙ＞ａｏｒ

7、ｎ＝１８ｏｒｎ＝２５ｔｈｅｎ　　ｍｓｇｂｏｘ＂没有备用支票＂　　’如果没有发票跳出程序　　ｅｘｉｔｓｕｂ　　ｅｌｓｅ　　ｎ＝ｎ＋１　　ｅｎｄｉｆ　　ｌｏｏｐ　　’输入发票信息　　ｐｊｈｍ１＝ｖａｌ（ｍｉｄ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，２）．ｖａｌｕｅ，３，１０））＋ｖａｌ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，９）．ｖａｌｕｅ）　　ｐｊｈｍ２＝ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，２）．ｖａｌｕｅ　　ｐｊｈｍ３＝ｖａｌ（ｍｉｄ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，２）．ｖａｌｕｅ，３，

8、１０））　　ｐｊｈｍ＝ｒｅｐｌａｃｅ（ｐｊｈｍ２，ｐｊｈｍ３，ｐｊｈｍ１）　　ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，９）．ｖａｌｕｅ＝ｖａｌ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ，９）．ｖａｌｕｅ）＋１　　ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ