Ðề: Lọc chưa phù hợp với yêu cầu
Gửi bởi
phuyen89
Các bạn cho mình hỏi.
Trong bộ phận của mình có S, SA, SX, SN và nhiều bộ phận có chữ S đứng đầu nữa(Ví dụ thôi.)
Mình dùng AdvanFileter để lọc, nhưng khi điều kiện là S thì nó tìm tất cả.
DK là S? thì nó tìm thêm một ký tự sau S nữa.Mà mãi mình chưa tìm được cách nào để tìm S duy nhất.Mong các bạn giúp đỡ.
Đây là ví dụ minh họa:
View attachment 5091
Điều kiện tại B2, nếu bạn gõ:
="=S" thì nó sẽ chỉ lọc S
="=SA" thì nó sẽ chỉ lọc SA
vân vân
Sao không xem Help của Excel nhỉ? Nó chỉ rất rõ ràng vụ này đấy!
Ngoài ra, code của bạn dùng sự kiện Worksheet_Change chưa đúng lằm
Code của bạn:
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"C11"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select
Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A8:C65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]AdvancedFilter Action[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlFilterCopy[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]CriteriaRange[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]( [/COLOR][COLOR=#0000BB]_
[/COLOR][COLOR=#DD0000]"A1:C2"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]CopyToRange[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"J8:L65000"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]Unique[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]False
End Sub[/COLOR]
Chẳng ràng buột điều kiện cho Target gì cả nên bạn làm gì trên sheet thì code cũng chạy
Lý ra phải vầy:
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700])
If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A1:C2"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Is Nothing Then
Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"J8:L65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Clear
Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A8:C65000"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]AdvancedFilter 2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A1:C2"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"J8"[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000BB]End Sub[/COLOR]
Tức khi có tác động tại vùng A1:C2 thì code mới chạy
(nhớ rằng khi viết code hãy hạn chế mấy vụ Select đi nhé)
lovense lush 3! Cổng sạc đã được cập nhật lên cổng từ tính để quá trình sạc dễ dàng hơn. Đuôi khăng khăng bảo đảm đồ chơi giữ nguyên vị trí và tạo ra những rung động sâu hơn và mạnh hơn. Và, như mọi...
Có trứng rung Lush 3, phụ nữ cứ gọi là ngất ngây trong sung sướng