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

金蝶核算项目余额表卡号余额与天财尚龙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, )

ElseIf ((Left((Right(p, )), )) Like "]") Then

pd = Right(p, )

Else

pd = Right(p, )

pd = "" + pd

End If

End Function

'天财卡号判断

Function tcpd(p As String) As String

If p Like "19971200*" Then

tcpd = "" + Right(p, )

ElseIf p Like "1997019900*" Then

tcpd = "" + Right(p, )

ElseIf p Like "199716*" Then

tcpd = "" + Right(p, )

Else

tcpd = p

End If

End Function

巴特西

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

最新文章

热门文章