运用EXCEL实现银行对账自动化
账无忧操作指南
二级明细科目的辅助核算需 要取消勾选才能使用明细科 目转辅助核算
出入库单
1. 点击自动生成入库单 2. 按步骤进行即可 （出入库单操作原理一致） 库存也可以手动增加出入库单
LOGO
添加您的艺术公司名称
账无忧操作指南
一
账套外部设置
智能财税智能记账票据类型
用于设置能在票 据凭证模板选择 的单据类型与名 称
新增
修改或 删除
智能财税智能记账票据凭证 模板
在对应的单据类别里面 设置相应的模板，单据 类别与前面的票据类型 相对应
新增单据名称需要先在 票据类型里面新增，然 后才能在此页面选择 银行票据的银行存款只 需选择一级科目 注意会计制度的选择
单据类别
智能采集银行对账单设置
如果有需要的银行，可以直 接修改设置，如果没有就点 旁边的“ ”新增。
根据银行对账单EXCEL表格 里面的数据来设置对应的列
注：起始行为各项标题所在 行
智能采集发票导入设置
与银行对账单设置一样， 需要在导出来的EXCEL里设 置对应的列，新增也是在 左边的 里面。
注：如果是普票，需要自 己在EXCEL里面新增一列 “后6位校验码”并录入相应 数据，这样才能获取到普 票的商品明细。
二
账套内-票据凭证模板
在左下角设置-票据凭证 模板里面，可通过在管 家界面设置好模板然后 后直接点击同步最新模 板！如有特殊要求可以 在选择在此修改相应的 凭证模板。
三
智能记账-销项票
导入销项票
1. 点击导入 2. 选择文件 3. 选择销项模板 4. 选择导入方式 5. 导入
1. 指定票据模板（可 以单个指定，或者 选中多个在右上角 批量指定，此处的 票据凭证模板为账 套内的票据凭证模 板）
如何有效利用Excel软件处理银行工作中的数据
如何有效利用Excel软件处理银行工作中的数据在银行工作中，处理大量的数据是一项非常重要的工作。
为了提高工作效率和准确性，使用Excel软件是一种有效的方法。
本文将介绍如何利用Excel软件来处理银行工作中的数据，并给出一些建议和技巧。
一、数据导入与整理在处理银行工作中的数据之前，首先需要将数据导入到Excel中。
可以通过“文件”>“导入”选项来导入各种格式的数据，如CSV、文本文件等。
导入数据后，可以使用Excel的筛选、排序、删除重复值等功能对数据进行整理和清洗，确保数据的准确性和完整性。
二、数据分析与统计在银行工作中，数据分析和统计是非常常见的需求。
Excel提供了丰富的数据分析和统计函数，如平均值、总和、最大值、最小值等。
可以使用这些函数对数据进行各种计算和统计，帮助我们更好地理解数据的特征和趋势。
三、制作报表与图表制作报表和图表是银行工作中常用的任务之一。
Excel可以帮助我们快速制作各种报表和图表，如柱状图、折线图、饼图等。
通过这些图表，我们可以直观地展示数据的分布和关系，从而更好地进行决策和分析。
四、数据透视表与数据透视图数据透视表是Excel中非常强大和实用的功能之一。
通过数据透视表，我们可以轻松地对大量数据进行汇总和分析。
可以通过拖拽字段到不同的区域来切换数据的汇总方式，如按日期、按地区、按产品等。
此外，数据透视图还可以自动计算汇总数据，并可快速生成图表，方便我们对数据进行更深入的分析和理解。
五、自动化处理与宏在银行工作中，有许多重复性的任务，如数据更新、数据整理等。
通过使用Excel的宏功能，可以实现许多自动化的操作。
可以录制宏，并将其应用于其他类似的任务，从而提高工作效率并减少出错的可能性。
六、数据保护与安全在处理银行工作中的数据时，数据的保护和安全是非常重要的。
Excel提供了多种数据保护和安全措施，如密码保护、权限设置、单元格保护等。
可以根据实际需求设置相应的保护和权限，确保数据的安全性和机密性。
中行银行对账excel
中行银行对账excel巧妙利用Excel表格和银行进行对账在对账前，首先，应加计累计银行存款余额；然后，检查银行存款收支凭证的完整性；最后，准备好上月银行存款余额调节表和空白的银行存款余额调节表、银行对账单等。
一切就绪后，把银行对账单导入Excel，按需要整理好数据。
按Ctrl 键选定日期栏、支票号码栏、凭证号栏、借方发生额栏（单位支出）、贷方发生额栏（单位收入），依次“点”选数据→筛选→自动筛选（本文所述“点”、“选”均指左键单击）。
完成以后，选定栏后都添了一个“三角符号”。
“点”支票号码栏后的“三角符号”，“选”“自定义”选项，弹出自定义筛选方式窗口，选“包含”选项，输入支票号码后四位，“点”确定会自动筛选出其对应的支票金额，然后在对应凭证号栏输入其记账凭证号：“点”贷方发生额栏后的“三角符号”，会发现下面有许多数据，根据记账凭证的银行收款金额“选”定数据，然后在对应凭证号栏输入其凭证号；同理，“点”日期栏选定其中任一时间，可以筛选出当日的全部银行存款收支。
显然，支票号码栏是用于筛选银行支票发生额的，贷方发生额栏是筛选单位收入的，借方发生额栏是筛选单位支出的，而日期栏是按日期筛选单位收支的。
理解以上用法后，可以根据完整的银行存款记账凭证，灵活运用上述方法将凭证号输入对应的对账单发生额前的凭证号栏内。
为便于理解，现举例说明如下：银行记账凭证1有三笔业务都发生于2005年6月1日，现金支票（支票号码18224712）付款10000元、财政拨款50000元，购买支票120元。
对于第一笔现金支票付款10000元，“点”支票号码后的三角符号，“选”“自定义”选项，在弹出自定义筛选方式窗口中选“包含”然后输入支票号后4位（4712），“点”确定，所有发生额随之消失，只剩下4712号支票发生额，在凭证号栏输入“1”。
需要说明的'是，之所以只输入后四位，是因为输入后三位有可能筛选出两笔以上的发生额，而输入后五位或六位会加大工作量。
财会人员运用Excel进行辅助对账的探讨
时查看统计结果背后数据源的详细信息， 以 帮 便月末勾未达时， 从摘要后的关键字中截 企业未付”的未达账项列示在银行流水后
助用户从不同角度查看、 分析数据源。 Ｍ ｔ 函数是查找与引用 函数 ． ａｈ ｃ 其功 能是从一组数据中查找出某一个数据 ， 并 以数值 的形式返 回该数据在该 区域 取收付款单位。
据 ；ｏｕ—ｒ ｙ ｌ ｋｐａ ａ 为数据查找的范围，可以 ｏ ｒ
生成一个空的数据透视表。将“ 数据透视
其次， 如果企业与开户行有协定存款协 表字段列表” 中的“ 借方发生额” 添加到
为一个数组或单元格区域 ： ａ ｈｔ ｅ ｍ ｔ — ｐ 参 议， 日， ｃ ｙ 每 银行流水中会有两笔协定存款的 “ 行区域” 任选一个字段添加到“ ， 数据区 数为可选参数 ， 在这里设为 ０意思为查找 进出数， ， 而此数在企业账中是不反映的， 域”见图 １ 所 （ ） ， 等于 ｌ ｋｐｖ ｕ 的第一个值。 ｏ ｕ—ａ ｅ ｏ ｌ 二 、 用 Ｅ ｃｌ 行 辅助对 账 的 运 ｘｅ进
前 提 首先， 企业会计核算实行电算化管理。 能从账务系统中以 Ｅｃｌ ｘｅ的形式导出银行存 款明细账。其次， 企业对应的 银行账户需要
开通网 上银行， 方便从网银上下载当期收、 支流水； 或与开户行协商。 在提供纸质对账 单的同时， 另提供一份电子版的对账单。第 三， 企业的收、 付款凭证要做到一单一证， 与 银行的收支流水保持一一对应关系： 如果有 难度， 则尽量保证在一个方向（ 如付款方向）
图１
２２第 期Ｉ ｌ Ｉ ０年 ９ ＿ ＿ ｌ １
： 为例，阐述如何运用 Ｅ ｃ 中的数据透视 ｘｅ ｌ 表和 Ｍ ｔ ａ ｈ函数进行辅助对账。 ｃ 与银行流水相对应， 方便会计期末挤对出差 以在做数据处理前先“ 整表筛选”由摘要中 ， 数据透视表是由数据库生成的动态汇 额的所在方向。第四， 对于经常重复出现的 查找并显示 “ 协定存款” ，然后全部整行删 总报告，是 Ｅｃｌ ｘｅ中功能最强大的数据分析 收支金额。 ５ ｌ 万这样的整数， 如 万、０ 在日常 除， 而不是只删除内容， 否则表格内的空行 注意在摘要最后注明核对关键 会影响数据透视表白 【 不仅能快捷地生成可以 具， 交互的统计报 凭证录入时， 动取数范围的认定。 表， 而且独有的“ 透视” 功能可以方便用户随 字， 如付料款某某公司， 收退汇某某单位等， 第三， 整理上月未达账项， 银行已付 将“
巧用Excel自动查找未达账项并编制银行存款余额调节表
巧用Ｅｘｃｅｌ自动查找未达账项并编制银行存款余额调节表[摘要] 为保证银行存款的安全完整,必须定期对银行存款进行清查,将银行对账单与企业银行存款日记账进行核对｡本文试图通过Excel来自动完成对账及银行存款余额调节表的编制,给出了设计思路和具体步骤｡[关键词] 未达账项;银行存款余额调节表;Excel银行存款是企事业单位流动性最强的资产,为保证银行存款的安全完整,必须定期对银行存款进行清查,银行存款的清查主要手段是通过银行对账单与企业银行存款日记账的核对,并编制银行存款余额调节表,核对双方的余额及账目实现的｡而实际工作中,大多采用人工核对方法,不仅耗时,而且容易出错｡也有部分单位购买的财务软件中附带此项功能或制作了相应的软件通过计算机完成该项工作,但都会产生较大的成本｡本文试图通过常用的Office组件Excel来自动完成对账及银行存款余额调节表的编制｡Excel是财务人员常用的软件,使用灵活方便,可以根据财务工作中出现的各种情况进行调整使用｡利用Excel自动查找未达账项并编制银行存款余额调节表步骤如下:一､设计思路如图1所示,在一个Excel工作簿中设置3个工作表,分别命名为“原始数据区”､“未达账项区”､“余额调节表”｡①查找并标记未达账项,将一定会计期间的企业银行存款日记账､银行对账单数据按预定的格式导入“原始数据区”,通过预先输入的公式,能够自动将未达账项直接标记出来;②单独列示未达账项,使未达账项一目了然,即从“原始数据区”中将标记的未达账项过入“未达账项区”;③根据未达账项自动编制银行存款余额调节表,即根据“未达账项区”的数据,自动编制“余额调节表”｡以上3个步骤实际上是同时实现的,只要在“原始数据区”输入相应数据,不需进行其他的操作,“余额调节表”会根据我们预先输入的公式直接编制出来｡二､具体步骤1. “原始数据区”的设计按照图2所示,设计“原始数据区”的格式,图中的灰色区域是将来的原始数据输入区｡B8,D8,G8,I8四个单元格是用来计算发生额合计数的,公式分别为:B8单元格输入“=”合计:“&SUM(B9:B100)&“元””,其中B100可根据数据行数的多少进行调整｡D8,G8,I8单元格只需在上述公式中将B改为对应字母即可,也可直接将B8单元格复制到上述3个单元格｡“原始数据区”设计的关键在于如何将未达账项查找并标记出来｡对账时,我们是将B列的数据与I列的数据进行核对,能对上的,在该数据前的对账栏内打“√”,未对上的打“×”｡用同样的方法核对D列和G列的数据｡以B列与I列的数据核对为例,在A列对账栏中输入公式,A9单元格中输入“=IF(B9=”“,”√”,IF(ISNA(VLOOKUP(B9,$I￥9:$I$100,1,FALSE)),“×”,“√”))”,将该公式复制到A10至A100单元格｡C9单元格中输入“=IF(D9=“”,“√”,IF(ISNA(VLOOKUP(D9,$G$9:$G$100,1,FALSE)),“×”,”√”))”,F9单元格中输入“=IF(G9=“”,“√”,IF(ISNA(VLOOKUP(G9,$D$9:$D$100,1,FALSE)),“×”,“√”))”,H9单元格中输入“=IF(I9=“”,“√”,IF(ISNA(VLOOKUP(I9,$B$9:$B$100,1,FALSE)),“×”,“√”))”ᦉ 7;公式解释:以A9单元格的公式为例,“=IF(B9=“”,“√”,IF(ISNA(VLOOKUP(B9,$I$9:$I$100,1,FALSE)),“×”,“√”))”,公式对应内容如下①VLOOKUP(B9,$I$9:$I$100,1,FALSE)在I列相应区域内查找B9单元格的数据,能找到则显示该数字;不能找到,则会出现出错信息“#N/A”｡②ISNA(VLOOKUP(B9,$I$9:$I$100,1,FALSE))能消除该错误信息,若不能找到则返回TRUE;能找到则返回FALSE｡③IF(ISNA(VLOOKUP(B9,$I$9:$I$100,1,FALSE)),“×”,“√”)若能找到,则显示“√”;若不能找到或无数据,则显示“×”｡④为了将无数据和不能找到的相区别,使无数据时也显示为“√”,又增加了一层IF函数:IF(B9=“”,“√”,IF(ISNA(VLOOKUP(B9,$I$9:$I$100,1,FALSE)),“×”,“√”))ᦉ 7;2. “未达账项区”的设计按照图3所示,设计“未达账项区”的格式｡本工作表的主要功能是在“原始数据区”中,将前面标记为“×”的数据(即没有对上的未达账项)填入本表｡A4､B4､C4､D4均为该列合计数,A4单元格输入“=”合计:“&SUM(A5:A100)&“元””,并将该公式复制到B4､C4､D4｡A5单元格输入“{=IF(SUM(I F(原始数据区!$A$9:$B$101=“×”,1))<ROW(1:1),“”,INDEX(原始数据区!$A$9:$B$101,SMALL(IF(原始数据区!$A$9:$B$101=“×”,ROW(原始数据区!$A$9:$B$101)),ROW(1:1))-8,2))}”B5单元格输入“{=IF(SUM(IF(原始数据区!$C$9:$D$100=“×”,1))<ROW(1:1),“”,INDEX(原始数据区!$C$9:$D$100,SMALL(IF(原始数据区!$C$9:$D$100=“×”,ROW(原始数据区!$C$9:$D$100)),ROW(1:1))-8,2))}”C5单元格输入“{=IF(SUM(IF(原始数据区!$F$9:$G$100=“×”,1))<ROW(1:1),“”,INDEX(原始数据区!$F$9:$G$100,SMALL(IF(原始数据区!$F$9:$G$100=“×”,ROW(原始数据区!$F$9:$G$100)),ROW(1:1))-8,2))}”D5单元格输入“{=IF(SUM(IF(原始数据区!$H$9:$I$100=“×”,1))<ROW(1:1),“”,IND EX(原始数据区!$H$9:$I$100,SMALL(IF(原始数据区!$H$9:$I$100=“×”,ROW(原始数据区!$H$9:$I$100)),ROW(1:1))-8,2))}”公式解释:以A5单元格的公式为例,“{=IF(SUM(IF(原始数据区!$A$9:$B$101=“×”,1))<ROW(1:1),“”,INDEX(原始数据区!$A$9:$B$101,SMALL(IF(原始数据区!$A$9:$B$101=“×”,ROW(原始数据区!$A$9:$B$101)),ROW(1:1))-8,2))}”这里要用到数组公式,因为符合条件的数据不止一个,若不用数组公式则只能返回第一个值｡数组公式:数组公式对一组或多组值执行多重计算,并返回一个或多个结果｡数组公式括于大括号{ } 中｡按Ctrl+Shift+Enter时Microsoft Excel 自动在大括号{ } 之间插入公式｡数组公式也可以向下拖曳进行复制｡公式对应内容如下:①ROW(原始数据区!$A$9:$B$101),返回原始数据区中相应单元格的行号｡②IF(原始数据区!$A$9:$B$101=“×”,ROW(原始数据区!$A$9:$B$101)) 如果原始数据区!$A$9:$B$101中有等于“×”的记录则返回其对应的行号ROW(原始数据区!$A$9:$B$101)｡③SMALL(IF(原始数据区!$A$9:$B$101=“×”,ROW(原始数据区!$A$9:$B$101)),ROW(1∶1)):用Small把符合条件的行号按照从小到大的顺序列出来｡Small是用来列示数据记录中第K个最小值的函数,而ROW(1∶1)=1,所列示的就是符合条件的行号的第一个最小值｡ROW(1∶1)的特点是随着公式的向下拖曳,每向下一行ROW(n:n)会增加一个数变为ROW(n+1∶n+1)｡当A5单元格公式向下拖曳时,ROW(1∶1)会变为ROW(2∶2)=2,即返回第二个最小值,第三行依此类推｡④INDEX(原始数据区!$A$9:$B$101,SMALL(IF(原始数据区!$A$9:$B$101=“×”,ROW(原始数据区!$A$9:$B$101)),ROW(1∶1))-8,2):用INDEX把符合条件的指定单元格的内容列示出来｡行号为步骤二的结果-8,这是由于我们在设计原始数据区时,对账单和日记账的输入是从第9行开始的｡列号为2,是原始数据区!$A￥9:$B$101的第二列｡⑤SUM(IF(原始数据区!$A$9:$B$101=“×”,1)):统计原始数据区!$A$9:$B$101中等于“×”的个数,然后与ROW(1∶1)进行对比,当统计的个数小于ROW(1∶1)时,公式返回空白值｡这里是为了屏蔽错误值｡⑥=IF(SUM(IF(原始数据区!$A$9:$B$101=“×”,1))<ROW(1∶1),“”,INDEX(原始数据区!$A$9:$B$101,SMALL(IF(原始数据区!$A$9:$B$101=“ב,ROW(原始数据区!$A$9:$B$101)),ROW(1∶1))-8,2)),把符合条件的内容列示出来,将错误值屏蔽掉｡3. “余额调节表”的设计按照图4所示,设计“余额调节表”的格式｡本工作表的主要功能是将前两张工作表中的数据填入本表｡B4､D4单元格可直接从“原始数据区”取数,B5､B6､D5､D6单元格将“未达账项区”的数据进行汇总｡B4单元格输入“=原始数据区!B6”B5单元格输入“=SUM(未达账项区!C5:C100)”B6单元格输入“=SUM(未达账项区!D5:D100)”B7单元格输入“=B4+B5-B6”D4单元格输入“=原始数据区!G6”D5单元格输入“=SUM(未达账项区!B5:B100)”D6单元格输入“=SUM(未达账项区!A5:A100)”D7单元格输入“=D4+D5-D6”三､使用中的注意事项1. 期初未达账项问题如果存在期初未达账项,只需将其也输入“原始数据区”即可｡如果要与本期的数据相区别,可在表格中再加上一栏时间栏｡2. 只核对数字可能出现的问题及解决办法由于核对时是以金额为依据的,当存在相同金额时核对可能出错,此时可以结合支票号码手动进行核对｡。
excel对账函数
excel对账函数Excel是一款广泛使用的办公软件。
它不仅可以做计算、做数据分析，更是一个处理账目的好工具。
而在Excel中，对账函数是一个非常常用的功能，它可以用来快速地比对两个账目的数据，帮助我们发现和解决错误。
对账函数介绍对账函数是Excel中的一种函数，用于将一个数据区域和另一个数据区域进行对比，找出两个数据区域中的不相同之处。
对账函数可以快速、准确地找出账目错误，节省我们查找错误的时间成本，提高工作效率。
在Excel中，有两种常用的对账函数，分别是“VLOOKUP()”和“MATCH()”。
VLOOKUP()函数VLOOKUP()函数用于在一张表格中查找某个值，并返回它在表格中对应的值。
其语法如下：=VLOOKUP(要查找的值, 查找表格的区域, 返回结果的列数, 是否需要精确匹配)其中，“要查找的值”是指要在查找表格中查找的值，“查找表格的区域”是指表格的数据区域，“返回结果的列数”是指在查找表格中要返回的列数，“是否需要精确匹配”则是一个逻辑值，TRUE表示需要精确匹配，FALSE表示不需要。
比如，我们有以下两张表：表1：我们希望在表2中查找名为“小明”的成绩。
我们可以使用VLOOKUP()函数实现。
在表2中，选定一个单元格，输入 =VLOOKUP("小明", A2:B5, 2, FALSE)。
其中，“小明”是要查找的值，A2:B5是查找表格的区域，2表示要返回的列数（即返回对应的成绩），FALSE表示不需要精确匹配。
输入后，Excel会自动在表2中查找名为“小明”的成绩值。
如果查找失败，函数会返回一个#N/A错误，表示未找到对应的值。
MATCH()函数MATCH()函数用于在一个区域中查找某个值，并返回这个值在区域中的行号或列号。
=MATCH(要查找的值, 查找表格的区域, 匹配方式)其中，“要查找的值”和“查找表格的区域”与VLOOKUP()函数一样，“匹配方式”是一个整数值，用来表示匹配方式，1表示精确匹配，0或省略表示模糊匹配。
巧用EXCEL宏功能 快速核对银行对账单与银行日记账
Then ' 如果 C 列 i 行等于 K 列 j 行
If Cells(i, "D") = Cells (j, "
J") Then ' 并且 D 列 i 行等于 J 列 j 行
If Cells(i, "C") <> "" Then
' 并且 C 列 i 行不为空
If Cells (j, "L") = ""
Then
' 并且 L 列 j 行为空
Cells(i, "E") = "√"
' 则 E 列 i 行的值为√
Cells (j, "L") = "
√"
' 则 L 列 j 行的值为√
Exit For
' 如果找到该单元
格,则退出查找
End If: End
If: End If: End If
Next j: Next i
一、 采集银行对账单和单位日记账 数据，并进行必要的整理。 整理后将单位 银行存款日记账的日期、凭证号、借方金 额 、贷 方 金 额 复 制 到 时 先 建 好 的 EXCEL 表 格 的 A、B、C、D 列 中 , 将 银 行 对 账 单 的日期、凭证号、借方金额、贷方金额复 制到 H、I、J、K 列中，复制后的表格如下：
二、如上图所示，在相应单元格内输 入对账标识 1、对账标识 2 等字段。 如图 所示。
三、 新建一个按钮控件， 名字为自 动对账，鼠标右键点击“指定宏”菜单，将 新 建 宏 命 名 为 ZDDZ， 点 击 新 建 进 入 vb 编辑器，输入以下语句，并进行保存。
Excel表格在银行对账中的应用
四、 结
论
随着互 联 网及 数据 库技 术 的发展 ， 计协调 为导 向 以会 ４规则 库 ． 由于进入标准财务报表的多数相关信息可通过应用 的网络会计 信息系 统也发 挥着越来 越重 要 的作 用 。 过引 通
公式关系推导 出来 ， 而且此类信息的详细存储会造成网络 入所需的会计知识， 本文提供了一个完全功能化的原型计 堵塞并大大降低数据库的运行效率 ， 因此外部数据库在其 算机系统 ，这一 以Ｗｅ ｂ为基础的系统通过使用协调概念 数据库服务器中拥有每个公司最少量的信息。 无论在一个 得 以实 现 ．其分 散 的 系统 结 构 也 为具 有 多种 嵌入 式 特 征
费很多时间。 虽然很多财务软件提供了相应的银行对账功
【 收稿 日期］０ ７ ０ － ４ ２ｏ—３０
能。 但是很 多时候并 没有起 到其所 承诺 的作用 。 ｘｅ作 为 Ｅ ｃｌ
１用 户界面 ．
过以下 ５ 个步骤实现：１它控制着界面上的事件 ， （） 这些事
用 户界 面允 许 使用 者 从 以下 ３ 面 进行 选 择 ：１众 件在 Ｃ Ｈ 方 （） Ａ Ｓ中是 由用户对公 司、 估价标准 、 会计方法及所 多的公司 ； ） （ 估价侩 计标 准 ； ） 。 户一旦 从下拉 菜 需财 务报 表的种 类进 行选 择而 引发 的 ； ）参考 前 面提 到 ２ （ 方法 用 ３ （ ２ 单 中选 定 了公 司 、 价标 准 以及 会计 方 法 ， 可 以从 网络 的 目录。 以推断出公司数据库服务器在网络上 的物理位 估 就 可 上 通过 公 司 的数 据 库 自动访 问所需 要 的行 项 目价 值 并 计 置； ） （ 通过用户会话， ３ 推论引擎发起、 构建并维护一个与公 司数据库服务器的网络连接 ； ） （ 通过界面的下拉菜单 ， ４ 将 算得 出相关的财务报表数据。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
运用EXCEL实现银行对账自动化许国吴光校银行对账是指每月单位的银行存款日记账和银行对账单核对,勾销已达账,生成银行存款余额调节表的过程，这是保证资金安全的最重要手段。
一般财务系统也带有银行对账模块，但在实际操作中存在这样那样的问题，要么银行对账单的数据文件格式与财务系统不符, 要么财务系统的对账模块不能正常使用，这样只能用手工核对，但这要花较长时间，而且容易出错，一旦出错，核查起来更麻烦。
本人充分运用Excel的VBA功能实现了银行对账自动化。
一、收集对账数据1、从账务系统中导出银行存款明细账的数据，并保存为EXCEL文档，然后把相应的内容复制到图1中对应的栏目内。
2、银行对账单数据文件一般为DBF格式，也有的为EXCEL文档，如果为DBF文件，就需要转化为EXCEL文档，然后把对应的内容复制到图1中对应的栏目内。
处理完后的EXCEL文档如图1，并把“sheet1”工作表重命名为“对账数据”。
图1二、自动核对对账数据1、在“对账数据”工作表中选择[工具] →［宏］→［Visual Basic编辑器］菜单，进入VBA编辑窗口，执行［插入］→［模块］命令，插入模块1，然后在编辑窗口中输入如下代码。
Sub zdhd()Dim Irow As Integer, i As Integer, j As IntegerIrow = [a1].CurrentRegion.Rows.Count ’取得行数For i = 3 To Irow ’数据从第3行开始For j = 3 To IrowIf Cells(i, "C") = Cells(j, "K") Then ’如果C列i行等于K列j行If Cells(i, "D") = Cells(j, "L") Then ’并且D列i行等于L列j行If Cells(i, "C") <> "" Then ’并且C列i行不等于空Cells(j, "L") = "√"’则L列j行的值为√Cells(i, "D") = "√"’则D列i行的值为√End If:End If:End If:Next j:Next iFor i = 3 To Irow ’注释与上相似For j = 3 To IrowIf Cells(i, "E") = Cells(j, "I") ThenIf Cells(i, "F") = Cells(j, "J") ThenIf Cells(i, "E")<>"" ThenCells(j, "J") = "√":Cells(i,"F") = "√"Exit For：End If：End If：End If：Next j：Next iEnd Sub注：单引号后的文字为代码注释，可以不输入，另外为节省篇幅,在一行中使用了冒号隔开多条指令(下同)。
2、源代码编辑无误后保存并退出，然后选择［视图］→［工具栏］→［窗体］命令，出现［窗体］控件，单击［按钮］，光标变成小十字形，然后将小十字形移到适当位置，按下左键拖动鼠标，直到出现的方框大小合适后，释放鼠标左键，形成一个按钮，点击按钮输入“自动核对”文字，然后在此按钮上单击右键，选择［指定宏］命令，弹出“宏”对话框，选定宏“zdhd”，单击对话框右上方的［确定］按钮，完成后按“自动核对”按钮即可勾对已达账，如图2。
图2三、生成银行存款调节表1、把“sheet2”工作表重命名为“银行调节表”，设置好1至9行的内容,然后按前面的方法插入一个模块2，并在编辑窗口中输入如下代码。
Sub lhtjb()Dim Irow As Integer, i As IntegerIrow = Sheet1.[a1].CurrentRegion.Rows.CountSheets("对账数据").Activate ’激活对账数据工作表For i = 3 To Irow ’数据从第3行开始If Cells(i, "D") = "" Then ’如果D列i行等于空If Cells(i, "C") <> "" Then ’并且C列i行不等于空Range(Cells(i, "A"), Cells(i, "C")).Select ’则选中A列i行至C列i行单元格Selection.Copy _’然后复制到银行调节表中相应的单元格中Sheets("银行调节表").Cells(i + 7, "A")End If:End If:Next iFor i = 3 To Irow ’’注释与上相似If Cells(i, "F") = "" Then:If Cells(i, "E") <> "" ThenRange(Cells(i, 1), Cells(i, 3)).SelectSelection.Copy Sheet2.Cells(i + 7, "A")Cells(i, "E").SelectSelection.Copy Sheet2.Cells(i + 7, "D")End If：End If：Next iFor i = 3 To Irow ’注释与上相似If Cells(i, "J") = "" Then:If Cells(i, "I") <> "" ThenRange(Cells(i, "H"), Cells(i, "I")).SelectSelection.Copy Sheet2.Cells(i + 7, "E")End If：End If：Next iFor i = 2 To Irow ’注释与上相似If Sheet1.Cells(i, "J") = "" ThenIf Sheet1.Cells(i, "K") <> "" ThenCells(i, "H").SelectSelection.Copy Sheet2.Cells(i + 7, "E")Cells(i, "K").SelectSelection.Copy Sheet2.Cells(i + 7, "G")End If：End If：Next iSheets("银行调节表").Activate ’激活银行调节表工作表End Sub2、源代码编辑无误后保存并退出，再按上面的方法创建一个窗体按钮，并输入“生成调节表”文字，然后把“lhtjb”宏指定给此按钮，完成后按“生成调节表”按钮即可生成如图3所示的银行存款余额调节表。
图3四、整理银行存款余额调节表1、仍按前面的方法插入一个模块3，然后在编辑窗口中输入如下代码。
Sub lhtzbzl()Dim i As Integer,Irow As IntegerIrow = Sheet1.[a1].CurrentRegion.Rows.Count ’取得行数Sheets("银行调节表").Activate ’激活银行调节表工作表For i = 10 To Irow ’数据从第10行开始If Cells(i, "A") = "" Then ’如果A列i行等于空’则选中A列i行至D列i行单元格Sheet2.Range(Cells(i, "A"), Cells(i, "D")).SelectSelection.Delete Shift:=xlUp ’向上删除选中单元格End If：Next i：For i = 10 To Irow ’同上If Cells(i, "E") = "" ThenSheet2.Range(Cells(i, "E"), Cells(i, "G")).SelectSelection.Delete Shift:=xlUpEnd If：Next i：Cells(10, "H").Activate2、源代码编辑无误后保存并退出，再按上面的方法创建一个窗体按钮，并输入“整理调节表”文字，然后把上面的“lhtzbzl”宏指定给此按钮，完成后按“整理调节表”按钮即可把未达账的空行删掉并整理好（如图3）。
至此，银行存款调节表自动完成，以后每月只要把银行日记账和对账单及上月未达账的数据对应复制到“对账数据”工作表中即可瞬间完成银行对账工作。
五、注意事项1、对账数据文件中的数值类型必须一致，否则无法完成核对工作2、对账时一般只要金额相等就会自动勾对，如果同时还要求时间相等的话，只要在代码中再加入一个判断语句即可；另外，遇到红字冲销的业务可用手工核销。