load cước vận chuyển hàng hóa

[cotlieu68]

Nhờ các Anh Chị viết cotde giùm tôi về load dữ liệu (load cước vận chuyển hàng hóa) có vd đính kèm

 

[nghiaphuc]

Nhờ các Anh Chị viết cotde giùm tôi về load dữ liệu (load cước vận chuyển hàng hóa) có vd đính kèm

Bạn dùng thử code này nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim h As Integer, i As Byte, Cll As Range
    If Target.Column <> 10 Then Exit Sub
    If Target.Value = "" Then Application.Union(Target.Offset(, 2), Target.Offset(, 4), Target.Offset(, 6), Target.Offset(, 8)).ClearContents
    On Error GoTo Thoat
    h = WorksheetFunction.Match(Target, Sheet2.[A:A], 1)
    Set Cll = Sheet2.Cells(h, 1)
    For i = 1 To 4
        Target.Offset(, 2 * i).Value = Cll.Offset(, i)
    Next i
Thoat:
End Sub

 

[sealand]

Mình xin tham gia 1 code, mình nghĩ là cứ điền các cự ly chi tiết là có kết quả:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j, k
On Error Resume Next
i = Target.Row: k = 2
If i > 6 And InStr(1, "1;3;5;7", Target.Column - 10)>0 Then
For j = 1 To 7 Step 2
Cells(i, 11 + j) = WorksheetFunction.VLookup( _
Cells(i, 10 + j), Sheet2.Range("cuoc"), k)
k = k + 1
Next
Cells(i, 10) = Cells(i, 11) + Cells(i, 13) + Cells(i, 15) + Cells(i, 17)
Cells(i, 19) = Cells(i, 11) * Cells(i, 12) + Cells(i, 13) * Cells(i, 14) + _
Cells(i, 15) * Cells(i, 16) + Cells(i, 17) * Cells(i, 182)
End If
End Sub

 

[cotlieu68]

Trân trọng cám ơn Hoàng Nghĩa Phúc và bạn Scaland đã giúp đỡ, tôi đã thử Ý kiến của 2 bạn và nhận thấy sự độc đáo của hai PP.Nhưng theo các văn bản nhà nước thì PP của bạn Hoàng Nghĩa Phúc đúng hơn vì bảng cước tính theo cự ly tổng cộng. còn PP của bạn Scaland tra theo cự ly đơn lẻ sẽ sai theo cách tính của PP tính cước của các văn bản hướng dẫn. Nhưng nó cũng sử dụng vào nhiều mục đích khác. Xin trân trọng kính chào!