Lọc dữ liệu "Số giờ đi làm trễ theo tên nhân viên và ngày đi làm trễ" (2 người xem)

[thanhtam_thanhtam]

Chào mọi người,
Mình có bảng thể hiện ngày đi làm trễ của các thành viên như sau (được xuất từ hệ thống)



Giờ mình muốn thống kê những người có số giờ đi trễ>= 4h/ngày. số liệu chạy ra như sau:



Thì mình cần phải sử dụng công thức và hàm excel gì, nhờ mọi người tư vấn giúp ạ.
Mình rất cảm ơn,
Tâm

 

[SA_DQ]

Cái thống kê này nên nhờ VBA, bạn chịu không?

 

[thanhtam_thanhtam]

Cái thống kê này nên nhờ VBA, bạn chịu không?

Chào bạn, nhưng mình không biết viết VBA, nếu bạn giải được bài toán thì giúp mình với nhé. mình cám ơn

 

[SA_DQ]

Bạn xem file & phìm tắt chạy macro: CTRL + SHIFT +R

Chúc mọi người vui vẻ!

 

[thanhtam_thanhtam]

Bạn xem file & phìm tắt chạy macro: CTRL + SHIFT +R

Chúc mọi người vui vẻ!

Mình đang chạy thử mà chưa biết chạy thế nào ạ. mình mởi sheet csdl, sau đó bấm tổ hợp phí Ctrl + Shift + R thì file nó không thay đổi gì bạn ạ. nhờ bạn hướng dẫn lại giùm mình nếu thao tác của mình chưa đúng nhé.
Nếu được bạn show cho mình đoạn code bạn viết để mình học hỏi với nhé.
Mình cám ơn bạn nhiều nha

 

[SA_DQ]

Nó đây nè bạn & vẫn đang ở trong file, chắc vậy:

Sub ThongKe()
Dim J As Long, Col As Integer, Rws As Long, W As Integer
Dim Cls As Range, Rng As Range
Dim MaNV As Variant

Sheets("CSDL").Select:                                         Rws = [A2].End(xlDown).Row
ReDim Arr(1 To Rws * 31, 1 To 3)
Sheets("Loc").[B2].Resize(Rws * 31, 3).Value = ""
For J = 2 To Rws
    MaNV = Cells(J, "A").Value
    Set Rng = Cells(J, "C").Resize(, 31)
    For Each Cls In Rng
        If Cls.Value >= 4 Then
            W = W + 1:                                              Arr(W, 1) = MaNV
            Arr(W, 3) = Cls.Value:                                Arr(W, 2) = Cells(1, Cls.Column).Value
        End If
    Next Cls
Next J
If W Then
    MsgBox "Chúc Vui!", , "Xong Ṛi!":                      Sheets("Loc").Select
    [B2].Resize(W, 3).Value = Arr()
End If
End Sub

 

[thanhtam_thanhtam]

Nó đây nè bạn & vẫn đang ở trong file, chắc vậy:

    MsgBox "Chúc Vui!", , "Xong Ṛi!":                      Sheets("Loc").[B2].Resize(W, 3).Value = Arr()
Sheets("Loc").select

End If
End Sub

Chào bạn, cám ơn rất rất nhiều nhé. mình có chỉnh sửa lại một chút xíu ở dòng màu vàng trên và dữ liệu chạy rất tuyệt. Thank you so much