Touhoku Beta Weight

ТОХОКУ (БЕТА) ВЕСОВОЕ РЕШЕНИЕ

Решение, которое поможет команде Нисиямы из группы Emar быстрее передавать данные о весе Тохоку (сплошного) от партнера Bunka Shutter.

МАСКА

КОД ДЕМО

 ''' <summary>
''' 運賃 (2トン車).
''' </summary>
''' <param name="xlApp">Excel Application.</param>
''' <param name="choosen">Selection.</param>
Friend Sub Fare(xlApp As Application, choosen As Double )
    If choosen = 1 Then
        DctVal(xlApp, "BA271" , choosen)
        DctVal(xlApp, "BA158" , 3 ) ' D16
        DctVal(xlApp, "BA159" , 2 ) ' D13
        DctVal(xlApp, "BA160" , 4 ) ' D10
    Else
        DctVal(xlApp, "BA161" , 2 ) ' D16
        DctVal(xlApp, "BA162" , 1 ) ' D13
        DctVal(xlApp, "BA163" , 3 ) ' D10
    End If
End Sub

ПАКЕТЫ

• Microsoft.Office.Interop.Excel » 15.0.4795.1001