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

《利用excel自动生成询证函方法探讨》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用Excel自动生成询证函方法探讨［摘要］本文讨论如何利用Excel的VBA实现询证函的自动生成，介绍了具体实现办法。［关键词］应收账款；内部控制；措施1刖g询证函是由公司以公司名义或审计师（或其他鉴证业务执行人）以被审计者的名义向公司（或被审计者）的债权人和债务人发出的询证函，用以检查特定日期债权或债务的存在和权利或义务。按照审计准则的规定，所有的银行账户，包括审计期间内销户的账户都应当进行函证，对于重要的往来对象应当予以函证。公司加强管理时也需进行函证。根据被询证人的不同，询证函可以分为银行询证函、企业询证函、律师询证函、其他询证函。询证函是审计师审计工作底稿的重要组

2、成部分，也是公司加强款项管理的重要依据。但是，填写询证函是一项烦琐的工作，如果能通过计算机自动生成询证函，将大大减轻工作人员的工作，提高工作效率和质量。本文主要讨论询证函的自动生成办法。2询证函生成办法询证函的设计服从于企业管理或审计目标的需要，同时方便公司人员或审计人员的操作。本文以Excel为工具，通过VBA编写审计人员填写往来询证函的自动生成工具。首先，设置3个工作表，分别命名为“模板”、“往来信息表”、“询证函”。其中“模板”用于设置询证函的格式（如图1所示），“往来信息表”用于设置需要函证的单位信息（如图2所示），“询证函”为最终自动生成的询证函。设置完“模板”和

3、“企业信息表”后，我们开始编写实现生成询证函的宏。具体内容如下：Sub询证函（）DimdAsRangeDimtotalrow,c，e，f，i，jtotalrow=300'设置往来单位个数c=1m=1Forf=lTototalrowIfWorksheets（n往来信息表n）.Range（"b"&f+4）=*'HThenExitForEndIfIfWorksheets（n往来信息表n）.Range("b"&f+4)="7"ThenWorksheets(’’模板Range(nA3n).Formula:H’&Worksheets(’•往来信息表n)•Range(’’cn&f+4)&

4、nnWorksheets(’’模板Range(nd2”Formula=n发函编号：”&Worksheets(n往来信息表n).Range(HaH&f+4)EndIf'设置询证函表体内容，内容来自“模板”工作表Sheets(n模板n).SelectRange(nA1：d8").SelectSelection.CopySheets(n询证函").SelectRange("a"&c).SelectActiveSheet.PasteRange(nan&c).RowHeight=31.5Range(’’a"&c+l).RowHeight=27Ranged’’&c+3).RowHeig

5、ht=120Application.ScreenUpdating=TrueSheets(H询证函”)•SelectRange(na"&c+1).SelectApplication.ScreenUpdating=Fa1sec=c+8'载入往来单位信息Fore=1To3i=Choose(e,"dn，”en，’•f”)j=Choose(e,”b”，”cn,’’d”)IfWorksheets(n往来信息表n).Range(i&f+4)<>""ThenWorksheets(’’模板Range(j&9).Formula=Worksheets(n往来信息表’’)•Range(i&f+4)

6、ElseWorksheets(’’模板Range(j&9).尸01'111111&=’’无”EndIfNextSheets(H模板’’)•SelectRange(nA9：d9n).SelectSelection.CopySheets(H询证函”)•SelectRange(na'*&c).SelectActiveSheet.Pastec=c+1'设置表体的签章等内容Sheets(*'模板’’)•SelectRange(nA10：d26H).SelectSelection.CopySheets(H询证函’’)•SelectRange(nan&c).SelectActiveShe

7、et.PasteRange(’’a"&c+l).RowHeight=39Range(’’an&c+14).RowHeight=39c=c+17'插入分页符Range(*'A"&c).SelectActiveWindow.SelectedSheets.HPageBreaks.AddBefore：=ActiveCell'一个单位的询证函生成完毕NextEndSub通过运行以上宏代码，最终形成的询证函如图3所示。利用Excel自动生成询证函，使审计人员摆脱了烦琐的重复劳动，提高了工作效率和质量，对审计人员具有极大的帮助。