Chào các anh chị
EM mất nhiều thời gian cho chỗ này và làm nhiều cách rồi mà không biết nó bị lỗi đoạn nào.
Em dùng Form kiểu như thế này để lọc theo mã cb và giá trị từ ngày đến ngày.
Khi mình chỉ lọc 1 điều kiện thì bảng hiện giá trị đúng.
Nhưng khi mình lọc một lúc 2 điều kiện ở 2 cột,ví dụ vừa mã cán bộ vừa từ ngày đến ngày thì nó ko lấy được giá trị nào phù hợp, mặc đù kiểm tra thực tế là có.
Mình có vào cột ngày để kiểm tra thì nó vẫn hiên thị là từ ngày đấy tới ngày đấy và ấn OK thì nó lại hiện kết quả.
Nhờ các anh chị chỉ giúp làm thê nào để click vào Form lọc thì nó hiển thị ra luôn.
Chân thành cảm ơn các anh chị.
Mình viết đoạn code như sau:
Private Sub CommandButton1_Click()
Dim tu_ngay, den_ngay As Date
Dim ten As String
Range("C1:C20000").Select
Selection.NumberFormat = "m/d/yyyy"
ten = TextBox1.Value
tu_ngay = TextBox2.Value
den_ngay = TextBox3.Value
With ActiveSheet.Range("$A$1:$Az$20000")
.AutoFilter field:=1, Criteria1:=ten
.AutoFilter field:=3, Criteria1:=">=" & tu_ngay, Operator:=xlAnd, Criteria2:="<" & den_ngay
End With
End Sub
link
drive.google.com
EM mất nhiều thời gian cho chỗ này và làm nhiều cách rồi mà không biết nó bị lỗi đoạn nào.
Em dùng Form kiểu như thế này để lọc theo mã cb và giá trị từ ngày đến ngày.
Khi mình chỉ lọc 1 điều kiện thì bảng hiện giá trị đúng.
Nhưng khi mình lọc một lúc 2 điều kiện ở 2 cột,ví dụ vừa mã cán bộ vừa từ ngày đến ngày thì nó ko lấy được giá trị nào phù hợp, mặc đù kiểm tra thực tế là có.
Mình có vào cột ngày để kiểm tra thì nó vẫn hiên thị là từ ngày đấy tới ngày đấy và ấn OK thì nó lại hiện kết quả.
Nhờ các anh chị chỉ giúp làm thê nào để click vào Form lọc thì nó hiển thị ra luôn.
Chân thành cảm ơn các anh chị.
Mình viết đoạn code như sau:
Private Sub CommandButton1_Click()
Dim tu_ngay, den_ngay As Date
Dim ten As String
Range("C1:C20000").Select
Selection.NumberFormat = "m/d/yyyy"
ten = TextBox1.Value
tu_ngay = TextBox2.Value
den_ngay = TextBox3.Value
With ActiveSheet.Range("$A$1:$Az$20000")
.AutoFilter field:=1, Criteria1:=ten
.AutoFilter field:=3, Criteria1:=">=" & tu_ngay, Operator:=xlAnd, Criteria2:="<" & den_ngay
End With
End Sub
link
THU NGHIEM.xls
drive.google.com
Lần chỉnh sửa cuối:
