Tìm dữ liệu nhiều điều kiện

[Thulib]

Xin chào cả nhà,
E đang có 1 file có 2 sheets :
Sheet dl : Dữ liệu hóa đơn thể hiện : mặt hàng, Đơn giá, thành tiền
Sheet bk: Em sẽ đẩy các dữ liệu sang bảng kê theo hóa đơn: bao gồm mặt hàng, số lượng, đơn giá và thành tiền
Em đang ko biết làm như thế nào, mong cả nhà giúp đỡ! Em cảm ơn ạ!

 

[HieuCD]

Xin chào cả nhà,
E đang có 1 file có 2 sheets :
Sheet dl : Dữ liệu hóa đơn thể hiện : mặt hàng, Đơn giá, thành tiền
Sheet bk: Em sẽ đẩy các dữ liệu sang bảng kê theo hóa đơn: bao gồm mặt hàng, số lượng, đơn giá và thành tiền
Em đang ko biết làm như thế nào, mong cả nhà giúp đỡ! Em cảm ơn ạ!

Chạy code Sub XYZ() Dim sArr(), aTieuDe(), Res() Dim sR&, sRow&, sCol&, i&, j&, stt&, k& With Sheets("dl") i = .Range("C" & Rows.Count).End(xlUp).Row j = .Cells(2, Columns.Count).End(xlToLeft).Column If i < 5 Or j < 5 Then Exit Sub sArr = .Range("C2", .Cells(i, j)).Value sR = Application.CountIf(.Range("E5", .Cells(i, j)), ">0") End With sRow = UBound(sArr): sCol = UBound(sArr, 2) ReDim Res(1 To sR, 1 To j + 3) ReDim aTieuDe(1 To 1, 1 To j - 4) For j = 3 To sCol aTieuDe(1, j - 2) = sArr(1, j) stt = 0 For i = 4 To sRow If sArr(i, j) > 0 Then k = k + 1 stt = stt + 1 Res(k, 1) = "'" & Format(stt, "00") Res(k, 2) = sArr(1, j) Res(k, 3) = sArr(i, 1) Res(k, 7) = sArr(i, 2) Res(k, j + 5) = sArr(i, j) Res(k, 6) = Res(k, j + 5) / Res(k, 7) End If Next i Next j With Sheets("bk") i = .Range("B" & Rows.Count).End(xlUp).Row j = .Cells(4, Columns.Count).End(xlToLeft).Column If i > 4 Then .Range("A5", .Cells(i, j)).ClearContents If j > 7 Then .Range("H4", .Cells(4, j)).ClearContents .Range("H4").Resize(, UBound(aTieuDe, 2)).Value = aTieuDe .Range("A5").Resize(k, UBound(Res, 2)).Value = Res End With End Sub

 

[Thulib]

Em cảm ơn a, nhưng nếu như e xuất nhiều hơn 5 hóa đơn thì bị lỗi và e đang muốn nó ra theo bảng kê như mẫu này luôn anh ạ

 

[HieuCD]

Em cảm ơn a, nhưng nếu như e xuất nhiều hơn 5 hóa đơn thì bị lỗi và e đang muốn nó ra theo bảng kê như mẫu này luôn anh ạ
View attachment 260249

Bị lỗi chỗ nào vậy?
Bảng kê không làm được vì nhiều cột không có dữ liệu

 

[Thulib]

Khi mà e chạy nhiều hóa đơn ( tối đa 100 số ), thì lại ko thể hiện lên số hóa đơn ntn ạ

Sang cái Bảng kê mà e cần đưa vào thì nó cũng tương tự như các thông tin mà a đã đưa lên như trên thôi ạ

Em gửi lại file e khi e thêm hóa đơn nha a!

 

[HieuCD]

Khi mà e chạy nhiều hóa đơn ( tối đa 100 số ), thì lại ko thể hiện lên số hóa đơn ntn ạ
View attachment 260274
Sang cái Bảng kê mà e cần đưa vào thì nó cũng tương tự như các thông tin mà a đã đưa lên như trên thôi ạ
View attachment 260276
Em gửi lại file e khi e thêm hóa đơn nha a!

Sheet dl tại sao số hóa đơn sau lại nằm ở dòng 1 vậy? bình thường ở dòng 2 mờ

 

[le_vis]

Khi mà e chạy nhiều hóa đơn ( tối đa 100 số ), thì lại ko thể hiện lên số hóa đơn ntn ạ
View attachment 260274
Sang cái Bảng kê mà e cần đưa vào thì nó cũng tương tự như các thông tin mà a đã đưa lên như trên thôi ạ
View attachment 260276
Em gửi lại file e khi e thêm hóa đơn nha a!

Tôi cấu trúc lại biểu nhập liệu và dùng cột phụ để kết chuyển dữ liệu - Bạn xem File xem có ưng cái bụng mình không ?
Theo tôi bạn nên tạo Sheet "Danh mục hàng hóa" và lập mã duy nhất cho từng mặt hàng - Như vậy khi nhập liệu bạn chỉ cần nhập mã hàng hóa không phải nhập tên hàng nữa sẽ đơn giản hơn - Chúc thành công

 

[Thulib]

Sheet dl tại sao số hóa đơn sau lại nằm ở dòng 1 vậy? bình thường ở dòng 2 mờ

Khi e thiết lập thêm hóa đơn khi chạy VBA nó ra dữ liệu như vậy, e ko can thiệp thêm gì đâu ạ. Với 5 hóa đơn thì chạy rất đẹp ))

 

[Thulib]

Tôi cấu trúc lại biểu nhập liệu và dùng cột phụ để kết chuyển dữ liệu - Bạn xem File xem có ưng cái bụng mình không ?
Theo tôi bạn nên tạo Sheet "Danh mục hàng hóa" và lập mã duy nhất cho từng mặt hàng - Như vậy khi nhập liệu bạn chỉ cần nhập mã hàng hóa không phải nhập tên hàng nữa sẽ đơn giản hơn - Chúc thành công

Dạ, em cảm ơn những góp ý của a/c
Về phần thêm sheet DL thì phần này mình phải copy lại tên hàng, số hóa đơn, số lượng, đơn giá đúng ko ạ?

 

[HieuCD]

Khi e thiết lập thêm hóa đơn khi chạy VBA nó ra dữ liệu như vậy, e ko can thiệp thêm gì đâu ạ. Với 5 hóa đơn thì chạy rất đẹp ))

Code VBA nào cho ra dữ liệu kỳ vậy? số hóa đơn phải nằm trên 1 dòng code mới chạy được