Tính tổng sản phẩm trong khoảng xác định

[seatic]

Mình có bảng kê giao nộp sản phẩm của công nhân như bảng minh họa kèm theo, nhờ anh chị em giúp mình tính tổng sản phẩm của từng CN trong khoảng thời gian xác định. Chân thành cảm ơn.

 

[SA_DQ]

Bạn nên thiết kế trang dữ liệu như vầy:

'
   Ngày    Tên NV  Mã HH  SLg   Vườn   '
01/05/2017   NVA00   Cà   15   I
01/05/2017   NTB00   Cà   14   I
01/05/2017   LTC00   Cà   17   I
01/05/2017   NVA00   Bí   16   I
01/05/2017   NTB00   Bí   14   I
01/05/2017   LTC00   Bí   19   I
01/05/2017   NVA00   Dưa   20   I
01/05/2017   NTB00   Dưa   24   I
01/05/2017   LTC00   Dưa   19   I
02/05/2017   NVA00   Cà   24   I
02/05/2017   NTB00   Cà   15   I
02/05/2017   LTC00   Cà   17   I
02/05/2017   NVA00   Bí   23   I
02/05/2017   NTB00   Bí   18   I
02/05/2017   LTC00   Bí   14   I
02/05/2017   NVA00   Dưa   13   I
02/05/2017   NTB00   Dưa   14   I
02/05/2017   LTC00   Dưa   18   I
02/05/2017   NVA00   Cà   15   II
02/05/2017   NTB00   Cà   15   II
02/05/2017   LTC00   Cà   24   II
02/05/2017   NVA00   Bí   15   II
02/05/2017   NTB00   Bí   21   II
02/05/2017   LTC00   Bí   14   II
02/05/2017   NVA00   Dưa   18   II
02/05/2017   NTB00   Dưa   10   II
02/05/2017   LTC00   Dưa   21   II

 

[HieuCD]

Mình có bảng kê giao nộp sản phẩm của công nhân như bảng minh họa kèm theo, nhờ anh chị em giúp mình tính tổng sản phẩm của từng CN trong khoảng thời gian xác định. Chân thành cảm ơn.

Mở Name manager để xem tên Ngay

 

[seatic]

Cám ơn bạn HieuCD , nhưng kể từ ngày thứ 3 công thức không đúng

 

[HieuCD]

Cám ơn bạn HieuCD , nhưng kể từ ngày thứ 3 công thức không đúng

Không đúng như thế nào? gởi file lên

 

[seatic]

đã kiểm tra lại, đúng rồi, Cám ơn bạn nhiều

 

[seatic]

nhờ bạn HieuCD giúp lần nữa, mình có bảng kê theo ví dụ minh họa trên với khoảng 240 cột và 50 dòng, áp công thức bạn cho vào thì sản phẩm đầu tiên ra đúng, nhưng sản phẩm 2, 3.. lại ra toàn số 0, mình kiểm tra công thức , địa chỉ ô, tên đều đúng, không biết do đâu?

 

[seatic]

mình gửi bảng dữ liệu

 

[HieuCD]

mình gửi bảng dữ liệu

Dữ liệu sát thực tế thì công thức mới chính xác và hiệu quả được
Dữ liệu nhiều, không nên dùng công thức mảng nặng file
Dữ liệu ngày không rỏ có phải thật không? tại sao có 2 ngày 20? nên phải dùng dòng phụ ở dòng 4 sheet dữ liệu
xem file

 

[seatic]

Cám ơn bạn HieuCD, đây là bảng kê sản phẩm thực tế

 

[SA_DQ]

Thêm 1 tham khảo macro sự kiện tại ô [B3] lúc rỗi!

 

[Ba Tê]

Cám ơn bạn HieuCD, đây là bảng kê sản phẩm thực tế

Thêm một code "bắn 1 phát - chết 1 đống".

Public Sub GPE()
Dim sArr(), dArr(), C As Long, I As Long, J As Long, K As Long, R As Long, fDate As Long, eDate As Long
sArr = Sheets("DU LIEU").Range("A5", Sheets("DU LIEU").Range("A9").End(xlDown)).Resize(, 251).Value
R = UBound(sArr): ReDim dArr(1 To R, 1 To 8)
With Sheets("tong hop")
    .Range("A6:H100").ClearContents
    fDate = .Range("B2").Value: eDate = .Range("B3").Value
    For I = 5 To R
        K = K + 1: dArr(K, 1) = sArr(I, 1): dArr(K, 2) = sArr(I, 3)
        For J = 6 To 251 Step 6
            If sArr(1, J) <= eDate Then
                If sArr(1, J) >= fDate Then
                    For C = 0 To 5
                        dArr(K, C + 3) = dArr(K, C + 3) + sArr(I, J + C)
                    Next C
                End If
            End If
        Next J
    Next I
    .Range("A6").Resize(K, 8) = dArr
End With
End Sub