Lọc ngày tháng bằng VBA

[trinhhoaimy]

E chào các anh chị!
Em cần lọc dữ liệu trong bảng theo ngày, em có chạy record marcro để lấy code và sau đó sửa lại code ( chỗ vùng bôi vàng) để lọc ngày tại ô B2, nhưng khi chạy code không ra kết quả, nhờ các anh chị sửa lại code cho đúng giúp e với ạ, e cảm ơn.

 

[CHAOQUAY]

E chào các anh chị!
Em cần lọc dữ liệu trong bảng theo ngày, em có chạy record marcro để lấy code và sau đó sửa lại code ( chỗ vùng bôi vàng) để lọc ngày tại ô B2, nhưng khi chạy code không ra kết quả, nhờ các anh chị sửa lại code cho đúng giúp e với ạ, e cảm ơn.
View attachment 299097View attachment 299098

Thử sửa chỗ $B$1:$G$87 --> $A$4:$F$87 xem thế nào

 

[trinhhoaimy]

Thử sửa chỗ $B$1:$G$87 --> $A$4:$F$87 xem thế nào

dạ, chỗ đó e sửa lại rồi, e chạy thử nó ra kết quả như vậy ạ

 

[CHAOQUAY]

dạ, chỗ đó e sửa lại rồi, e chạy thử nó ra kết quả như vậy ạView attachment 299102

Bạn sửa để cho ActiveSheet.Range() bắt đầu từ ô "Ngày" rồi chạy lại xem sao

 

[ketoan113]

bạn sửa chổ Criteria2 như sau:

Criteria2:=Array(2, Format(Range("B2").value, "dd-MM-yyyy"))

 

[trinhhoaimy]

bạn sửa chổ Criteria2 như sau:

Criteria2:=Array(2, Format(Range("B2").value, "dd-MM-yyyy"))

vẫn không ra kết quả ạ.

 

[ketoan113]

vẫn không ra kết quả ạ.

View attachment 299112

bạn gửi file lên đi
có thể do định dạng ngày tháng của bạn nên làm chưa được

 

[trinhhoaimy]

vẫn không ra kết quả ạ.

View attachment 299112

Record macro ban đầu của e đây, ý e là muốn sửa lại code để lọc ngày theo điều kiện ở ô B2 ạ

Bài đã được tự động gộp: 20/2/24

bạn gửi file lên đi
có thể do định dạng ngày tháng của bạn nên làm chưa được

E gửi file ạ.

 

[trinhhoaimy]

bạn sửa chổ Criteria2 như sau:

Criteria2:=Array(2, Format(Range("B2").value, "dd-MM-yyyy"))

m sửa lại mm-dd-yyyy là chạy được rồi bạn, cảm ơn bạn.

 

[hoanganhvo2612]

Cái này bạn chạy trên phiên bản 365 mình thấy có mấy hạn chế trong việc dùng lọc với Criteria2, với code trên bạn có thể chạy được bây giờ nhưng nếu bạn đổi định dạng ngày trên máy tính hoặc gửi sang máy tính khác mà định dạng ngày là dd/mm thì mình e không chạy được, nên bạn tìm hiểu thêm để giải quyết triệt để hơn. Mình thấy có gợi ý là dùng advance filter.

 

[befaint]

Hang Xin Day Nay

Option Explicit

Sub HangXinDayNay()
    Const sColRef = "B"
    Const iRowHeader = 4
    Const sCellDate = "B2"
    Dim lastRow As Long, ws As Worksheet
   
    Set ws = ActiveSheet
    If ws.AutoFilterMode = True And ws.FilterMode = True Then Sheet1.ShowAllData
    lastRow = ws.Range(sColRef & ws.Rows.Count).End(xlUp).Row
    If lastRow <= iRowHeader + 1 Then Exit Sub
    ws.Range(sColRef & iRowHeader).Resize(lastRow - iRowHeader + 1).AutoFilter Field:=1, Criteria1:="=" & ws.Range("B2").Value, Operator:=xlAnd
End Sub

 

[ketoan113]

m sửa lại mm-dd-yyyy là chạy được rồi bạn, cảm ơn bạn.

ok bạn,
chúc bạn thành công