Nhờ viết giúp code thống kê dữ liệu (1 người xem)

[Blad01]

Chúc các thành viên của GPE một buổi tối vui vẻ và hạnh phúc.

Có 2 vấn đề em mong được thành viên diễn đàn giúp đỡ:

(1). File excel gồm 2 sheets("B1-KTDV30") là để nhập dữ liệu vào, sheet("B1") là để thống kê. Vậy nhờ mọi người viết giúp code để sheet("B1") thống kê dữ liệu từ sheets("B1-KTDV30") theo yêu cầu trong bảng biểu và đáp ứng được các tiêu chí sau:
- Nếu sheets("B1-KTDV30") thêm dữ liệu thì số liệu thống kê ở sheet("B1") cũng thay đổi theo.
- thống kê theo thời gian từ ngày ... đến ngày... (như ở cột AA, AC trong sheets("B1")
- Nếu cột B trong sheets("B1-KTDV30") ghi "Chưa kết luận" thì sẽ không thống kê các thông tin của đảng viên này.
(PS: Trong cửa sổ vba ở sheet3(B1), bác ChanhTQ@ đã viết giúp em code thống kê rồi, nhưng quả thực em chưa biết áp dụng vào biểu này như thế nào. Vì đọc code chưa hiểu)

(2) Làm thế nào để msgbox trong vba hiện lên trong khoảng 1 giây rồi tự động đóng lại thông báo đó.

Em chân thành cảm ơn

 

[ChanhTQ@]

Mới chỉ là 4 dòng đầu của fần I; Nhưng chưa hiểu mục "Nội dung kiểm tra" fải ghi ra làm sao cả?

 

[befaint]

(2)

Sub InfoBox()
    Dim InfoBox As Object, TT
    Dim t As Byte: t = 1    'Times (seconds) to close msgbox
    Set InfoBox = CreateObject("WScript.Shell")
    TT = InfoBox.popup("This Msgbox closes after 1 seconds.", t, "Msg Box", 0)
End Sub

 

[ChanhTQ@]

Bạn kiểm số liệu thống kê 4 dòng đầu xem sao:

Mình xin tháo file bài trước, thu hồi tài nguyên.