运用EXCEL实现银行对账自动化
- 格式:doc
- 大小:32.50 KB
- 文档页数:5
如何有效利用Excel软件处理银行工作中的数据在银行工作中,处理大量的数据是一项非常重要的工作。
为了提高工作效率和准确性,使用Excel软件是一种有效的方法。
本文将介绍如何利用Excel软件来处理银行工作中的数据,并给出一些建议和技巧。
一、数据导入与整理在处理银行工作中的数据之前,首先需要将数据导入到Excel中。
可以通过“文件”>“导入”选项来导入各种格式的数据,如CSV、文本文件等。
导入数据后,可以使用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银行存款是企事业单位流动性最强的资产,为保证银行存款的安全完整,必须定期对银行存款进行清查,银行存款的清查主要手段是通过银行对账单与企业银行存款日记账的核对,并编制银行存款余额调节表,核对双方的余额及账目实现的。而实际工作中,大多采用人工核对方法,不仅耗时,而且容易出错。也有部分单位购买的财务软件中附带此项功能或制作了相应的软件通过计算机完成该项工作,但都会产生较大的成本。本文试图通过常用的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中,有两种常用的对账函数,分别是“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软件处理银行工作中的数据在银行工作中,处理大量的数据是不可避免的任务。
为了高效地完成这项工作,Excel软件成为了银行从业人员必备的工具之一。
Excel 拥有强大的数据处理和分析功能,可以帮助银行工作者更加便捷地管理和处理数据。
本文将介绍如何有效利用Excel软件处理银行工作中的数据。
一、数据导入与整理1. 数据导入通过Excel软件,可以将银行系统导出的数据文件直接导入到Excel 中进行进一步处理。
在Excel中,点击“数据”选项卡,选择“从文本”或“从其他源”导入数据。
选择正确的数据分隔符,并按照引导逐步导入数据。
2. 数据整理银行工作中,数据可能会存在许多冗余、重复或者格式不统一的情况。
在Excel中,可以通过筛选和排序功能对数据进行整理和清洗。
点击“数据”选项卡中的“筛选”,选择需要筛选或排序的列,根据所需条件进行筛选和排序,以获取有效的数据。
二、数据分析与统计1. 利用公式计算Excel软件内置了众多的函数和公式,可以根据具体需求进行灵活运用。
在银行工作中,常常需要对数据进行汇总、求和、平均值、最大值等统计分析操作。
通过在表格中选择合适的位置,使用SUM、AVERAGE、MAX等函数,可以轻松实现这些计算操作。
2. 制作图表图表是对数据进行可视化展示的重要手段,可以帮助银行工作者更好地理解和分析数据。
Excel提供了丰富的图表类型,如条形图、折线图、饼图等。
选中要制作图表的数据,点击“插入”选项卡,选择合适的图表类型即可生成图表。
三、数据保护与风险控制1. 数据备份由于银行工作中的数据非常重要,为了避免数据丢失或损坏,及时进行数据备份是必不可少的。
在Excel中,可以将需要备份的数据保存在不同的工作簿或者另存为其他格式(如CSV),确保数据的安全性。
2. 数据权限设置为了保护银行数据的隐私和安全,Excel提供了权限设置功能。
通过点击“文件”选项卡,在“保护工作簿”或“保护工作表”中选择相应的权限设置,可以限制他人对数据进行修改或查看,提升数据的保密性。
会计对账excel的简单方法会计对账是会计工作中非常重要的一环,它确保了财务数据的准确性和一致性。
在日常工作中,使用Excel进行会计对账是一种常见的方法。
下面将详细介绍关于会计对账Excel的简单方法。
第一步:准备数据首先,需要准备好需要对账的数据。
这包括银行对账单、公司账户明细、发票、收据等。
将这些数据整理好,确保数据的完整性和准确性。
第二步:创建Excel工作表在Excel中创建一个新的工作表,用于进行对账。
可以根据需要创建多个工作表,例如一个用于银行对账,另一个用于公司账户对账。
第三步:导入数据将准备好的数据导入到Excel工作表中。
可以使用Excel的导入功能,将数据从外部文件(如银行对账单的电子版)导入到工作表中。
确保导入的数据与源数据一致。
第四步:设置对账规则根据对账的需要,设置对账规则。
例如,对账时需要比对金额、日期、摘要等信息。
可以使用Excel的筛选、排序和条件格式等功能,快速找到不一致的数据。
第五步:进行对账根据设置的对账规则,逐行比对数据。
将银行对账单和公司账户明细逐行对应,比对金额和日期等信息。
如果发现不一致的数据,可以使用Excel的标记功能,将不一致的数据标记出来。
第六步:调整数据如果发现不一致的数据,需要进行调整。
可以根据具体情况,修改金额、日期等信息,使其与对方账户一致。
同时,需要记录下调整的原因和日期,以备将来查询。
第七步:生成对账报告对账完成后,可以生成对账报告。
使用Excel的图表和表格功能,将对账结果进行可视化展示。
可以创建柱状图、折线图等,直观地展示对账结果。
第八步:保存和备份最后,对账完成后,及时保存和备份数据。
确保数据的安全性和可追溯性。
可以将对账报告保存为PDF或其他格式,以备将来查阅。
通过以上简单的方法,可以在Excel中进行会计对账。
这种方法简单易行,同时也提高了工作效率和准确性。
然而,对账过程中仍需谨慎操作,确保数据的准确性和一致性。
运用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、对账时一般只要金额相等就会自动勾对,如果同时还要求时间相等的话,只要在代码中再加入一个判断语句即可;另外,遇到红字冲销的业务可用手工核销。