Giúp em Tạo hàm nhận vào 1 phạm vi va tra về Tổng các số Chẵn trong phạm vi đó ??? (1 người xem)

[mabuhehe]

=tong(a1:a4) --> tổng các số chẵn trong pham vi từ A1 ĐẾN A4
Em cảm ơn

 

[dat_butmuc]

=tong(a1:a4) --> tổng các số chẵn trong pham vi từ A1 ĐẾN A4
Em cảm ơn

Dùng: =SUMPRODUCT((MOD(A1:A4,2)=0)*A1:A4) hoặc =SUM(IF(MOD(A1:A4,2)=0,A1:A4)) kết thúc với Ctrl+Shift+Enter
Hoặc:
Bạn vào đây tham khảo xem sao ?
http://www.giaiphapexcel.com/forum/showthread.php?39261-TI%CC%81nh-t%C3%B4%CC%89ng-ca%CC%81c-s%C3%B4%CC%81-le%CC%89-ch%C4%83%CC%89n
http://www.giaiphapexcel.com/forum/...gì-để-thống-kê-số-số-chẵn-số-số-lẻ-số-lần-lặp-...
http://www.giaiphapexcel.com/forum/...c-tính-tổng-số-chẵn-tổng-số-lẽ-của-một-dãy-số

 

[mabuhehe]

Em cảm ơn, nhưng yêu cầu là hàm tự tạo.
bác nào giúp giùm em với.

 

[concogia]

Em cảm ơn, nhưng yêu cầu là hàm tự tạo.
bác nào giúp giùm em với.

Chưa hiểu chính xác được đề bài, làm đại, nếu chưa đúng ý thì ....làm lại

Public Function Chanle(vung As Range, Dk As Integer)
    Dim I As Integer, Tam
        For I = 1 To vung.Rows.Count
            If vung(I) Mod 2 = Dk Then Tam = Tam + vung(I)
        Next
    Chanle = Tam
End Function

Cú pháp: =Chanle(Vung,Dk)
Vung; vùng muốn tính tổng
Dk: 0 & 1: 0 nếu tính tổng chẵn và ngược lại

 

[mabuhehe]

Thank iu ban, đúng rùi, hihihi