Ibaraki Pca Weight

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

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

МАСКА

КОД ДЕМО

Excel Application. ''' Selection. Friend Sub Fare(xlApp As Application, choosen As Double) If choosen = 1 Then DctVal(xlApp, "BA158", choosen) End If DctVal(xlApp, "BA108", 5) ' D13 DctVal(xlApp, "BA109", 3) ' D10 End Sub">

 ''' 

''' 運賃 (2トン車).
''' 
''' Excel Application.
''' Selection.
Friend Sub Fare(xlApp As Application, choosen As Double )
    If choosen = 1 Then
        DctVal(xlApp, "BA158" , choosen)
    End If
    DctVal(xlApp, "BA108" , 5 ) ' D13
    DctVal(xlApp, "BA109" , 3 ) ' D10
End Sub

ПАКЕТЫ

• Microsoft.Office.Interop.Excel » 15.0.4795.1001