tính số thùng, số hàng packing list

[SUWON]

Em chào các anh chị ạ, có công thức nào để mình chia đều số lượng hàng hóa và số thùng không ạ?
Ví dụ: tổng 1600 cái mũ, có 8 màu( A1 160 cái, A2 173 cái, A3 205 cái, A4 172 cái, A5 209 cái, A6 218 cái, A7 200 cái, A8 263 cái)
Làm thế nào để chia đều các màu nhất có thể( phải đủ 8 màu trong 1 pack) thành 10 mũ/pack; 6 pack/thùng vậy ạ?
Em cảm ơn mọi người ạ.

 

[VetMini]

Bài này nếu dùng công thức thì phải là công thức khủng.
Mà nếu phải công thức khủng thì theo tôi viết hàm UDF (VBA) uyển chuyển hơn (dễ thay đổi, nhiều chọn lựa).

 

[HieuCD]

Em chào các anh chị ạ, có công thức nào để mình chia đều số lượng hàng hóa và số thùng không ạ?
Ví dụ: tổng 1600 cái mũ, có 8 màu( A1 150 cái, A2 143 cái, A3 205 cái, A4 132 cái, A5 209 cái, A6 218 cái, A7 280 cái, A8 263 cái)
Làm thế nào để chia đều các màu nhất có thể( phải đủ 8 màu trong 1 pack) thành 10 mũ/pack; 6 pack/thùng vậy ạ?
Em cảm ơn mọi người ạ.

1600 cái mũ, phải đủ 8 màu trong 1 pack,10 mũ/pack: Không làm được vì mỗi màu phải có ít nhất 160 cái

 

[VetMini]

1600 cái mũ, phải đủ 8 màu trong 1 pack,10 mũ/pack: Không làm được vì mỗi màu phải có ít nhất 160 cái

Đa số hỏi bài GPE là dạng này. Người hỏi không biết tình trạng dữ liệu để nới lỏng điều kiện.
Anh/Chị nào hăng say nhào vào làm là sẽ thấy vấn đề. Lúc ấy sẽ tính tiếp.

Câu hỏi chính cho thớt:
- Điều kiện một pack phải có đủ màu là bắt buộc, tức là hết một màu thì dừng không pack tiếp; hay chỉ ưu tiên, tức là hết một màu thì vẫn pack tiếp với điệu kiện phải đủ các màu còn lại.

Câu hỏi phụ cho thớt:
- Sô thùng là số thùng đầy, hay tính cả thùng cuối cùng có thể chứa it hơn dung lượng.

 

[SUWON]

Đa số hỏi bài GPE là dạng này. Người hỏi không biết tình trạng dữ liệu để nới lỏng điều kiện.
Anh/Chị nào hăng say nhào vào làm là sẽ thấy vấn đề. Lúc ấy sẽ tính tiếp.

Câu hỏi chính cho thớt:
- Điều kiện một pack phải có đủ màu là bắt buộc, tức là hết một màu thì dừng không pack tiếp; hay chỉ ưu tiên, tức là hết một màu thì vẫn pack tiếp với điệu kiện phải đủ các màu còn lại.

Câu hỏi phụ cho thớt:
- Sô thùng là số thùng đầy, hay tính cả thùng cuối cùng có thể chứa it hơn dung lượng.

- Hết màu rồi có thể pack tiếp ạ
- Hết thùng đầy rồi thì thùng cuối có thể ít hơn ạ

Bài đã được tự động gộp: 3/12/23

1600 cái mũ, phải đủ 8 màu trong 1 pack,10 mũ/pack: Không làm được vì mỗi màu phải có ít nhất 160 cái

em chỉ lấy ví dụ nên k để ý số lượng ạ. hichic em sửa lại rồi ạ

Bài đã được tự động gộp: 3/12/23

Bài này nếu dùng công thức thì phải là công thức khủng.
Mà nếu phải công thức khủng thì theo tôi viết hàm UDF (VBA) uyển chuyển hơn (dễ thay đổi, nhiều chọn lựa).

Có cách nào tính nhanh mà dễ hiểu không ạ? em là lính mới nên không hiểu về cách làm packing list ạ.

 

[VetMini]

Bạn vội vã hỏi bài quá cho nên chưa kịp chuẩn bị nhiều thứ.
Bài này phức tạp hơn bạn nghĩ rất nhiều. Người giúp bạn cần khá nhiều chi tiết. Suy nghĩ lại cho chính chắn và cho thêm chi tiết đầy đủ.

Điển hình, nếu chỉ cần biết số pack (đúng ra phải gọi là packet) thì chỉ việc chia số items cho 10, làm tròn lên. Nếu chỉ cần số carton thì chia số packs cho 6, làm tròn lên.

Nhưng nếu muốn biết có bao nhiêu packs chứa 8 màu, 7 màu, 6 màu, ... thì bài toán rất phức tạp. Nếu cần nêu rõ 7 màu là thiếu màu gì thì lại càng phức tạp hơn.
- 10 items với 8 màu thì trong đó có thể 3 items 1 màu, hoặc 2x2 items vói 2 màu.
- 10 items với 7 màu thì có thể 4 items 1 màu, hoặc vài kiểu chia khác.

Trước khi biết rõ bạn cần kết quả chi tiết đến mức nào thì tính giải pháp giùm bạn chỉ uổng công thôi.

 

[HieuCD]

Em chào các anh chị ạ, có công thức nào để mình chia đều số lượng hàng hóa và số thùng không ạ?
Ví dụ: tổng 1600 cái mũ, có 8 màu( A1 160 cái, A2 173 cái, A3 205 cái, A4 172 cái, A5 209 cái, A6 218 cái, A7 200 cái, A8 263 cái)
Làm thế nào để chia đều các màu nhất có thể( phải đủ 8 màu trong 1 pack) thành 10 mũ/pack; 6 pack/thùng vậy ạ?
Em cảm ơn mọi người ạ.

Tạo 8 cột phụ theo 8 màu.

 

[VetMini]

Viết một hàm BaoGoi
Function BaoGoi(ByVal DLGoi As Long, Mon() As Long)
' function tính xem có thể gói được bao nhiêu gói với đầy đủ số màu
' DLGoi = dung lượng mỗi gói
' Mon() mảng với mỗi phần tử tượng trưng một màu và trị của phần tử cho biết số món còn lại trong màu

Chạy function này đến khi hết số màu.

 

[bebo021999]

Phương án dùng VBA
Nhấn vào nút "XẾP THÙNG"

Option Explicit
Sub xepthung()
Dim lr&, i&, j&, min&, p&, b&, res(1 To 10000, 1 To 11), ary, ary2
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
ary = Array(160, 173, 205, 172, 209, 218, 200, 263) ' SL:Dieu chinh, them bot theo thuc te
ary2 = Array("A1", "A2", "A3", "A4", "A5", "A6", "A7", "A8") ' Ten mau:Dieu chinh, them bot theo thuc te
res(2, 1) = "Box": res(2, 2) = "Pack"
res(3, 1) = 1: res(3, 2) = 1: min = 10 ^ 6
For i = 0 To UBound(ary)
    If ary(i) < min Then min = ary(i)
    res(1, i + 3) = ary(i): res(2, i + 3) = ary2(i): p = 1: b = 1
Next
With WorksheetFunction
For i = 1 To min
    If i > 1 Then
        If p < 6 Then
            p = p + 1
        Else
            p = 1: b = b + 1
        End If
    End If
    res(i + 2, 1) = b: res(i + 2, 2) = p: res(i + 2, 11) = 10
    For j = 3 To 10
        res(i + 2, j) = 1: res(1, j) = res(1, j) - 1: res(i + 2, 11) = res(i + 2, 11) - res(i + 2, j)
    Next
Next
End With
For i = 3 To min + 2
    For j = 3 To 10
        p = WorksheetFunction.min(res(1, j), res(i, 11))
        res(i, j) = res(i, j) + p
        res(1, j) = res(1, j) - p
        res(i, 11) = res(i, 11) - p
    Next
Next
'dan bang ket qua vao vung tu o A2
Range("A2:K10000").ClearContents
Range("A2").Resize(i + 2, 10).Value = res
Range("C2:K2").Formula = "=SUM(C4:C" & i & ")"
Range("K4:K" & i).Formula = "=SUM(C4:J4)"
End Sub