Hỏi về lọc 1 khoảng thời gian bất kỳ (1 người xem)

[khoa289]

Chào mọi người.
Cho mình hỏi vấn đề về lọc thời gian trong 1 khoảng cho trước (Hiện các hàng có thời gian trong khoảng bắt đầu và kết thúc cho trước, còn các khoảng thời gian khác ẩn đi)
Chi tiết như sau:
Khi điền thời gian bắt đầu(C2) và kết thúc(C3) thì tự động lọc các hàng thỏa điều kiện ở cột C2 và C3 như vị trí các hàng tô màu đỏ (A11 đến E16 không ẩn) , còn lại ẩn đi các ô bôi màu vàng(A6 đến E10 và A17 đến hàng cuối cùng E75 ẩn đi)
Đính kèm file.
Cám ơn.

 

[Ba Tê]

Chào mọi người.
Cho mình hỏi vấn đề về lọc thời gian trong 1 khoảng cho trước (Hiện các hàng có thời gian trong khoảng bắt đầu và kết thúc cho trước, còn các khoảng thời gian khác ẩn đi)
Chi tiết như sau:
Khi điền thời gian bắt đầu(C2) và kết thúc(C3) thì tự động lọc các hàng thỏa điều kiện ở cột C2 và C3 như vị trí các hàng tô màu đỏ (A11 đến E16 không ẩn) , còn lại ẩn đi các ô bôi màu vàng(A6 đến E10 và A17 đến hàng cuối cùng E75 ẩn đi)
Đính kèm file.
Cám ơn.

Bạn nghiên cứu cách dùng Advanced Filter thử xem.
Nếu muốn tự động lọc khi nhập ngày thì kết hợp VBA.

 

[phulien1902]

Chào mọi người.
Cho mình hỏi vấn đề về lọc thời gian trong 1 khoảng cho trước (Hiện các hàng có thời gian trong khoảng bắt đầu và kết thúc cho trước, còn các khoảng thời gian khác ẩn đi)
Chi tiết như sau:
Khi điền thời gian bắt đầu(C2) và kết thúc(C3) thì tự động lọc các hàng thỏa điều kiện ở cột C2 và C3 như vị trí các hàng tô màu đỏ (A11 đến E16 không ẩn) , còn lại ẩn đi các ô bôi màu vàng(A6 đến E10 và A17 đến hàng cuối cùng E75 ẩn đi)
Đính kèm file.
Cám ơn.

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim StartDate As Long
   Dim EndDate As Long
   StartDate = Range("C2").Value
   EndDate = Range("c3").Value
   Range("A6:E75").AutoFilter Field:=2, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
End Sub

 

[befaint]

Bạn thử với:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim StartDate As Long
   Dim EndDate As Long
   StartDate = Range("C2").Value
   EndDate = Range("c3").Value
   Range("A6:E75").AutoFilter Field:=2, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
End Sub

Nếu dữ liệu cần lấy là Date thì anh dùng .value2
và chắc ăn thì thêm hàm CLng(cell.value2).

 

[phulien1902]

Nếu dữ liệu cần lấy là Date thì anh dùng .value2
và chắc ăn thì thêm hàm CLng(cell.value2).

Xin cảm ơn befaint.

 

[khoa289]

Cám ơn phulien1902 rất nhiều.