Làm thế nào để quản lý & theo dõi số lượng chi tiết của từng mặt hàng đã bán . (1 người xem)

[hoakimnguyenfu]

Híc, cái này cũng lại là một ...phát sinh giống như món "Nước tương" cho 20 người
Khi viết code thì thường viết theo yêu cầu của chủ Topic, khi có phát sinh thì ......viết tiếp (chừng nào "bó tay" thì nhờ Bác Sa, Thầy Ptm, Thầy Ndu, Thầy Sealand........nói chung là "cóc ngán", chỉ sợ hổng hiểu câu hỏi thôi. Híc)

Trong sheet "SoLuongTrongThang" từ cột B (Tên món ) đến cột cuối cùng (Ghi chú) là 10 cột bạn cứ thêm ngày cho đủ rồi đếm xem có bao nhiêu cột tính từ cột (tạm gọi là Tổng cột), tìm trong code :

For I = 1 To UBound(Vung)
               If Not d.exists(Vung(I, 1)) Then
                   K = K + 1
                   d.Add Vung(I, 1), K
                   Mg(K, 1) = Vung(I, 1): Mg(K, 2) = Vung(I, 2): Mg(K, 3) = (Vung(I, 3) * Cll.Offset(, 8)) / Cll.Offset(, 9): Mg(K, 4) = Vung(I, 4): Mg(K, 5) = Mg(K, 3) * Mg(K, 4)
               Else
                   kK = d.Item(Vung(I, 1))
                   Mg(kK, 3) = Mg(kK, 3) + (Vung(I, 3) * Cll.Offset(, 8)) / Cll.Offset(, 9)
                   Mg(kK, 5) = Mg(kK, 3) * Mg(kK, 4)
               End If
           Next I

thay số 8 và số 9 những chỗ có Cll.Offset(, 8)) / Cll.Offset(, 9) bằng Cll.Offset(, Tổng cột - 2)) / Cll.Offset(, Tổng cột -1 ) mình nghĩ code sẽ không cự nự gì bạn nữa đâu
Thân

Bác ơi!!!

Mình đã làm theo hướng dẫn của bác rùi & kết quả là ..."Trên cả tuyệt vời", thật là " hoàn hảo" ... Mình rất tâm đắc về file báo cáo này... hichic

Rất cảm ơn bác & hẹn ngày tái ngộ!!!!