金蝶核算项目余额表卡号余额与天财商龙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, 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本文参与 腾讯云自媒体分享计划，分享自作者个人站点/博客。
原始发表：2018-05-13 ，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
相关产品与服务
腾讯云 BI
腾讯云 BI（Business Intelligence，BI）提供从数据源接入、数据建模到数据可视化分析全流程的BI能力，帮助经营者快速获取决策数据依据。系统采用敏捷自助式设计，使用者仅需通过简单拖拽即可完成原本复杂的报表开发过程，并支持报表的分享、推送等企业协作场景。