'
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
Mở Name manager để xem tên NgayMì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.
Không đúng như thế nào? gởi file lênCám ơn bạn HieuCD , nhưng kể từ ngày thứ 3 công thức không đúng
Dữ liệu sát thực tế thì công thức mới chính xác và hiệu quả đượcmình gửi bảng dữ liệu
Thêm một code "bắn 1 phát - chết 1 đống".Cám ơn bạn HieuCD, đây là bảng kê sản phẩm thực tế
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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2