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