Thống kê công việc trong ngày (6 người xem)

[khang2303]

Tôi cần thống kê các công việc cần làm trong ngày từ nhiều bảng tổng hợp được đưa lên. Tôi đã dùng Index + match nhưng chưa giải quyết được yêu cầu. xin mọi người chỉ giúp.

 

[Ba Tê]

Tôi cần thống kê các công việc cần làm trong ngày từ nhiều bảng tổng hợp được đưa lên. Tôi đã dùng Index + match nhưng chưa giải quyết được yêu cầu. xin mọi người chỉ giúp.

Dùng Advanced Filter, thủ công 10 giây, viết code VBA xài nhiều lần.

 

[hocexcel_1991]

Tôi cần thống kê các công việc cần làm trong ngày từ nhiều bảng tổng hợp được đưa lên. Tôi đã dùng Index + match nhưng chưa giải quyết được yêu cầu. xin mọi người chỉ giúp.

V3=IFERROR(INDEX($B$5:$B$86,AGGREGATE(15,6,ROW($1:$100)/($D$5:$D$86=$V$2),ROW($A1))),"")

 

[khang2303]

Dùng Advanced Filter, thủ công 10 giây, viết code VBA xài nhiều lần.

Không dùng filter được vì lý do:
- Đây chỉ là một trong số nhiều công trình cần tổng hợp, Nội dung cần trích xuất sang 1 file tổng hợp (file này gần như chỉ là bảng tạm)
- Trong Sheet tổng hợp cần thể hiện cả 7 ngày trong tuần chứ không phải 1 ngày do vậy cần công thức mới ra được kết quả.
Tôi đã xử lý được mặc dù hơi cồng kềnh. Dẫu sao vẫn cảm ơn Bác. Tiện đây nhờ mọi người cho ý kiến thêm

Bài đã được tự động gộp: 13/8/19

V3=IFERROR(INDEX($B$5:$B$86,AGGREGATE(15,6,ROW($1:$100)/($D$5:$D$86=$V$2),ROW($A1))),"")

Chuẩn luôn đấy. Thanks Bạn nhé

 

[phulien1902]

Có 1 cách dùng VBA để bạn tham khảo:

Sub Test()
    Dim a(), b(), i As Long, k As Long, dk As Long, LR As Long
    With Sheets("DH.15")
        a = .Range("B5", .Range("B65000").End(3)).Resize(, 3).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 2)
    With Sheets("DH.15")
        dk = .Range("W2").Value2
        For i = 1 To LR
            If a(i, 3) = dk Then
                k = k + 1
                b(k, 1) = k
                b(k, 2) = a(i, 1) & " " & Range("R6")
            End If
        Next i
        .Range("V5:W1000").ClearContents
        If k Then
            With Sheets("DH.15")
                .Range("V5").Resize(k, 2) = b
            End With
        End If
    End With
End Sub

 

[Phuocam]

Không dùng filter được vì lý do:
- Đây chỉ là một trong số nhiều công trình cần tổng hợp, Nội dung cần trích xuất sang 1 file tổng hợp (file này gần như chỉ là bảng tạm)
- Trong Sheet tổng hợp cần thể hiện cả 7 ngày trong tuần chứ không phải 1 ngày do vậy cần công thức mới ra được kết quả.

Không biết dùng Advanced Filter thì hỏi thầy Ba Tê, nhờ thầy hướng dẫn giùm.

 

[khang2303]

Không biết dùng Advanced Filter thì hỏi thầy Ba Tê, nhờ thầy hướng dẫn giùm.

Gửi bạn kết quả để bạn biết dùng filter giải quyết được gì trong trường hợp này.
P/S: Tôi không thích câu trả lời của bạn nhưng dẫu sao cũng cảm ơn vì bạn đã phản hồi thông tin