Xin nhờ quí thầy cô và các anh chị GPE giúp đỡ thay thế hàm SUMPRODUCT bằng hàm khác (1 người xem)

[truongtrungviet]

Xin phép nhờ quí thầy cô cùng các ACE GPE hướng dẫn giúp cách thay thế hàm SUMPRODUCT để chương trình chạy nhanh hơn. Xin cảm ơn quí thầy cô và các anh chị.
Yêu cầu như trong file đính kèm:
1. Thống kê số lượng học sinh theo năm và giới tính.
2. Thống kê số lượng học sinh theo độ tuổi.

 

[hoamattroicoi]

Yêu cầu của bạn không sai box vì có thể thay thế Sumproduct bằng CODE để giúp cải thiện tốc độ của file nên đưa được vào box LẬP TRÌNH. Tuy nhiên khi xem nội dung file đính kèm của bạn thì thấy nó giống file nháp quá, phần dữ liệu gốc để test thì có mỗi một dòng.

Trong bảng của bạn đã có nhiều module, mình cũng không biết nhét thêm code vào chỗ nào nữa, xem code mình thấy chắc bạn cũng hiểu và biết dùng VBA, vậy mình viết trước 1 đoạn code cho điều kiện đếm số học sinh là nữ tại cột DO, bạn tự nhét code vào file chạy thử và viết tiếp cho những yêu cầu còn lại nhé, tương tự thôi.

Sub SumPR()
Dim i As Long, k As Long
Dim j As Long
Dim Arr(), dK()
Arr = Range("B6:B" & [B65536].End(xlUp).Row).Resize(, 10).Value
dK = Range("DM8:DM16").Value
For j = 1 To UBound(dK)
k = 0
    For i = 1 To UBound(Arr)
        If Arr(i, 4) = dK(j, 1) And Arr(i, 5) = "x" Then
            k = k + 1
        End If
    Next i
        Cells(j + 7, 119).Value = k
Next j
End Sub

 

[ptm0412]

Mình chỉ góp ý cho bạn để đúng Nội Quy Diễn đàn
Bạn cần hỏi hàm excel thì bạn Post bài vào Mục Hàm và công thức Excel nhé!

gởi vanle,
Bạn góp ý thì tốt, nhưng trước khi góp ý thì phải đọc cho kỹ, biết rõ vấn đề, chứ đừng góp ý tầm bậy.