怎样处理月底银行 知乎对账单有差异 知乎

来源：蜘蛛抓取(WebSpider) 时间：2017-08-18 05:52 标签： 男女审美差异 知乎
新公司，银行打电话说基本户流水不够，要我们做两笔交易，账务怎么处理？ - 知乎10被浏览1677分享邀请回答02 条评论分享收藏感谢收起0添加评论分享收藏感谢收起第三方支付与银行的对账清算及账务是怎么处理的？ - 知乎182被浏览10570分享邀请回答/question/369479152、支付宝的天顺讲对账3、电商企业如何对账，下面有详细的操作说明4、题主说道的账务处理可参考下文52 条评论分享收藏感谢收起如何使用 excel 实现银行对账单与银行日记账的自动核对？ - 知乎503被浏览27671分享邀请回答Sub atuocheck()
IEND = Range("e65536").End(xlUp).Row
For n = 1 To 10
For i = i To IEND
c = Range("c" & i).Value
f = Range("G" & i).Value
If WorksheetFunction.And(c - f & 0, f && 0) Then
Range(Cells(i, 1), Cells(i, 3)).Select
Selection.Insert Shift:=xlDown
ElseIf WorksheetFunction.And(c - f & 0, c && 0) Then
Range(Cells(i, 5), Cells(i, 8)).Select
Selection.Insert Shift:=xlDown
If WorksheetFunction.And(c - f & 0, f && 0) Then
Range("d" & i).Value = 0 - f
ElseIf WorksheetFunction.And(c - f & 0, c && 0) Then
Range("d" & i).Value = c - 0
Range("d" & i).Value = c - f
If Range("c65536").End(xlUp).Row & Range("e65536").End(xlUp).Row Then
IEND = Range("c65536").End(xlUp).Row
IEND = Range("e65536").End(xlUp).Row
For i = 2 To Range("d65535").End(xlUp).Row
If Range("d" & i) && 0 Then
Range("a" & i & ":g" & i).Interior.Color = 65535
然后按F5运行。核对结果：金额不一致的会插行，且会用黄色整行高亮标出。这个方法有缺点。该代码对账的原理是纯用金额进行匹配对账。是用单元格进行金额的大小匹配，不是用字典之类的方法。若遇到巨大数据量，重复数据多的情况，会很抓狂。且不能识别日期备注，从而更加智能的判断数据。但能适应大部分的日常对账的情况。百度网盘地址放上。其他一些工具和更好的方法之类，我会近期陆续更新。---------------------------------------------------------------------------------------------------------对帐之前，先讲讲如何整理数据。（：12PM）不少人可能对帐的时候，遇到这样的情况。银行下载的根本不是excel 格式，可能是csv格式，txt格式，pdf格式，甚至是系统无法识别的格式。所以怎么把数据变成我们要的Excel格式，是必须要了解的方法。如何批量将拓展名转成txt。我曾遇到过这类情况，下载的数据明明能用txt打开，但下载下来的时候拓展名却不是txt。（可能是 “上海对帐单.” 之类的格式）而我每天要下载几百个对帐单，如果手工一个一个改，实在太浪费时间。这里介绍一个 用批处理 ren 命令解决的方案：百度经验的文章：如何批量修改文件后缀名？超详细链接：其实批处理的方法，还可以做到批量修改你电脑下载的连续剧的名字之类的，把xx字幕组/1080p/ 这类无用的名字都替换掉。具体方法请自行百度。txt格式转成Excel的方法：百度经验的文章：【Excel技巧】实现TXT内容的完美格式转换链接： 这篇文章已经讲的非常细了。但这里漏了一种可能的情况，我稍微补充一下。外企的公司，系统语言大多是英语。所以有些软件就不能很好的支持中文。比如我现在用excel打开txt后会是这样的。需要在文件原始格式/File origin：这里改成中文简体 ，编号是 936这一步当然也可以用宏完成。宏可以做到同一个文件夹内200多个txt，我可以全部转换成excel 并复制到一个总表中。这样就可以更方便自己汇总数据来对帐，而不用一个一个打开200多个报表了。这里只大概写一下会用到的fso代码的用法，和一般的思路。FSO之文件及文件夹操作方法fso读取folder 中所有的txt，然后转换成excel（转换的这步其实不难，可以通过录制学习，甚至直接录制后复制代码即可）。通过复制粘贴之类的vba 操作，你基本就得到了一个完整版的总表的对帐单明细。配合你的要求，对帐单可分可合，可按照收款生成一张表，按照付款生成一张表。或者按照某个地区的合并成一张表。或者所有的银行手续费生成一张表。如果实在觉得看不懂，更基础的知识在这里：Pdf格式转成Excel的方法：貌似审计都有自己的神器，比如 各种pdf转换器但往往这种只能转非扫描格式的pdf。如果是纯扫描而来的pdf，需要一些ocr软件才能转，而且识别率没有特别高的。我只能放出我曾经网上出钱买来的一个绿色软件，用着还可以。。但也不是那么尽善尽美。百度网盘地址如下：大概最完美的pdf 转excel 方法是实习生吧。。。---------------------------------------------------------------------------------------------------------对帐前的checkpoint点（:57 AM）对帐之前，为了避免rework。先进行以下几个checkpoint 点的检查，以下三个点如果没处理好，会对对帐产生较强的干扰。1：两边的数据，期间是否一致？（比如银行的帐单，一般是1号到最后一天，但有些公司的period 却不一定是这样）2：两边的数据，是否是一一对应。（有些时候，银行数据是逐一在帐单体现，可能会计人员为了偷懒少做几笔，就会捏总入帐。或者反之，会计逐一登帐，银行反而是捏总入帐。）3：两边数据，是否有对应的参考备注信息。（备注是用来区分重复金额。）以上如果没有问题的话。我建议可以把保留时间，备注，金额 3个要素。两边的数据进行金额降序排序后，放在一起检查。这个方法适合量中等，帐做的清楚的情况。如果两边数据有大量的不是一一对应。那么最好的方法是：想办法把两边数据促成一一对应。---------------------------------------------------------------------------------------------------------终于开始讲对帐的方法了，但这干货太干了点（:35 AM）相信很多人都有自己的对帐方法。我发现很多财务人员都喜欢用Vlookup来对。我曾经问过他们，那么重复数据怎么处理？回答基本都是先筛选出重复数据后再用vlookup，或者vlookup配合countif之类的方法。有些是增加辅助列的方法等。方法无所谓，你用的好就行。我就介绍一下我用宏对帐的思路。和一些代码的解释。其实手工和宏对帐，思路都是一样的，无非是宏速度更快，不会出错。这些放一个字典的方法。供懂vba的同学找到一个思路。 比如我有一堆数据，一边数据是正，一边是负（也可以理解为在对方是借在我方是贷）为了最简化流程。我只放金额在这里。如下图。如果要在这堆数字中找出重复的数字，最快的方法是用abs取绝对值，然后条件格式查找重复。但假如这堆数字有1万行，10万行，条件格式会卡的不像话。而且也不利于自己归类。且条件格式无法一一对应的成组去重复。比如有三个一样的数字，条件格式也不能很好的做到“一一对应” 成组去重。这里放一个比较简单的字典对帐的代码Sub check()
Set d = Nothing
Set d = CreateObject("Scripting.Dictionary")
n = [b1].End(4).Row - 1
[a2].Resize(n, 1) = "=row()-1"
[a2].Resize(n, 1).Value = [a2].Resize(n, 1).Value
a = [a2].Resize(n, 3)
For dicti = 1 To n
If a(dicti, 3) = "" And Not d.exists(a(dicti, 2)) Then
If Not d.exists(-a(dicti, 2)) Then
d.Add a(dicti, 2), dicti
a(dicti, 3) = C & "#Offset"
a(d(-a(dicti, 2)), 3) = C & "#Offset"
d.Remove (-a(dicti, 2))
[a2].Resize(n, 3) = a
Set d = Nothing
运行后是这样的可以发现，前两组，肉眼看着比较接近的数字。实际没有帮你去重复。而一正一复正好的数字，则分组帮你分类分好了。可以C列再作一个排序，就可以按金额一正一负的排序。而且最后18-20行，虽然出现了 几次数字一样，但只会核对掉一组的重复，而不会像条件格式那样，把所有金额都highlight出来。这个字典法，加入其他的循环条件，就可以做到配合备注参考，配合日期，进行更智能的对帐。且因为是在内存中运行，所以耗时很少。而且有一一对应，可以让老板拉查你核对过程的时候，你也能提供你查帐的时候的moverment纪录。而不是说我是用程序/工具核对的，并没有过程。所以，vba的字典查重复方法，这是我目前找到的最好的对帐方法了。本文主体部分完。以后可能会再增加一些案例。---------------------------------------------------------------------------------------------------------12121 条评论分享收藏感谢收起276 条评论分享收藏感谢收起查看更多回答

我要回帖

更多关于 男女审美差异 知乎 的文章

 

随机推荐