Tự Phân Chia dữ liệu khi nhập vào

[Gagas]

Dạ chào mấy anh , file excel gồm 3 bảng:
+ bảng 1 là bảng mặc định tải về từ hệ thống
+ bảng 2 là e tự cập nhật vào
+ bảng 3 là bảng dùng để in ra ... cho bộ phận giao hàng ký nhận
AC giúp e cách nào để khi e nhập dữ liệu ( mã đơn hàng ) vào bảng 2 , thì mã đơn hàng sẽ tự xuât vào bảng 3 đúng với đơn vị vận chuyển , dựa trên số liệu bảng 1 không ạ
E Xin Cảm ơn ạ !

 

[ThanhVan88]

Dạ chào mấy anh , file excel gồm 3 bảng:
+ bảng 1 là bảng mặc định tải về từ hệ thống
+ bảng 2 là e tự cập nhật vào
+ bảng 3 là bảng dùng để in ra ... cho bộ phận giao hàng ký nhận
AC giúp e cách nào để khi e nhập dữ liệu ( mã đơn hàng ) vào bảng 2 , thì mã đơn hàng sẽ tự xuât vào bảng 3 đúng với đơn vị vận chuyển , dựa trên số liệu bảng 1 không ạ
E Xin Cảm ơn ạ !

Sheet cần in bạn add mẫu fom cần in đi,gửi file mình giúp nhé.

 

[Gagas]

Sheet cần in bạn add mẫu fom cần in đi,gửi file mình giúp nhé.

dạ sheet 1 là sheet e cập nhật đơn vào bằng máy quết code, Sheet 2 la in ra cho giao hàng, sheet 3 -4 là sheet để lấy dữ liệu ạ

 

[ThanhVan88]

dạ sheet 1 là sheet e cập nhật đơn vào bằng máy quết code, Sheet 2 la in ra cho giao hàng, sheet 3 -4 là sheet để lấy dữ liệu ạ

OK BẠN.

 

[Gagas]

OK BẠN.

Dạ lại phải nhờ a nửa rùi ><

 

[ThanhVan88]

Dạ lại phải nhờ a nửa rùi ><

Không sao bạn,nếu trong khả năng mình giúp đc mình sẽ giúp bạn nhé.

 

[keyeutien]

Dạ chào mấy anh , file excel gồm 3 bảng:
+ bảng 1 là bảng mặc định tải về từ hệ thống
+ bảng 2 là e tự cập nhật vào
+ bảng 3 là bảng dùng để in ra ... cho bộ phận giao hàng ký nhận
AC giúp e cách nào để khi e nhập dữ liệu ( mã đơn hàng ) vào bảng 2 , thì mã đơn hàng sẽ tự xuât vào bảng 3 đúng với đơn vị vận chuyển , dựa trên số liệu bảng 1 không ạ
E Xin Cảm ơn ạ !

Thấy nickname sao quen quen, nhìn file 2 tên sheet dài dòng quá, mình làm thử công thức file đầu tiên trong cũng bảng tính

 

[Gagas]

Thấy nickname sao quen quen, nhìn file 2 tên sheet dài dòng quá, mình làm thử công thức file đầu tiên trong cũng bảng tính

Dạ hồi Tối e mới dc a vs a ThanhVan88 giúp ạ!

 

[keyeutien]

Dạ hồi Tối e mới dc a vs a ThanhVan88 giúp ạ!

Nếu đã làm file xlsb thì nhờ @ThanhVan88 làm code vba luôn cho tiện

 

[Gagas]

Nếu đã làm file xlsb thì nhờ @ThanhVan88 làm code vba luôn cho tiện

a lại xúi e ... kakaka ...

 

[Hoàng Nhật Phương]

Dạ chào mấy anh , file excel gồm 3 bảng:
+ bảng 1 là bảng mặc định tải về từ hệ thống
+ bảng 2 là e tự cập nhật vào
+ bảng 3 là bảng dùng để in ra ... cho bộ phận giao hàng ký nhận
AC giúp e cách nào để khi e nhập dữ liệu ( mã đơn hàng ) vào bảng 2 , thì mã đơn hàng sẽ tự xuât vào bảng 3 đúng với đơn vị vận chuyển , dựa trên số liệu bảng 1 không ạ
E Xin Cảm ơn ạ !

Bạn thử code này xem (hic! sao mà lắm for nhiều if vậy,liệu vậy có thừa gì không ta...)

Option Explicit

Sub TapCode_PhieuXuat()
    Dim Bang1(), Bang2(), Bang3(), KQ()
    Dim i As Long, c As Long, j As Long, k As Long
    With ThisWorkbook.Worksheets("Sheet1")
        Bang1 = .Range("A5:F" & 10).Value
        Bang2 = .Range("C18:D23").Value
        Bang3 = .Range("I6:L6").Value
        ReDim KQ(1 To UBound(Bang2, 1), 1 To 4)
        For c = 1 To UBound(Bang1, 1)
            For i = 1 To UBound(Bang2, 1)
                If Bang2(i, 1) = Bang1(c, 1) Then
                    For j = 1 To 4
                        If Bang3(1, j) = Bang1(c, 6) Then
                            k = k + 1
                            KQ(k, j) = Bang2(i, 1)
                        End If
                    Next j
                End If
            Next i
        Next c
        .Range("I7:L20").Value = Empty
        .Range("I7").Resize(k, 4).Value = KQ
    End With
End Sub

 

[HieuCD]

Bạn thử code này xem (hic! sao mà lắm for nhiều if vậy,liệu vậy có thừa gì không ta...)

Option Explicit

Sub TapCode_PhieuXuat()
    Dim Bang1(), Bang2(), Bang3(), KQ()
    Dim i As Long, c As Long, j As Long, k As Long
    With ThisWorkbook.Worksheets("Sheet1")
        Bang1 = .Range("A5:F" & 10).Value
        Bang2 = .Range("C18:D23").Value
        Bang3 = .Range("I6:L6").Value
        ReDim KQ(1 To UBound(Bang2, 1), 1 To 4)
        For c = 1 To UBound(Bang1, 1)
            For i = 1 To UBound(Bang2, 1)
                If Bang2(i, 1) = Bang1(c, 1) Then
                    For j = 1 To 4
                        If Bang3(1, j) = Bang1(c, 6) Then
                            k = k + 1
                            KQ(k, j) = Bang2(i, 1)
                        End If
                    Next j
                End If
            Next i
        Next c
        .Range("I7:L20").Value = Empty
        .Range("I7").Resize(k, 4).Value = KQ
    End With
End Sub

Kết quả chấp hành nghiêm túc giãn cách nCoV

 

[Hoàng Nhật Phương]

Kết quả chấp hành nghiêm túc giãn cách nCoV

Con chào Bác Hiếu,
Hic con cũng thấy thế, nhưng chưa biết cách xử lý.
Bác chỉ giáo thêm cho con ạ.

 

[HieuCD]

Con chào Bác Hiếu,
Hic con cũng thấy thế, nhưng chưa biết cách xử lý.
Bác chỉ giáo thêm cho con ạ.

Thêm lệnh dò dòng cuối của bảng kết quả

 

[Hoàng Nhật Phương]

Thêm lệnh dò dòng cuối của bảng kết quả

Hết giãn cách, nhưng bỏ mảng Bác ạ
Bác chỉ giúp con cách giữ lại mảng với T_T

Option Explicit

Sub TapCode_PhieuXuat_HetGianCach()
    Dim Bang1(), Bang2(), Bang3(), i As Long, c As Long, j As Long, k As Long
    With ThisWorkbook.Worksheets("Sheet1")
        Bang1 = .Range("A5:F" & 10).Value
        Bang2 = .Range("C18:D23").Value
        Bang3 = .Range("I6:L6").Value
                .Range("I7:L20").Value = Empty
        For c = 1 To UBound(Bang1, 1)
            For i = 1 To UBound(Bang2, 1)
                If Bang2(i, 1) = Bang1(c, 1) Then
                    For j = 1 To 4
                        If Bang3(1, j) = Bang1(c, 6) Then
                             k = .Range("H20").Offset(, j).End(xlUp).Row + 1
                            .Cells(k, 8 + j) = Bang2(i, 1)
                        End If
                    Next j
                End If
            Next i
        Next c
    End With
End Sub

 

[Ba Tê]

Hết giãn cách, nhưng bỏ mảng Bác ạ
Bác chỉ giúp con cách giữ lại mảng với T_T

Chơi chiêu với nó một chút!

Option Explicit

Sub TapCode_PhieuXuat()
    Dim Bang1(), Bang2(), Bang3(), KQ()
    Dim i As Long, c As Long, j As Long, k As Long, MaxK As Long
    With ThisWorkbook.Worksheets("Sheet1")
        Bang1 = .Range("A5:F" & 10).Value
        Bang2 = .Range("C18:D23").Value
        Bang3 = .Range("I6:L6").Value
        ReDim KQ(1 To 1000, 1 To 4) '<======= lay so 1000 lam cui bap'
        For c = 1 To UBound(Bang1, 1)
            For i = 1 To UBound(Bang2, 1)
                If Bang2(i, 1) = Bang1(c, 1) Then
                    For j = 1 To 4
                        If Bang3(1, j) = Bang1(c, 6) Then
                            k = KQ(1000, j) + 1
                            KQ(k, j) = Bang2(i, 1)
                            KQ(1000, j) = k
                            If k > MaxK Then MaxK = k
                            Exit For    '===========Hong choi nua'
                        End If
                    Next j
                End If
            Next i
        Next c
        .Range("I7:L200").ClearContents
        .Range("I7").Resize(MaxK, 4).Value = KQ
    End With
End Sub

 

[Hoàng Nhật Phương]

Chơi chiêu với nó một chút!

Option Explicit

Sub TapCode_PhieuXuat()
    Dim Bang1(), Bang2(), Bang3(), KQ()
    Dim i As Long, c As Long, j As Long, k As Long, MaxK As Long
    With ThisWorkbook.Worksheets("Sheet1")
        Bang1 = .Range("A5:F" & 10).Value
        Bang2 = .Range("C18:D23").Value
        Bang3 = .Range("I6:L6").Value
        ReDim KQ(1 To 1000, 1 To 4) '<======= lay so 1000 lam cui bap'
        For c = 1 To UBound(Bang1, 1)
            For i = 1 To UBound(Bang2, 1)
                If Bang2(i, 1) = Bang1(c, 1) Then
                    For j = 1 To 4
                        If Bang3(1, j) = Bang1(c, 6) Then
                            k = KQ(1000, j) + 1
                            KQ(k, j) = Bang2(i, 1)
                            KQ(1000, j) = k
                            If k > MaxK Then MaxK = k
                            Exit For    '===========Hong choi nua'
                        End If
                    Next j
                End If
            Next i
        Next c
        .Range("I7:L200").ClearContents
        .Range("I7").Resize(MaxK, 4).Value = KQ
    End With
End Sub

Hay quá Thầy ơi, khi nãy con cũng thử loay hoay mãi với cái Exit For rồi nhưng được mỗi cột đầu ạ.
Con cảm ơn Thầy đã chỉ dẫn ạ.

 

[Ba Tê]

Hay quá Thầy ơi, khi nãy con cũng thử loay hoay mãi với cái Exit For rồi nhưng được mỗi cột đầu ạ.
Con cảm ơn Thầy đã chỉ dẫn ạ.

Nếu dữ liệu chỉ bấy nhiêu thì 3 cái For chưa thấy gì.
Nếu dữ liệu bảng1 1000 dòng, bảng2 500 dòng, Bảng3 50 cột mới thấy "Hùm Beo".

 

[Hoàng Nhật Phương]

Nếu dữ liệu chỉ bấy nhiêu thì 3 cái For chưa thấy gì.
Nếu dữ liệu bảng1 1000 dòng, bảng2 500 dòng, Bảng3 50 cột mới thấy "Hùm Beo".

Thầy ơi vậy có thể giảm được vòng for nào trong bài này được không ạ?

 

[Ba Tê]

Thầy ơi vậy có thể giảm được vòng for nào trong bài này được không ạ?

Nếu là tôi thì tôi khoái "Dic" hơn. Có thể cùng 3 For nhưng mỗi For chỉ 1 lần.