Điều kiện trong câu lệnh autofiter? - Mới học VB mong sự giúp dỡ!!!

[anh17d4]

Em tự tạo 1 đoạn code nhỏ như sau:

Sub Button2_Click()
Selection.AutoFilter Field:=1, Criteria1:="1"
End Sub

Nay em muốn thay giá trị Criteria1:="1" bằng 1 giá trị trong ô (VD như C3 chẳng hạn) Thì phải thay đổi như thế nào.

VB thì em tự học nên chẳng có căn bản gì cả, mong sự giúp đỡ của mọi người.

 

[OverAC]

Bạn thử thay thế criteria = range("C3") xem

 

[anh17d4]

Không được bác a. Em tạo Button này để chọn 1 giá trị trong ô có trước làm điều kiện để AutoFilter lọc.Rất mong các bác giúp đỡ thêm.Em còn dốt về cái này lắm.

 

[anh17d4]

Lục trên GPE cả ngày cuối cùng tìm ra hàm của bác SA_DQ
Sub FilterByDateTime()
Dim dDate As Date
Dim dbDate As Double
If IsDate(Range("B1")) Then
dDate = Range("B1")
dDate = DateSerial(Year(dDate), Month(dDate), Day(dDate))
Range("A1").AutoFilter Field:=1, Criteria1:=">" & dDate
End If
End Sub
Trong đó mình fải tạo AutoFilter ô A1, date ghi ở ô B1.
Từ hàm của bac SA_DQ em thay thế tự tạo được hàm:
Sub update()
Range("A6").Select
ActiveSheet.Unprotect ("9875901")
Selection.AutoFilter Field:=1, Criteria1:="=" & Range("A5")
End Sub
Cám ơn các bác nhiều lắm.Chúc anh em GPE và những anh em yêu thich excel thành công trong công việc và sáng tạo. (Ai mà chưa biết cách tạo 1 bản tra cứu bằng AutoFilter thì em sẽ giúp(Giúp bằng những gì mình học vẹt được thôi nhe )

 

[chibi]

Hãy đơn giản đi
Sub Button2_Click()
gia_tri=range("C3").value
Selection.AutoFilter Field:=1, Criteria1:=gia_tri
End Sub

 

[Đào Việt Cường]

Dear all,
--------
Hoan nghênh bạn anh17d4 đã có tinh thần tự tìm tòi, học hỏi, nhưng bạn chú ý tìm chủ đề thích hợp để đăng bài nhé.

Giải Pháp Excel > Kiến thức Excel > Lập Trình với Excel > Bổ sung kiến thức Visual Basic Điều kiện trong câu lệnh autofiter? - Mới học VB mong sự giúp dỡ!!!

Hãy đơn giản đi
Sub Button2_Click()
gia_tri=range("C3").value
Selection.AutoFilter Field:=1, Criteria1:=gia_tri
End Sub

Mình còn đơn giản mà lại hiệu quả hơn như thế này:

Sub AutoFilter()
[COLOR=darkgreen]' Keyboard Shortcut: Ctrl+Shift+L ([U][B]L[/B][/U]ọc)[/COLOR]
ActiveCell.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell
End Sub
Sub Filter()
[COLOR=darkgreen]' Keyboard Shortcut: Ctrl+Shift+G ([U][B]G[/B][/U]ỡ lọc)[/COLOR]
ActiveCell.AutoFilter
End Sub

Bây giờ bạn chỉ cần Select ô giá trị mà bạn muốn lọc rồi ấn tổ hợp phím Ctrl + Shift + L (bạn phải gán vào Macro tương ứng), Ctrl + Shift + G để gỡ bỏ điều kiện lọc. Hãy đưa code vào Add-in để lọc cho tất cả các bảng mà bạn muốn.

 

[anh17d4]

Cám ơn bạn đã nhắc nhở lần sau sẽ chú ý hơn.Lính mới còn nhiều điều chưa biết mong mọi người giúp đỡ.

 

[chibi]

Cách của Đào Việt Cường sẽ không lọc được phạm vi đã chọn mà lọc cả sheet