［摘要］ 本文讨论如何利用excel的vba实现询证函的自动生成，介绍了具体实现办法。
　　［关键词］ 应收账款；内部控制；措施

　　１前言
　　
　　询证函是由公司以公司名义或审计师（或其他鉴证业务执行人）以被审计者的名义向公司（或被审计者）的债权人和债务人发出的询证函，用以检查特定日期债权或债务的存在和权利或义务。按照审计准则的规定，所有的银行账户，包括审计期间内销户的账户都应当进行函证，对于重要的往来对象应当予以函证。公司加强管理时也需进行函证。根据被询证人的不同，询证函可以分为银行询证函、企业询证函、律师询证函、其他询证函。询证函是审计师审计工作底稿的重要组成部分，也是公司加强款项管理的重要依据。但是，填写询证函是一项烦琐的工作，如果能通过计算机自动生成询证函，将大大减轻工作人员的工作，提高工作效率和质量。本文主要讨论询证函的自动生成办法。
　　
　　２询证函生成办法
　　
　　询证函的设计服从于企业管理或审计目标的需要，同时方便公司人员或审计人员的操作。本文以excel为工具，通过ｖｂａ编写审计人员填写往来询证函的自动生成工具。
　　首先，设置３个工作表，分别命名为“模板”、“往来信息表”、“询证函”。其中“模板”用于设置询证函的格式（如图1所示），“往来信息表”用于设置需要函证的单位信息（如图2所示），“询证函”为最终自动生成的询证函。
　　设置完“模板”和“企业信息表”后，我们开始编写实现生成询证函的宏。wwW.11665.Com具体内容如下：
　　ｓｕｂ 询证函（）
　　ｄｉｍ ｄ ａｓ ｒａｎｇｅ
　　ｄｉｍ ｔｏｔａｌｒｏｗ， ｃ， ｅ， ｆ，ｉ，ｊ
　　ｔｏｔａｌｒｏｗ ＝ ３００′设置往来单位个数
　　ｃ ＝ １
　　ｍ ＝ １
　　 ｆｏｒ ｆ ＝ １ ｔｏ ｔｏｔａｌｒｏｗ
　　ｉｆ ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．ｒａｎｇｅ（＂ｂ＂ ＆ ｆ ＋ ４） ＝ ＂＂ ｔｈｅｎ
　　ｅｘｉｔ ｆｏｒ
　　ｅｎｄ ｉｆ
　　ｉｆ ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．ｒａｎｇｅ（＂ｂ＂ ＆ ｆ ＋ ４） ＝ ＂√＂ ｔｈｅｎ
　　ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．ｒａｎｇｅ（＂ａ３＂）．ｆｏｒｍｕｌａ ＝ ＂致＂ ＆ ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．ｒａｎｇｅ（＂ｃ＂ ＆ ｆ ＋ ４） ＆ ＂：＂
　　ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．ｒａｎｇｅ（＂ｄ２＂）．ｆｏｒｍｕｌａ ＝ ＂发函编号：＂ ＆ ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．ｒａｎｇｅ（＂ａ＂ ＆ ｆ ＋ ４）
　　ｅｎｄ ｉｆ
　　′设置询证函表体内容，内容来自“模板”工作表
　　ｓｈｅｅｔｓ（＂模板＂）．ｓｅｌｅｃｔ
　　ｒａｎｇｅ（＂ａ１：ｄ８＂）．ｓｅｌｅｃｔ
　　ｓｅｌｅｃｔｉｏｎ．ｃｏｐｙ
　　ｓｈｅｅｔｓ（＂询证函＂）．ｓｅｌｅｃｔ
　　ｒａｎｇｅ（＂ａ＂ ＆ ｃ）．ｓｅｌｅｃｔ
　　ａｃｔｉｖｅｓｈｅｅｔ．ｐａｓｔｅ
　　ｒａｎｇｅ（＂ａ＂ ＆ ｃ）．ｒｏｗｈｅｉｇｈｔ ＝ ３１．５
　　ｒａｎｇｅ（＂ａ＂ ＆ ｃ ＋ １）．ｒｏｗｈｅｉｇｈｔ ＝ ２７
　　ｒａｎｇｅ（＂ａ＂ ＆ ｃ ＋ ３）．ｒｏｗｈｅｉｇｈｔ ＝ １２０
　　ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ ＝ ｔｒｕｅ
　　ｓｈｅｅｔｓ（＂询证函＂）．ｓｅｌｅｃｔ
　　ｒａｎｇｅ（＂ａ＂ ＆ ｃ ＋ １）．ｓｅｌｅｃｔ
　　ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ ＝ ｆａｌｓｅ
　　ｃ ＝ ｃ ＋ ８
　　′载入往来单位信息
　　ｆｏｒ ｅ ＝ １ ｔｏ ３
　　ｉ ＝ ｃｈｏｏｓｅ（ｅ， ＂ｄ＂， ＂ｅ＂， ＂ｆ＂）
　　ｊ ＝ ｃｈｏｏｓｅ（ｅ， ＂ｂ＂， ＂ｃ＂， ＂ｄ＂）
　　ｉｆ ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．ｒａｎｇｅ（ｉ ＆ ｆ ＋ ４） ＜＞ ＂＂ ｔｈｅｎ

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