Đếm ngày theo SubTotal, Count() (1 người xem)

[bck055]

Gủi đến GPE, giúp tôi cách tính hàm IF, có Files "Book1.xlsx" đính kèm

Tôi muốn thực hiện điều kiện tại H3
Nếu tôi nhập đủ ngày từ cột H4:H16 các ngày bất kỳ (ví dụ: 30-09-10, 01-10-10,...), thì ô H3 báo "xong", ngược lại thì "0".

Tôi thực hiện hàm IF và Count thì không cho giá trị (#VALUE!)


Ô H3 dùng code: =IF(COUNTA(H4:H16)=13,"Xong","Chưa xong") thì dùng cho AL1272A có tổng 13Row,
Nếu các dòng dưới có 10, 8, 2 Row của các H18, H31, H40, 49..., , thì cách giải như thế nào? Nếu không copy or đổi số 13 và H4:H16.

Mong diễn đàn giải thích giúp tôi, vì sheet exel của tôi có tới 10,000 dòng như vậy. Tôi muốn thực hiện công việc nhanh hơn chỉ cần kéo thả và tự thực hiện lệnh.

Cảm ơn nhiều GPE!

 

[MinhCong]

Sao không xem lại bài đã gởi lúc trwocs mà mở thêm 1 topic mới chi. Bài của Bạn Tôi đã bổ sung thêm 1 hàm tổng quát để đếm theo SUB TOTAL rồi, sao Bạn không xem nhỉ? (Bài số #3 nhé)
http://www.giaiphapexcel.com/forum/showthread.php?40845-Đếm-giá-trị-với-điều-kiện-IF

 

[concogia]

Gủi đến GPE, giúp tôi cách tính hàm IF, có Files "Book1.xlsx" đính kèm

Tôi muốn thực hiện điều kiện tại H3
Nếu tôi nhập đủ ngày từ cột H4:H16 các ngày bất kỳ (ví dụ: 30-09-10, 01-10-10,...), thì ô H3 báo "xong", ngược lại thì "0".

Tôi thực hiện hàm IF và Count thì không cho giá trị (#VALUE!)


Ô H3 dùng code: =IF(COUNTA(H4:H16)=13,"Xong","Chưa xong") thì dùng cho AL1272A có tổng 13Row,
Nếu các dòng dưới có 10, 8, 2 Row của các H18, H31, H40, 49..., , thì cách giải như thế nào? Nếu không copy or đổi số 13 và H4:H16.

Mong diễn đàn giải thích giúp tôi, vì sheet exel của tôi có tới 10,000 dòng như vậy. Tôi muốn thực hiện công việc nhanh hơn chỉ cần kéo thả và tự thực hiện lệnh.

Cảm ơn nhiều GPE!

Đây là công thức của bạn Minhcong
=IF(COUNTA(OFFSET(H4,,,MATCH("SUB TOTAL",D457,0)-1))=MATCH("SUB TOTAL",D457,0)-1,"Xong","Chua xong")
Có 2 cách để làm công việc này
1- Bạn chọn toàn bộ dữ liệu ==> data filter ==> cột H chọn điều kiện là màu của cell định gán công thức ( trong bài là màu tim tím )==> chép công thức trên vào ==> fill xuống tới hết là...xong
2- Dùng VBA ==> chép code này vào Module

Public Sub aaa()
    Dim Cll, Vung
    Set Vung = Range([a2], [a20000].End(xlUp).Offset(1)).Offset(0, 7)
        For Each Cll In Vung
            If Cll.Interior.ColorIndex = 2 Then Cll.FormulaR1C1 = _
        "=IF(COUNTA(OFFSET(R[1]C,,,MATCH(""SUB TOTAL"",R[1]C[-4]:R[54]C[-4],0)-1))=MATCH(""SUB TOTAL"",R[1]C[-4]:R[54]C[-4],0)-1,""Xong"",""Chua xong"")"
        Next
End Sub

chạy code là....xong
Code này sử dụng theo đúng định dạng trong bài này của bạn thôi nhé
(Híc, đã xài code thì viết theo cách filter cho lẹ chứ ai lại for for, thôi để code này xài cho EC 2003, hihi)