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ễ"

Liên hệ QC

thanhtam_thanhtam

Thành viên mới
Tham gia
27/2/11
Bài viết
37
Được thích
6
Nghề nghiệp
Finance
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)

1582273277096.png

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:

1582273452896.png

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
 

File đính kèm

  • Late report.xls
    30 KB · Đọc: 11
Cái thống kê này nên nhờ VBA, bạn chịu không?
 
Bạn xem file & phìm tắt chạy macro: CTRL + SHIFT +R

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

File đính kèm

  • GPE.rar
    11.7 KB · Đọc: 17
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
 
Nó đây nè bạn & vẫn đang ở trong file, chắc vậy:
PHP:
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
 
Nó đây nè bạn & vẫn đang ở trong file, chắc vậy:
PHP:
    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 :p
 
Web KT
Back
Top Bottom