Ibaraki Pca BF Weight
v22.11.24
Solution to help Nishiyama team of Emar group transfer data faster for Ibaraki (Precas) weight type BF from Bunka Shutter partner.
'''
''' 運賃 (2トン車).
'''
''' Excel Application.
''' Selection.
Friend Sub Fare(xlApp As Application, choosen As Double )
If choosen = 1 Then
DctVal(xlApp, "BA159" , choosen)
End If
DctVal(xlApp, "BA109" , 5 ) ' D13
DctVal(xlApp, "BA110" , 3 ) ' D10
End Sub