Lọc số liệu trong khoảng từ sheet khác (1 người xem)

[DIEMXUA1810]

Chào các anh chị,
em có một file Chấm Công trong đó đã biết tổng số giờ rồi. Bây giờ em muốn lọc nó ra 1 sheet khác theo điều kiện cho trước (between) và hiển thị ra nhưng không biết cách nào cả.
anh/chị biết kết hợp hàm nào như trong file đính kèm giúp đỡ em với. Cái này có thể kết hợp hàm được không ah?
em có ghi chi tiết trong file rồi ah
thanks anh/chị nhiều

 

[giaiphap]

Chào các anh chị,
em có một file Chấm Công trong đó đã biết tổng số giờ rồi. Bây giờ em muốn lọc nó ra 1 sheet khác theo điều kiện cho trước (between) và hiển thị ra nhưng không biết cách nào cả.
anh/chị biết kết hợp hàm nào như trong file đính kèm giúp đỡ em với. Cái này có thể kết hợp hàm được không ah?
em có ghi chi tiết trong file rồi ah
Cảm ơn anh/chị nhiều

Để đơn giản mình dùng cột phụ thử xem.

 

[DIEMXUA1810]

Để đơn giản mình dùng cột phụ thử xem.

Cảm ơn anh nhiều.
Nhưng mình ko muốn lọc điều kiện filter mà muốn gán điều kiện vào nút button, chỉ cần bấm vào đó thì điều kiện tương ứng sẽ được liệt kê ra ah.

 

[SA_DQ]

Bạn xem file, xin mòi & mình xài UDF đó nha

 

[DIEMXUA1810]

Bạn xem file, xin mòi & mình xài UDF đó nha

Mình không muốn filter điều kiện. Mà muốn klick chọn nút button ah. Có cách nào ko ah

 

[SA_DQ]

Đó là hàm mảng tự tạo mà & nó đây:

Function TKe(CT As String, Rng As Range)
 Dim J As Long, W As Integer, Rws As Long, fNum As Integer, lNum As Integer, VTr As Byte, Col As Integer
 Dim Cls As Range
 
 Rws = Rng.Rows.Count:                      lNum = 35
 ReDim Arr(1 To Rws, 1 To 2) As String
 VTr = InStr(CT, "-")
 If VTr Then
    fNum = CInt(Left(CT, VTr - 1)) - 1
    lNum = CInt(Mid(CT, VTr + 1, Len(CT)))
 Else
    VTr = InStr(CT, ">")
    fNum = CInt(Mid(CT, VTr + 1, Len(CT)))
 End If
 Col = Rng.Columns.Count
 For Each Cls In Rng(1).Resize(Rws)
    If Cls.Offset(, Col - 1) > fNum And Cls.Offset(, Col - 1) < lNum Then
        W = W + 1:                  Arr(W, 1) = Cls.Value
        Arr(W, 2) = Cls.Offset(, 1).Value
    End If
 Next Cls
 If W Then TKe = Arr()
End Function

Còn vẫn muốn xài nút lệnh thì nên là 1 ComboBox để chọn 1 trong 3 tiêu chí. Tuy nhiên làm như vậy chỉ là thêm bước mà thôi.

 

[VetMini]

Để đơn giản mình dùng cột phụ thử xem.

Hồi nào tới giờ bạn có thấy thớt nào chấp nhận "đơn giản" chưa.
Diễn đàn này không phải là giúp đỡ trao đổi kiến thức công nghệ. Nó là diễn đàn viết code giùm, lập công thức giùm theo yêu cầu.
Muốn dụ thớt theo đề nghị của mình, bạn phải ra một công thức thật khủng cho nó có vẻ nguy hiểm.