【关于本公众号】了解一下，欢迎关注，谢谢！
快速浏览
实用案例
|日期控件||简单的收发存||收费管理系(Access改进版)|
|中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|
收费使用项目
|财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版|
内容提要
往来科目重分类 数组、字典
各位达人，请教一个会计科目重新分类的VBA编写
按一级名称+客户进行分类，期末借方合计-期末贷方合计>0,在期末借方显示"期末借方合计-期末贷方合计"
按一级名称+客户进行分类，期末借方合计-期末贷方合计<0,在期末借方显示"-（期末借方合计-期末贷方合计）"
https://club.excelhome.net/thread-1705445-1-1.html
（注：最新帖子中需求与附件格式有改变）
在财务、审计工作中，经常会碰到往来科目余额变成负数的情况，在编制财务报表的时候，需要对这些科目进行“重分类”处理，基本规则如下：
1、资产类科目出现贷方余额，需要把余额调整到对应的负债类科目余额中：
（1）应收账款-->预收账款；
（2）预付账款-->应付账款；
（3）其他应收款-->其他应付款
2、负债类科目出现借方余额，调整到对应的资产类科目中，把上面的反过来即可。
If dicSubjects(key1)("方向") = "借" ThenIf balance > 0 Thenarr(3, i) = balanceElseIf changeSubject Thenarr(1, i) = dicSubjects(key1)("对应科目")End Ifarr(4, i) = -balanceEnd IfElseIf balance > 0 Thenarr(4, i) = balanceElseIf changeSubject Thenarr(1, i) = dicSubjects(key1)("对应科目")End Ifarr(3, i) = -balanceEnd IfEnd If
完整代码详见当天另一条推文！
后记
1、如果不喜欢“对照表”，我们可以在字典里一个一个科目地添加，需要对应的科目不算多，但也有点麻烦，如果科目名称有变化，那还得修改代码。
2、如果大家去论坛看帖子，他的需求与附件已经修改过了，在我发现之前，我已经做好了，就不去改了，基本意图还是一致的。
好，今天就到这里，我们下期再会！
| 安利小店 安利的牙膏非常不错，用了以后就不想再用其他的了；洗洁精、洗衣液也是日常必备，用过都说好！ | |
| 合谷医疗 合谷医疗专攻各种疑难杂症，尤其擅长抑郁症、焦虑失眠、儿童神经发育异常、多动症、自闭孤独症、腰颈椎疾病治疗，可谓神乎其技！体验过的直呼早点来就好了！ |
喜欢就点个赞、点在看、留言评论、分享一下呗！感谢支持！
案例文件分享说明：
案例文件可免费分享，但需符合以下要求：
请关注、点赞、点在看、点...、留言，方便的话分享一下就完美啦！如果不便走上面的“流程”，请打赏，万分感谢！
请添加上方我的合谷医疗企业微信，案例文件通过微信发送。如有定制需求，亦可通过微信联系。
Excel问题，请在文章下面留言讨论！或者加入我的付费交流群提问！
