摘要：EXCLE VBA促进了简易信息系统在各行各业中的运用，对财会工作的发展也产生了积极的推动作用，由于应收账款坏账比率高居不下，不良规模持续攀升，如何有效化解不良，对应收账款的控制提出了更高的要求。因此本文对EXCLE VBA的简易应收账款系统进行分析。
关键词：EXCLE；VBA；应收账款系统
EXCLE功能广泛，包含建立电子表格、管理数据和共享数据等。对于众多小型商贸企业而言，它们品种繁多，应收账款复杂，利用EXCLE VBA开发的简易应收账款系统，既可以提高工作效率和降低企业成本，还可以提高财务管理水平。
一、研究背景
应收账款原本是企业迫于竞争压力下信用交易的产物，但合理应用应收账款，甚至是主动为客户授予一定额度，或在一定范围内向客户赊销，都能为企业带来高额利润。但是坏账比例已成为应收账款，乃至危害整个企业生存的重要风险，为了有效降低坏账风险，对应收账款的控制显得尤为重要。而目前大多数财务人员无法接触到事前的调研，也很少参与事中的管控，只能对应收账款的账面坏账进行处理，简单的采用账龄分析，使用备抵法按经验数据提取坏账准备，根本无法实现有效的应收账款管理，更不可能实现预警和改善的效果。而且大多数管理措施只是针对公司法人客户，几乎没有对个人客户的应收账款进行管控，而实际上个人业务的管控已经到了刻不容缓的地步。随着经济开放的政策力度逐渐加强，小额贷款、汽车金融、租车平台遍地开花。以蚂蚁小贷为代表的互联网企业，都广泛介入金融市场，私人信贷业蓬勃发展；苏宁银行近期宣布筹资设立，民营银行如雨后春笋般崛起；信用卡分期等传统银行的新兴业务也广泛扩张。但就在企业经营快速扩张，业务规模井喷式增长，宏观经济速度却不断下行，P2P网络金融、线下实体的小额贷款公司不断传出一夜崩塌，老板跑路的新闻，而银行业个贷、分期业务不良持续攀升，所以对于个人信贷业务，或者说对于个人应收账款的控制与预警已然是迫在眉睫。近期央行也已联合八部委下发《关于印发对失信被执行人实施联合惩戒的合作备忘录的通知》，明确提出对失信人员加大惩戒力度。
二、系统结构及流程
1.系统功能结构。简易应收账款系统包含应收账款期初余额、销售收款、应收账款汇总、应收账款明细以及存货出库五大业务模块，从本质上说，存货出库业务模块隶属于出库管理系统，如图1所示。
图1 简易应收账款系统功能结构图
2.存货出库。销售出库减少存货，同时产生新的应收账款，衔接应收账款系统，将销售金额传递至应收账款明细表。论文不讨论出库管理系统以及存货出库的查询和便捷式入库等功能。
3.应收账款期初余额和销售收款。应收账款期初余额表可录入所有期初应收账款，包含日期、摘要、客户编号、客户名称、金额和出库单号，销售收款表可录入销售回款，冲减应收账款，其退款金额用负数表示，包含收款单号、日期、出库单号、客户编号、客户名称和收款金额，两者均采取手工录入的方式，其金额都汇总至应收账款明细表。
4.应收账款明细和应收账款余额汇总。应收账款明细表是应收账款系统的核心业务模块，除了可以查询明细，还负责收集和显示存货出库表、应收账款期初余额表和销售收款表传递来的数据，其项目综合了三个表的项目，汇总完毕后传递至应收账款余额汇总表。用户可确定日期范围，通过点击应收账款余额汇总表的“汇总”控件实现该期间的所有客户的应收账款期初余额、销售金额、收款金额和余额的显示。通过点击“明细”控件切换到应收账款明细表，另补充按客户名称“搜索”的控件，可实现直接在应收账款明细表中查询。
三、应收账款系统的VBA语言应用
1.“搜索”模块程序代码和解析。Sub应收账款明细查询（）X="%"&Trim（Range（"B2"）.Value）&"%"'去掉检索前后的空格Range（"A5：Z20000"）.Cl
earContents'清空明细表Set conn=CreateObject（"adodb.connection"）conn.Open"Pr
ovider=microsoft.jet.oledb.4.0；extended properties=excel 8.0；data source="&ThisWo
rkbook.FullNameXX=[A65536].End（xlUp）.Row+1sq2="select日期，0，出库单号，客户编号，客户名称，0，0，0，0，0，0，0，金额，0，0，0 from[应收账款期初余额表$A4：Az20000]WHERE客户编号&客户名称Like'"&X&"'"Range（"A"&XX）.CopyFromRe
cordset conn.Execute（sq2）XX=[A65536].End（xlUp）.Row+1sq3="select日期，0，出库单号，客户编号，客户名称，产品编号，产品名称，规格，单位，数量，单价，金额，0，0，0，业务员from[存货出库表$A4：Az20000]WHERE客户编号&客户名称Like'"&X&"'"Range
（"A"&XX）.CopyFromRecordsetconn.Execute（sq3）XX=[A65536].End（xlUp）.Row+1sq3="
select日期，收款单号，0，客户编号，客户名称，0，0，0，0，0，0，0，0，收款金额，0，0 from[销售收款表$A4：Az20000]WHERE客户编号&客户名称Like'"&X&"'"Range（"A"&XX）.CopyFromRecordset conn.Execute（sq3）conn.Close'关闭数据链接Set conn=Nothing'释放链接内存空间XX=[A65536].End（xlUp）.RowIf XX=
4 Then'明细数据为空时，从标题行的下一行开始写入明细记录Range（"O5：O"&XX）.Select'计算欠款金额Range（"A5：AZ"&XX）.Select'选择排序范围
Selection.Sort Key1：=Range（"A5"），Order1：=xlAscending，Header：=xlNo，OrderCustom：=
1，MatchCase：=False，Orientation：=xlTopToBottom，SortMethod：=xlPinYin，DataOptiOn
1：=xlSortNormal'按日期升序排序明细记录End Sub
2.“明细“模块程序代码和解析。Sub调用应收明细（）ABC=ActiveCell.RowIf AB
C<=4 Then End'没有汇总记录时结束X=Range（"A"&ABC）.Value&Range（"B"&ABC）.Va
lue'取选中行的客户编号、客户名称BGM=ActiveSheet.Name'当前表格名Sheets（"应收账款明细表"）.Select'选中应收账款明细表Range（"B2"）.Value=X'将选中行的客户编号、客户名称作为检索关键Range（"Z2"）.Value=ABCRange（"AA2"）.Value=BGM
应收账款明细查询'根据上面选中行的客户编号、客户名称进行明细搜索End Sub。
总而言之，EXCLE VBA系统的设计为企业提供了一个较好的财务结算平台，为快速查询、审核应收账款提供了一个便捷的通道，为企业的应收账款及时准确无误地结算等取得了双赢的良好局面。
参考文献：
[1]王民．加强企业信用管理的有效策略分析［J］．中国商贸，2017（11）．
[2]李瑞．EＲP应收与应付账管理系统的研究与开发［D］．成都：西华大学，2017．
论文作者:张丽
论文发表刊物:《基层建设》2019年第21期
论文发表时间:2019/10/16
标签：应收账款论文; 客户论文; 明细论文; 明细表论文; 余额论文; 金额论文; 名称论文; 《基层建设》2019年第21期论文;