［关键词］ excel软件；支票打印；应用
２００３年７月的《
我们需要定义一个新函数（大写日期），代码如下：
ｐｕｂｌｉｃ ｆｕｎｃｔｉｏｎ 中文日期（小写）
ａ＝ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（ｒｅｐｌａｃｅ（小写， ０， ＂零＂）， １， ＂壹＂）， ２， ＂贰＂）， ３， ＂叁＂）， ４， ＂肆＂）， ５， ＂伍＂）， ６， ＂陆＂）， ７， ＂柒＂）， ８， ＂捌＂）， ９， ＂玖＂）
ｓｅｌｅｃｔ ｃａｓｅ ｌｅｎ（小写）
ｃａｓｅ ２
ｉｆ ｍｉｄ（小写， ２， １） ＝ ０ ｔｈｅｎ
ｂ ＝ ＂零＂ ＆ ｍｉｄ（ａ， １， １） ＆ ＂拾＂
ｅｌｓｅ
ｂ ＝ ｍｉｄ（ａ， １， １） ＆ ＂拾＂ ＆ ｍｉｄ（ａ， ２， １）
ｅｎｄ ｉｆ
ｃａｓｅ １
ｂ ＝ ＂零＂ ＆ ｍｉｄ（ａ， １， １）
ｅｎｄ ｓｅｌｅｃｔ
中文日期 ＝ ｂ
ｅｎｄ ｆｕｎｃｔｉｏｎ
通过上面的代码结合单元格式设置及其他公式就可以实现年月日的大写模式。
2.3 支票信息管理
需要设计一个过程来实现支票信息管理，代码如下：
ｓｕｂ 打印支票（）
ｓｈｅｅｔｓ（＂支票打印＂）．ｓｅｌｅｃｔ
账号 ＝ ｒｉｇｈｔ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（２， １４）．ｖａｌｕｅ， ４）
ｓｅｌｅｃｔ ｃａｓｅ 账号
ｃａｓｅ ｉｓ ＝ ＂０３０９＂
判断 ＝ １
ｃａｓｅ ｅｌｓｅ
判断 ＝ ０
ｅｎｄ ｓｅｌｅｃｔ
ｉｆ 判断 ＝ １ ｔｈｅｎ
ｘ ＝ １
ｄｏ ｗｈｉｌｅ ｎｏｔ （ｉｓｅｍｐｔｙ（ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， １）．ｖａｌｕｅ））
ｘ ＝ ｘ ＋ １
ｌｏｏｐ
ｘ ＝ ｒａｎｇｅ（ｃｅｌｌｓ（１， ２）， ｃｅｌｌｓ（ｘ， ２））．ｃｏｕｎｔ
ｓｈｅｅｔｓ（＂支票打印＂）．ｓｅｌｅｃｔ
’判断支票本数ａ，ｆｐ为支票信息启始行
支票类型 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１， １）．ｖａｌｕｅ
支票类型ａ ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１３， １）．ｖａｌｕｅ
支票类型ｂ ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（２０， １）．ｖａｌｕｅ
ｓｅｌｅｃｔ ｃａｓｅ 支票类型’判断 ｎｕｍｂｅｒ 的值。
ｃａｓｅ 支票类型ａ
ｙ ＝ １３
ｃａｓｅ 支票类型ｂ
ｙ ＝ ２０
ｅｎｄ ｓｅｌｅｃｔ
ｆｐ ＝ ｙ
ｄｏ ｗｈｉｌｅ ｎｏｔ （ｉｓｅｍｐｔｙ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｆｐ， ２）．ｖａｌｕｅ））
ｆｐ ＝ ｆｐ ＋ １
ｌｏｏｐ
ａ ＝ ｒａｎｇｅ（ｃｅｌｌｓ（ｙ， ２）， ｃｅｌｌｓ（ｆｐ － １， ２））．ｃｏｕｎｔ
’选择符合打印条件的数据，判断是否有备用支票
ｉｆ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８， ２）．ｖａｌｕｅ ＝ ＂＂ ｔｈｅｎ
ｅｘｉｔ ｓｕｂ
ｅｌｓｅ
’ｎ为支票票信息启始行
日期 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（７， ２）．ｖａｌｕｅ
姓名 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８， ２）．ｖａｌｕｅ
金额 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（９， ２）．ｖａｌｕｅ
用途 ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（１０， ２）．ｖａｌｕｅ
ｎ ＝ ｙ
ｄｏ ｗｈｉｌｅ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， １１）．ｖａｌｕｅ ＝ ０
ｉｆ ｎ － ｙ ＞ ａ ｏｒ ｎ ＝ １８ ｏｒ ｎ ＝ ２５ ｔｈｅｎ
ｍｓｇｂｏｘ ＂没有备用支票＂
’如果没有发票跳出程序
ｅｘｉｔ ｓｕｂ
ｅｌｓｅ
ｎ ＝ ｎ ＋ １
ｅｎｄ ｉｆ
ｌｏｏｐ
’输入发票信息
ｐｊｈｍ１ ＝ ｖａｌ（ｍｉｄ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， ２）．ｖａｌｕｅ， ３， １０）） ＋ ｖａｌ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， ９）．ｖａｌｕｅ）
ｐｊｈｍ２ ＝ ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， ２）．ｖａｌｕｅ
ｐｊｈｍ３ ＝ ｖａｌ（ｍｉｄ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， ２）．ｖａｌｕｅ， ３， １０））
ｐｊｈｍ ＝ ｒｅｐｌａｃｅ（ｐｊｈｍ２， ｐｊｈｍ３， ｐｊｈｍ１）
ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， ９）．ｖａｌｕｅ ＝ ｖａｌ（ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（ｎ， ９）．ｖａｌｕｅ） ＋ １
ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， ２）．ｖａｌｕｅ ＝ 日期
ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， １）．ｖａｌｕｅ ＝ 姓名
ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， ４）．ｖａｌｕｅ ＝ 用途
ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， ３）．ｖａｌｕｅ ＝ 金额
ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， ５）．ｖａｌｕｅ ＝ 支票类型
ｓｈｅｅｔｓ（＂开票信息＂）．ｃｅｌｌｓ（ｘ， ６）．ｖａｌｕｅ ＝ ｐｊｈｍ
ａｃｔｉｖｅｗｉｎｄｏｗ．ｓｅｌｅｃｔｅｄｓｈｅｅｔｓ．ｐｒｉｎｔｏｕｔ ｃｏｐｉｅｓ：＝１， ｃｏｌｌａｔｅ：＝ｔｒｕｅ
ｓｈｅｅｔｓ（＂支票打印＂）．ｃｅｌｌｓ（８， ２）．ｖａｌｕｅ ＝ ＂＂
ｅｎｄ ｉｆ
ｘ ＝ ｘ ＋ １
ｅｌｓｅ
ｍｓｇｂｏｘ ＂本程序授权：龙泉市机关事务局＂， ， ＂非法用户！请联系１３６××××５４５４＂
ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ ＝ ｆａｌｓｅ
ｔｈｉｓｗｏｒｋｂｏｏｋ．ｃｌｏｓｅ
ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ ＝ ｔｒｕｅ
ｅｎｄ ｉｆ
ｅｎｄ ｓｕｂ
由于篇幅所限，不再对每个语句作详细的解释。为保证由授权单位使用，在过程还增加了判断是否为合法单位的语句，可以删除该部分语句，不影响使用。
2.4支票套打
（1）将工作表１（ｓｈｅｅｔ１）改名为“支票打印”，视图中的显示比例调整为１２５％。
（2）以浙江省的支票尺寸设置列宽及行高，其他省份如有不同需比照设置。
列宽：ａ（２．１３）ｂ（１７．２５）ｃ（３．１３）ｄ（５．５）ｅ（４．１３）ｆ（９．２５）ｇ（０．６９）ｈ（６．７５）ｉ（０．６２）ｊ（６．６３）ｋ（０．６９）ｌ（６）ｍ（３．２５）ｎ－ｘ（１．２５）
行宽：１（２４）２（１４．２５）３（１３．５）４（２２．５）５（１４．２５）６（１３．５）７（１６． ５）８（１４．２５）９（１４．２５）１０（１５）
（3）合并单元格：ａ１－ｂ６；ｃ１－ｅ１；ｆ１－ｇ１；ｎ１－ｘ１；ｃ２－ｄ２；ｅ２－ｋ２；ｎ２－ｘ２；ｃ３－ｄ４；ｅ３－ｌ４；ｄ５－ｇ５（此处的合并是用来填用途的，如果觉得太窄可以向后多合并几个单元格）；ａ１１－ｌ１１；ｍ１１－ｘ１１；ａ１２－ｂ１２；ｃ１２－ｆ１２；ｇ１２－ｈ１２；ｉ１２－ｊ１２；ｋ１２－ｌ１２；ａ１３－ａ１８；ｃ１３－ｆ１３；ｇ１３－ｈ１３；ｉ１３－ｊ１３；ｋ１３－ｌ１３；ｃ１４－ｆ１４；ｇ１４－ｈ１４；ｉ１４－ｊ１４；ｋ１４－ｌ１４；ｃ１５－ｆ１５；ｇ１５－ｈ１５；ｉ１５－ｊ１５；ｋ１５－ｌ１５；ｃ１６－ｆ１６；ｇ１６－ｈ１６；ｉ１６－ｊ１６；ｋ１６－ｌ１６；ｃ１７－ｆ１７；ｇ１７－ｈ１７；ｉ１７－ｊ１７；ｋ１７－ｌ１７；ｃ１８－ｆ１８；ｇ１８－ｈ１８；ｉ１８－ｊ１８；ｋ１８－ｌ１８；ａ１９－ｂ１９，ｃ１９－ｆ１９；ｇ１９－ｈ１９；ｉ１９－ｊ１９；ｋ１９－ｌ１９；ａ２０－ａ２５；ｃ２０－ｆ２０；ｇ２０－ｈ２０；ｉ２０－ｊ２０；ｋ２０－ｌ２０；ｃ２１－ｆ２１；ｇ２１－ｈ２１；ｉ２１－ｊ２１；ｋ２１－ｌ２１；ｃ２２－ｆ２２；ｇ２２－ｈ２２；ｉ２２－ｊ２２；ｋ２２－ｌ２２；ｃ２３－ｆ２３；ｇ２３－ｈ２３；ｉ２３－ｊ２３；ｋ２３－ｌ２３；ｃ２４－ｆ２４；ｇ２４－ｈ２４；ｉ２４－ｊ２４；ｋ２４－ｌ２４；ｃ２５－ｆ２５；ｇ２５－ｈ２５；ｉ２５－ｊ２５；ｋ２５－ｌ２５。
（4）单元格填充色及字体颜色：ａ１－ｘ２５填充色选养眼点的（如灰色５０％），其中ｂ８－b１０是日常使用时唯一需要填写的单元格，可以用其他容易识别的颜色，ａ１－ａ１０；ｄ２－ｄ４；ｃ５；ｌ１－ｌ２；ｑ３－ｘ３字体颜色选白色，其他单元格默认。
（5）单元格内容及公式：ａ１字体２４号，黑体，有效性设置为序列，内容（其中逗号以半角英文格式下录入，双引号不需输入）输入：“现金支票，转账支票”；ｃ１、ａ７填“出票日期”；ｃ２、ａ８填“收款人”；ｃ３填“人民币（大写）”；ｃ５、ａ１０填“用途”；ａ９填“金额”；ｌ１填“付款行名称”；ｌ２填“出票人账号”；ｏ３－ｘ３分别填：“仟”、“佰”、“拾”、“万”、“仟”、“佰”、“拾”、“元”、“角”、“分”。ｂ７公式“＝ｎｏｗ（）”，数字格式自定义“ｙｙｙｙｍｄ”，ｂ８如果收款人比较固定可以将有效性设置为序列，ｂ１０的用途内容也同理。ｂ９数字格式为“■＃，＃＃０．００；■－＃，＃＃０．００”即“会计专用，２位小数，货币符号■”，ｆ１公式“＝ｎｏｗ（）”，数字格式自定义“［ｄｂｎｕｍ２］ｙｙｙｙ”，ｆ２和ｆ３需套用自定义函数，公式为“＝中文日期（ｍｏｎｔｈ（ｎｏｗ（）））”及“ ＝中文日期（（ｄａｙ（ｎｏｗ（））））”。ｅ２公式“＝ｂ８”，ｅ３需套用自定义函数，公式为“＝中文金额（ｂ９）”，黑体１６号字加粗缩小字体自适宜较合适，ｄ５公式“＝ｂ１０”，ｎ１填对应开户行，ｎ２填对应账号（账号尾号需为“０３０９”，要填其他账号可以将宏语句修改或删除），ｎ４－ｘ４用来提取小写金额对应位置的数字，宋体１０号字加粗比较合适，公式如下：
ｎ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞１０，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－１０，１），＂＂）”
ｏ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞９，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－９，１），＂＂）”
ｐ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞８，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－８，１），＂＂）”
ｑ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞７，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－７，１），＂＂）”
ｒ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞６，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－６，１），＂＂）”
ｓ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞５，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－５，１），＂＂）”
ｔ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞４，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－４，１），＂＂）”
ｕ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞３，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－３，１），＂＂）”
ｖ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞２，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－２，１），＂＂）”
ｗ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞１，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００）－１，１），＂＂）”
ｘ４为“＝ｉｆ（ｌｅｎ（＂■＂＆■ｂ■９*１００）＞０，ｍｉｄ（＂■＂＆■ｂ■９*１００，ｌｅｎ（＂■＂＆■ｂ■９*１００），１），＂＂）”
ａ１１填“支票信息”；ｍ１１填“使用说明”；ａ１２填“转账支票启始号”；ａ１９填“现金支票启始号”；ｃ１２、ｃ１９填“支票结束号”；ｇ１２、ｇ１９填“份数”；ｉ１２、ｉ１９填“已用”；ｋ１２、ｋ１９填“未用”；ａ１３填“转账支票”；ａ１９填“现金支票”；ｂ１３－b１８；ｃ１３－c１８填入每本转账支票的开始号码和结束号码（号码前加符号“№”，只填号码中阿拉伯数字）；ｂ２０－b２５；ｃ２０－c２５填入每本现金支票的开始号码和结束号码；ｇ１３公式为“＝ｍｉｄｂ（ｃ１３，３，１０）－ｍｉｄｂ（ｂ１３，３，１０）＋１”；ｇ１４－１８、ｇ２０－２５公式类推；ｋ１３公式为“＝ｉｆ（ｔｙｐｅ（ｇ１３－ｉ１３）＝１，（ｇ１３－ｉ１３），０）”； ｋ１４－k１８、ｋ２０－k２５公式类推。以上所有单元格无说明时采用左对齐，为防止误删，将有公式的单元格设置为保护锁定和隐藏。
（6）建立一个按钮，打开“视图”—工具栏－控件工具箱－命令按钮，将按钮大小覆盖ｃ６－ｘ１０，名称为“务必点击此处打印”，字体及颜色要醒目，指定宏为原来设置好的“打印支票”，将宏格式设为：保护——锁定，属性——大小位置随单元格变化，打印对象为空。
（7）工作表２（ｓｈｅｅｔ２）改名为“开票信息”，ａ１－ｆ１分别填：“收款人”、“出票日期”、“金额”、“用途”、“支票类型”、“支票号码”。
（8）打印纸张的设置：点击桌面“开始”按钮—设置—控制面板，双击“打印机和传真”，在打开的窗口中空白处按右键，选择“服务器属性”，创建一个新格式纸张：尺寸为８ｃｍ×２２．６ｃｍ（有的打印机可能要设置为２２．６ｃｍ×８ｃｍ），然后回到工作表１ 中进行打印预览，在页面设置中选择“选项”，再次创建和刚才同尺寸的纸张格式，回到页面设置选择创建的纸张，缩放比例用９７％，方向需要根据不同打印机来选择，注意打印设置—工作表设置—按草稿打印选上，其他项都不选。
（9）测试阶段，将支票多复印几张，剪下（越精确越好），根据不同打印机横向或纵向放入进行打印，测试时无需通过设置的命令按钮“务必点击此处打印”来打印，根据误差来调整页面设置中的左边距和上边距，针式打印机还需调整进纸位置。还可以通过调整ｍ列宽度来微调，直到完全吻合后，对宏进行密码保护，对工作表进行保护，对文件保存时最好也加上密码另存，宏的安全性选“中”，使用时选同意启动宏。
3小结
实际使用时，我们只要填ｂ８（收款人），ｂ９（小写金额），ｂ１０（用途），确定无误后点击按钮（一定要通过按钮）就可以了。收款人为空程序不会打印，无支票程序会提示，所有开票信息程序都会记录，便于查找。
软件只考虑了同一银行一个账户的情况，若有多个账户在宏语句中要稍作修改。
图1为工作表“支票打印”截图，图2为打印预览效果图。
中国论文网(www.lunwen.net.cn)免费学术期刊论文发表,目录,论文查重入口,本科毕业论文怎么写,职称论文范文,论文摘要,论文文献资料,毕业论文格式,论文检测降重服务。
