金蝶核算項目余額表卡號余額與天財尚龍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卡號余額對比