Advanced filter trong VBA (1 người xem)

[canguocs]

Chào anh, chị,
Em biết AdvancedFilter 1, 2 là từ viết tắt nhưng chưa hiểu rõ lắm là viết tắt của từ gì
Nhờ anh chị giải thích dùm ah

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$E$3" Then
Range("A7:D11").AdvancedFilter [COLOR=#0000cd]1[/COLOR], Range("E2:E3")
Application.ScreenUpdating = True
End If
End Sub

Ví dụ đoạn code sau em dùng advance lọc trong 1 sheet nếu thay 1 bằng 2 thì ko được
Em cảm ơn

 

[hungpecc1]

Chào anh, chị,
Em biết AdvancedFilter 1, 2 là từ viết tắt nhưng chưa hiểu rõ lắm là viết tắt của từ gì
Nhờ anh chị giải thích dùm ah

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$E$3" Then
Range("A7:D11").AdvancedFilter [COLOR=#0000cd]1[/COLOR], Range("E2:E3")
Application.ScreenUpdating = True
End If
End Sub

Ví dụ đoạn code sau em dùng advance lọc trong 1 sheet nếu thay 1 bằng 2 thì ko được
Em cảm ơn

http://msdn.microsoft.com/en-us/library/office/ff841242(v=office.15).aspx
Syntax

---

expression .AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression A variable that represents a Range object.
Parameters

 

[canguocs]

http://msdn.microsoft.com/en-us/library/office/ff841242(v=office.15).aspx
Syntax

---

expression .AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression A variable that represents a Range object.
Parameters






View attachment 126434

OK, em đã hiểu rồi ah
có hình ảnh như vậy dễ xem quá
Em cảm ơn anh nhé

 

[canguocs]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$F$3" Then
Range("A6:B10").AdvancedFilter 1, Range("F2:F3")
Application.ScreenUpdating = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("A5:B1000").Clear
If Target.Address = "$C$3" Then
Sheet1.Range("A6:B10").AdvancedFilter 2, Sheet2.Range("C2:C3"), Sheet2.[A4:B4]
Application.ScreenUpdating = True
End If
End Sub

Em gửi hai đoạn code lên cho những bạn mới học cùng tham khảo ah