码迷,mamicode.com
首页 > 其他好文 > 详细

金蝶核算项目余额表卡号余额与天财商龙CRM卡号余额对比

时间:2018-05-13 01:11:09      阅读:209      评论:0      收藏:0      [点我收藏+]

标签:code   tcp   end   人工   方法   提高   工作   col   同事   

金蝶核算项目余额表卡号余额与天财尚龙CRM卡号余额对比

由于历史遗留问题,财务一直不调账,修改核算科目卡号与天财商龙CRM系统一直,只能用VBA把卡号前缀修改成两边一致。

再通过,Power BI Desktop进行比对,这个貌似比EXCEL的vlookup好用多了。

由于后期本人不再使用,SO不再进行升级优化,编写成全自动。

利用该方法,有效提高了对比速度,由原来的10多天人工对比,到现在的五六分钟,大大提高了工作效率。

虽然可以优化成一分钟之内实时更新对比数据,输出余额不一致卡号。但是本人不再进行使用,已经教会给同事,由同事使用,五分钟之内还是可以接受的。就不再花费时间和精力进行优化。

 

Attribute VB_Name = "模块1"
金蝶卡号判断
Function pd(p As String) As String

If p Like "*1997*" Then
pd = Right(p, 16)
ElseIf ((Left((Right(p, 9)), 1)) Like "]") Then
pd = Right(p, 8)
Else
pd = Right(p, 6)
pd = "1997000000" + pd
End If
End Function

天财卡号判断
Function tcpd(p As String) As String

If p Like "19971200*" Then
tcpd = "1997000000" + Right(p, 6)
ElseIf p Like "1997019900*" Then
tcpd = "1997000000" + Right(p, 6)
ElseIf p Like "199716*" Then
tcpd = "1997000000" + Right(p, 6)
Else
tcpd = p
End If

End Function



金蝶核算项目余额表卡号余额与天财商龙CRM卡号余额对比

标签:code   tcp   end   人工   方法   提高   工作   col   同事   

原文地址:https://www.cnblogs.com/landv/p/9030697.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!