Ibaraki Pca BF Weight
v22.11.24
Solution to help 西山 team of エマール group transfer data faster for 茨城 (プレキャス) 重量 type BF from 文化シャッター 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