Giúp mình lọc bảng chấm tăng ca sau 5h30? (1 người xem)

[huyetcongtu88]

lọc bảng chấm tăng ca sau 5h30?

Mình có 1 file excel xuất ra từ máy chấm tăng ca.
Mình muốn lọc ở cộtD tất cả những người làm từ 5:00 pm trở về sau ra 1 cột để mình chấm tăng ca cho đúng.
Cám ơn các bạn đã đọc

 

[SA_DQ]

Bạn chạy Code này để xem kết quả:

Sub LocTangCa()
 Dim Rws As Long, J As Long, W As Long, Tmr As Double
 Dim Arr()

 Rws = Sheet1.[c2].CurrentRegion.Rows.Count
 ReDim dArr(1 To Rws, 1 To 3)
 Arr() = Sheet1.[c2].Resize(Rws, 2).Value
 For J = 1 To UBound(Arr())
    Tmr = TimeSerial(Hour(Arr(J, 2)), Minute(Arr(J, 2)), Second(Arr(J, 2)))
    If Tmr > TimeSerial(17, 30, 0) Then
        W = W + 1:                      dArr(W, 1) = Arr(J, 1)
        dArr(W, 2) = Format(Arr(J, 2), "MM/dd/yyyy")
        dArr(W, 3) = Format(Tmr, "hh:mm:0")
    End If
 Next J
 Sheet1.[L2].Resize(W, 3).Value = dArr()
End Sub

 

[Gió Đông]

Mình có 1 file excel xuất ra từ máy chấm tăng ca.
Mình muốn lọc ở cộtD tất cả những người làm từ 5:00 pm trở về sau ra 1 cột để mình chấm tăng ca cho đúng.
Cám ơn các bạn đã đọc

cách khác, dùng Advanced Filter

- tại L2 nhập công thức
=D2-INT(D2)>=TIME(17,30,0)

- dùng Advanced filter với vùng điều kiện (Criteria area) là L1:L2 ... (nhớ Copy to - nếu muốn copy kết quả ra chỗ khác)

Nếu không biết Advanced Filter - thì search ngay trên diễn đàn này là có ngay

 

[huyetcongtu88]

mình làm được rồi. cám ơn 2 bạn SA_DQ và Gió Đông rất nhiều
chúc 2 bạn 1 tuần vui vẻ