Excel表应用论文

Excel表应用论文

利用Excel自动生成询证函方法探讨［摘要］本文讨论如何利用Excel的VBA实现询证函的自动生成，介绍了具体实现办法。

［关键词］应收账款；内部控制；措施

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2011 . 07. 011

［中图分类号］F239.43 ［文献标识码］A ［文章编号］1673 - 0194（2011）07- 0020- 02

１前言

询证函是由公司以公司名义或审计师（或其他鉴证业务执行人）以被审计者的名义向公司（或被审计者）的债权人和债务人发出的询证函，用以检查特定日期债权或债务的存在和权利或义务。按照审计准则的规定，所有的银行账户，包括审计期间内销户的账户都应当进行函证，对于重要的往来对象应当予以函证。公司加强管理时也需进行函证。根据被询证人的不同，询证函可以分为银行询证函、企业询证函、律师询证函、其他询证函。询证函是审计师审计工作底稿的重要组成部分，也是公司加强款项管理的重要依据。但是，填写询证函是一项烦琐的工作，如果能通过计算机自动生成询证函，将大大减轻工作人员的工作，提高工作效率和质量。本文主要讨论询证函的自动生成办法。

２询证函生成办法

询证函的设计服从于企业管理或审计目标的需要，同时方便公司人员或审计人员的操作。本文以Excel为工具，通过ＶＢＡ编写审计人员填写往来询证函的自动生成工具。

首先，设置３个工作表，分别命名为“模板”、“往来信息表”、“询证函”。其中“模板”用于设置询证函的格式（如图1所示），“往来信息表”用于设置需要函证的单位信息（如图2所示），“询证函”为最终自动生成的询证函。

设置完“模板”和“企业信息表”后，我们开始编写实现生成询证函的宏。具体内容如下：

Ｓｕｂ询证函（）

ＤｉｍｄＡｓＲａｎｇｅ

Ｄｉｍｔｏｔａｌｒｏｗ，ｃ，ｅ，ｆ，ｉ，ｊ

ｔｏｔａｌｒｏｗ＝３００′设置往来单位个数

ｃ＝１

ｍ＝１

Ｆｏｒｆ＝１Ｔｏｔｏｔａｌｒｏｗ

ＩｆＷｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（＂ｂ＂＆ｆ＋４）＝＂＂Ｔｈｅｎ

ＥｘｉｔＦｏｒ

ＥｎｄＩｆ

ＩｆＷｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（＂ｂ＂＆ｆ＋４）＝＂√＂Ｔｈｅｎ

Ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．Ｒａｎｇｅ（＂Ａ３＂）．Ｆｏｒｍｕｌａ＝＂致＂＆Ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（＂ｃ＂＆ｆ＋４）＆＂：＂

Ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．Ｒａｎｇｅ（＂ｄ２＂）．Ｆｏｒｍｕｌａ＝＂发函编号：＂＆Ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（＂ａ＂＆ｆ＋４）

ＥｎｄＩｆ

′设置询证函表体内容，内容来自“模板”工作表

Ｓｈｅｅｔｓ（＂模板＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂Ａ１：ｄ８＂）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ

Ｓｈｅｅｔｓ（＂询证函＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂ａ＂＆ｃ）．Ｓｅｌｅｃｔ

ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ

Ｒａｎｇｅ（＂ａ＂＆ｃ）．ＲｏｗＨｅｉｇｈｔ＝３１．５

Ｒａｎｇｅ（＂ａ＂＆ｃ＋１）．ＲｏｗＨｅｉｇｈｔ＝２７

Ｒａｎｇｅ（＂ａ＂＆ｃ＋３）．ＲｏｗＨｅｉｇｈｔ＝１２０

Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｔｒｕｅ

Ｓｈｅｅｔｓ（＂询证函＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂ａ＂＆ｃ＋１）．Ｓｅｌｅｃｔ

Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｆａｌｓｅ

ｃ＝ｃ＋８

′载入往来单位信息

Ｆｏｒｅ＝１Ｔｏ３

ｉ＝Ｃｈｏｏｓｅ（ｅ，＂ｄ＂，＂ｅ＂，＂ｆ＂）

ｊ＝Ｃｈｏｏｓｅ（ｅ，＂ｂ＂，＂ｃ＂，＂ｄ＂）

ＩｆＷｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（ｉ＆ｆ＋４）＜＞＂＂Ｔｈｅｎ

Ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．Ｒａｎｇｅ（ｊ＆９）．Ｆｏｒｍｕｌａ＝Ｗｏｒｋｓｈｅｅｔｓ（＂往来信息表＂）．Ｒａｎｇｅ（ｉ＆ｆ＋４）Ｅｌｓｅ

Ｗｏｒｋｓｈｅｅｔｓ（＂模板＂）．Ｒａｎｇｅ（ｊ＆９）．Ｆｏｒｍｕｌａ＝＂无＂

ＥｎｄＩｆ

Ｎｅｘｔ

Ｓｈｅｅｔｓ（＂模板＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂Ａ９：ｄ９＂）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ

Ｓｈｅｅｔｓ（＂询证函＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂ａ＂＆ｃ）．Ｓｅｌｅｃｔ

ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ

ｃ＝ｃ＋１

′设置表体的签章等内容

Ｓｈｅｅｔｓ（＂模板＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂Ａ１０：ｄ２６＂）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ

Ｓｈｅｅｔｓ（＂询证函＂）．Ｓｅｌｅｃｔ

Ｒａｎｇｅ（＂ａ＂＆ｃ）．Ｓｅｌｅｃｔ

ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ

Ｒａｎｇｅ（＂ａ＂＆ｃ＋１）．ＲｏｗＨｅｉｇｈｔ＝３９

Ｒａｎｇｅ（＂ａ＂＆ｃ＋１４）．ＲｏｗＨｅｉｇｈｔ＝３９

ｃ＝ｃ＋１７

′插入分页符

Ｒａｎｇｅ（＂Ａ＂＆ｃ）．Ｓｅｌｅｃｔ

ＡｃｔｉｖｅＷｉｎｄｏｗ．ＳｅｌｅｃｔｅｄＳｈｅｅｔｓ．ＨＰａｇｅＢｒｅａｋｓ．ＡｄｄＢｅｆｏｒｅ：＝ＡｃｔｉｖｅＣｅｌｌ

′一个单位的询证函生成完毕

Ｎｅｘｔ

ＥｎｄＳｕｂ

通过运行以上宏代码，最终形成的询证函如图３所示。利用Excel自动生成询证函，使审计人员摆脱了烦琐的重复劳动，提高了工作效率和质量，对审计人员具有极大的帮助。