内容纲目38ab
来回账勾对字典dictionary欺诈人人好，我是冷水沏茶，今天在EXCELHOME论坛上看到一个乞助贴：[乞助] 若何用VBA改日往账勾对两清?我仔细究诘了一下，以为不错用字典来处理，正巧前天咱们共享过一篇对于字典的内容：有东谈主想付费学习字典，我以为没啥必要，再谈字典Dictonary（免费）！
今天咱们就实质欺诈一下。数据表格即是一张Sheet1表，是一个预支账款单元来回明细账：图片
具体条目：将表中单元，票据编号疏浚，假贷金额终点的数据，自动勾对两清？
在线看a片https://club.excelhome.net/thread-1616710-1-1.html?_dsign=22d05a96
对于两列数据勾对的操作，咱们共享过一个银行余额革新表案例：
银行对账单自动勾对跟今天的案例有点访佛，但也有所不同，今天的案例勾对边界有放弃，在归并个供应商、归并个来回业务编号内进行勾对。
基本想路：
1、咱们秉承字典来归集每个供应商、每个业务编号的数据。2、咱们把数据按照供应商、业务编号进行汇总，要是假贷方终点，咱们就把现时供应生意务编号悉数记载匀打上两清标识“y”。3、要是假贷方不等，咱们再逐行比拟，找到假贷方金额疏浚的进行勾对。4、在勾对历程中，咱们需要记下每一滑数据的地点行号，以便能正确写入两清标识“y”，咱们干脆平直操作单元格，把每个供应生意务编号的地点区域Range对象组合在沿途，作为字典的item。5、咱们轮回字典的key，把item取出到一个Range对象rng，然后轮回rng的悉数行区域，把借、贷方金额进行汇总，要是借、贷方汇总金额终点，则把rng的第6列打上“y”，要是借、贷方汇总不等，再逐一比拟每一滑的借、贷方金额，把借、贷疏浚的打上“y” 。图片
完好示例代码详见今日另一条推文。
跋文
1、演示表格中临了3行标红的记载，是我自后添加上去的，用来测试当供应生意务编号汇总的借、贷方不等时，再进行明细勾对。
2、要是借、贷方汇总金额终点时，咱们标上绿色，示意十足两清。要是汇总的假贷方不等，但有明细的借、贷方金额疏浚的，咱们也进行勾对，标上淡黄色，示意不十足两清。
3、还有一种复杂的情况咱们莫得去辩论，即是在进行明细勾对时，一双多、多对多的情况。要是凑巧的话，在借、贷方汇总金额终点的情况下，有可能包含一双多、多对多的情况，变相处理这个问题，不错行为一种特例吧。
4、在勾对处理时，咱们是轮回字典的key，这里也不错平直轮回字典的item。
好，今天就到这里38ab，咱们下期相遇！
~~~~~~End~~~~~~ 本站仅提供存储劳动，悉数内容均由用户发布，如发现存害或侵权内容，请点击举报。