往来账清账勾对,字典实例详解,把多个单元格区域组合装入字典

文摘   教育   2024-10-17 23:57   江苏  

点【关于本公众号】了解一下,欢迎关注谢谢!

快速浏览

实用案例

|日期控件||简单的收发存||收费管理系(Access改进版)|

|电子发票管理助手||电子发票登记系统(Access版)|

|文件合并||表格拆分||审计凭证抽查底稿|

|中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|

|印章使用登记系统|

收费使用项目

|财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版|

内容提要

  • 往来账勾对
  • 字典dictionary应用
大家好,我是冷水泡茶,今天在EXCELHOME论坛上看到一个求助贴:[求助] 如何用VBA将往来账勾对两清?
我仔细研究了一下,觉得可以用字典来解决,正好前天我们分享过一篇关于字典的内容:

有人想付费学习字典,我觉得没啥必要,再谈字典Dictonary(免费)!

今天我们就实际应用一下。
数据表格就是一张Sheet1表,是一个预付账款单位往来明细账:
具体要求

将表中单位,单据编号相同,借贷金额相等的数据,自动勾对两清?

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。

好,今天就到这里,我们下期再会!


~~~~~~End~~~~~~

安利小店
安利的牙膏非常不错,用了以后就不想再用其他的了;洗洁精洗衣液也是日常必备,用过都说好!

合谷医疗
合谷医疗专攻各种疑难杂症,尤其擅长抑郁症焦虑失眠儿童神经发育异常多动症自闭孤独症腰颈椎疾病治疗,可谓神乎其技!体验过的直呼早点来就好了

喜欢就点个、点在看留言评论、分享一下呗!感谢支持!

案例文件分享说明

  • 案例文件可免费分享,但需符合以下要求:

  • 关注点赞点在看点...留言,方便的话分享一下就完美啦!如果不便走上面的“流程”,请打赏,万分感谢!

  • 请添加上方我的合谷医疗企业微信,案例文件通过微信发送。如有定制需求,亦可通过微信联系。

  • Excel问题,请在文章下面留言讨论!或者加入我的付费交流群提问

VBA编程实战
Excel应用案例、Excel VBA、公式函数使用技巧分享,思路解读...... 这里有鲜活案例、实用的技巧......
 最新文章