〔摘要〕 本文讨论如何利用Excel的VBA实现询证函的自动生成，介绍了具体实现办法。
〔关键词〕 应收账款；内部控制；措施
１前言
询证函是由公司以公司名义或审计师（或其他鉴证业务执行人）以被审计者的名义向公司（或被审计者）的债权人和债务人发出的询证函，用以检查特定日期债权或债务的存在和权利或义务。按照审计准则的规定，所有的银行账户，包括审计期间内销户的账户都应当进行函证，对于重要的往来对象应当予以函证。公司加强管理时也需进行函证。根据被询证人的不同，询证函可以分为银行询证函、企业询证函、律师询证函、其他询证函。询证函是审计师审计工作底稿的重要组成部分，也是公司加强款项管理的重要依据。但是，填写询证函是一项烦琐的工作，如果能通过计算机自动生成询证函，将大大减轻工作人员的工作，提高工作效率和质量。本文主要讨论询证函的自动生成办法。
２询证函生成办法
询证函的设计服从于企业管理或审计目标的需要，同时方便公司人员或审计人员的操作。本文以Excel为工具，通过ＶＢＡ编写审计人员填写往来询证函的自动生成工具。
首先，设置３个工作表，分别命名为“模板”、“往来信息表”、“询证函”。其中“模板”用于设置询证函的格式（如图1所示），“往来信息表”用于设置需要函证的单位信息（如图2所示），“询证函”为最终自动生成的询证函。
设置完“模板”和“企业信息表”后，我们开始编写实现生成询证函的宏。具体内容如下：
Ｓｕｂ 询证函（）
Ｄｉｍ ｄ Ａｓ Ｒａｎｇｅ
Ｄｉｍ ｔｏｔａｌｒｏｗ， ｃ， ｅ， ｆ，ｉ，ｊ
ｔｏｔａｌｒｏｗ ＝ ３００′设置往来单位个数
ｃ ＝ １
ｍ ＝ １
Ｆｏｒ ｆ ＝ １ Ｔｏ ｔｏｔａｌｒｏｗ
Ｉｆ Ｗｏｒｋｓｈｅｅｔｓ（”往来信息表”）．Ｒａｎｇｅ（”ｂ” ＆ ｆ ＋ ４） ＝ ”” Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｎｄ Ｉｆ
Ｉｆ Ｗｏｒｋｓｈｅｅｔｓ（”往来信息表”）．Ｒａｎｇｅ（”ｂ” ＆ ｆ ＋ ４） ＝ ”√” Ｔｈｅｎ
Ｗｏｒｋｓｈｅｅｔｓ（”模板”）．Ｒａｎｇｅ（”Ａ３”）．Ｆｏｒｍｕｌａ ＝ ”致” ＆ Ｗｏｒｋｓｈｅｅｔｓ（”往来信息表”）．Ｒａｎｇｅ（”ｃ” ＆ ｆ ＋ ４） ＆ ”：”
Ｗｏｒｋｓｈｅｅｔｓ（”模板”）．Ｒａｎｇｅ（”ｄ２”）．Ｆｏｒｍｕｌａ ＝ ”发函编号：” ＆ Ｗｏｒｋｓｈｅｅｔｓ（”往来信息表”）．Ｒａｎｇｅ（”ａ” ＆ ｆ ＋ ４）
Ｅｎｄ Ｉｆ
′设置询证函表体内容，内容来自“模板”工作表
Ｓｈｅｅｔｓ（”模板”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”Ａ１：ｄ８”）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ
Ｓｈｅｅｔｓ（”询证函”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”ａ” ＆ ｃ）．Ｓｅｌｅｃｔ
ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ
Ｒａｎｇｅ（”ａ” ＆ ｃ）．ＲｏｗＨｅｉｇｈｔ ＝ ３１．５
Ｒａｎｇｅ（”ａ” ＆ ｃ ＋ １）．ＲｏｗＨｅｉｇｈｔ ＝ ２７
Ｒａｎｇｅ（”ａ” ＆ ｃ ＋ ３）．ＲｏｗＨｅｉｇｈｔ ＝ １２０
Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｔｒｕｅ
Ｓｈｅｅｔｓ（”询证函”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”ａ” ＆ ｃ ＋ １）．Ｓｅｌｅｃｔ
Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｆａｌｓｅ
ｃ ＝ ｃ ＋ ８
′载入往来单位信息
Ｆｏｒ ｅ ＝ １ Ｔｏ ３
ｉ ＝ Ｃｈｏｏｓｅ（ｅ， ”ｄ”， ”ｅ”， ”ｆ”）
ｊ ＝ Ｃｈｏｏｓｅ（ｅ， ”ｂ”， ”ｃ”， ”ｄ”）
Ｉｆ Ｗｏｒｋｓｈｅｅｔｓ（”往来信息表”）．Ｒａｎｇｅ（ｉ ＆ ｆ ＋ ４） ＜＞ ”” Ｔｈｅｎ
Ｗｏｒｋｓｈｅｅｔｓ（”模板”）．Ｒａｎｇｅ（ｊ ＆ ９）．Ｆｏｒｍｕｌａ ＝ Ｗｏｒｋｓｈｅｅｔｓ（”往来信息表”）．Ｒａｎｇｅ（ｉ ＆ ｆ ＋ ４）
Ｅｌｓｅ
Ｗｏｒｋｓｈｅｅｔｓ（”模板”）．Ｒａｎｇｅ（ｊ ＆ ９）．Ｆｏｒｍｕｌａ ＝ ”无”
Ｅｎｄ Ｉｆ
Ｎｅｘｔ
Ｓｈｅｅｔｓ（”模板”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”Ａ９：ｄ９”）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ
Ｓｈｅｅｔｓ（”询证函”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”ａ” ＆ ｃ）．Ｓｅｌｅｃｔ
ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ
ｃ ＝ ｃ ＋ １
′设置表体的签章等内容
Ｓｈｅｅｔｓ（”模板”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”Ａ１０：ｄ２６”）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ
Ｓｈｅｅｔｓ（”询证函”）．Ｓｅｌｅｃｔ
Ｒａｎｇｅ（”ａ” ＆ ｃ）．Ｓｅｌｅｃｔ
ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ
Ｒａｎｇｅ（”ａ” ＆ ｃ ＋ １）．ＲｏｗＨｅｉｇｈｔ ＝ ３９
Ｒａｎｇｅ（”ａ” ＆ ｃ ＋ １４）．ＲｏｗＨｅｉｇｈｔ ＝ ３９
ｃ ＝ ｃ ＋ １７
′插入分页符
Ｒａｎｇｅ（”Ａ” ＆ ｃ）．Ｓｅｌｅｃｔ
ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＨＰａｇｅＢｒｅａｋｓ．Ａｄｄ Ｂｅｆｏｒｅ：＝ＡｃｔｉｖｅＣｅｌｌ
′一个单位的询证函生成完毕
Ｎｅｘｔ
Ｅｎｄ Ｓｕｂ
通过运行以上宏代码，最终形成的询证函如图３所示。利用Excel自动生成询证函，使审计人员摆脱了烦琐的重复劳动，提高了工作效率和质量，对审计人员具有极大的帮助。
相关文章：
会计准则中的博弈探讨04-26
浅谈工程造价的审核方法04-26
审计专业判断基本理论的探讨04-26
审计查处经济案件的五种“新招”04-26
当前送达审计存在的问题及改进措施04-26
中美会计制度对比分析04-26
制订审计工作计划的八个基本原则04-26
上市公司内部审计存在的制约因素及对策04-26
当前我国企业内部控制存在的问题与对策04-26
环境审计推动企业履行社会责任04-26