利用Excel自动生成询证函方法探讨

　　Ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．Ｒａｎｇｅ（ｊ ＆ ９）．Ｆｏｒｍｕｌａ ＝ Ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（ｉ ＆ ｆ ＋ ４）
　　Ｅｌｓｅ
　　Ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．Ｒａｎｇｅ（ｊ ＆ ９）．Ｆｏｒｍｕｌａ ＝ ＂无＂
　　Ｅｎｄ Ｉｆ
　　Ｎｅｘｔ
　　Ｓｈｅｅｔｓ（＂模板＂）．Ｓｅｌｅｃｔ
　　Ｒａｎｇｅ（＂Ａ９：ｄ９＂）．Ｓｅｌｅｃｔ
　　Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ
　　Ｓｈｅｅｔｓ（＂询证函＂）．Ｓｅｌｅｃｔ
　　Ｒａｎｇｅ（＂ａ＂ ＆ ｃ）．Ｓｅｌｅｃｔ
　　ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ
　　ｃ ＝ ｃ ＋ １
　　′设置表体的签章等内容
　　Ｓｈｅｅｔｓ（＂模板＂）．Ｓｅｌｅｃｔ
　　Ｒａｎｇｅ（＂Ａ１０：ｄ２６＂）．Ｓｅｌｅｃｔ
　　Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ
　　Ｓｈｅｅｔｓ（＂询证函＂）．Ｓｅｌｅｃｔ
　　 Ｒａｎｇｅ（＂ａ＂ ＆ ｃ）．Ｓｅｌｅｃｔ
　　ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ
　　Ｒａｎｇｅ（＂ａ＂ ＆ ｃ ＋ １）．ＲｏｗＨｅｉｇｈｔ ＝ ３９
　　Ｒａｎｇｅ（＂ａ＂ ＆ ｃ ＋ １４）．ＲｏｗＨｅｉｇｈｔ ＝ ３９
　　ｃ ＝ ｃ ＋ １７
　　′插入分页符
　　Ｒａｎｇｅ（＂Ａ＂ ＆ ｃ）．Ｓｅｌｅｃｔ
　　ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＨＰａｇｅＢｒｅａｋｓ．Ａｄｄ Ｂｅｆｏｒｅ：＝ＡｃｔｉｖｅＣｅｌｌ
　　′一个单位的询证函生成完毕
　　Ｎｅｘｔ
　　Ｅｎｄ Ｓｕｂ
　　通过运行以上宏代码，最终形成的询证函如图３所示。利用Excel自动生成询证函，使审计人员摆脱了烦琐的重复劳动，提高了工作效率和质量，对审计人员具有极大的帮助。