Hỏi về công thức VBA cho việc lọc dữ liệu (1 người xem)

[luund]

Dear Anh Chị!

Em có một vướng mắc trong việc lập công thức VBA mong anh chị giúp đỡ

Em đã làm được lọc cho 2 đối tượng nhưng đối tượng thứ 3,4,5... nhờ các anh chị giúp đỡ về công thức.

Em gửi File đính kèm AC giúp em với ạ

THank you so much!

 

[thangteotdtt]

Dear Anh Chị!

Em có một vướng mắc trong việc lập công thức VBA mong anh chị giúp đỡ

Em đã làm được lọc cho 2 đối tượng nhưng đối tượng thứ 3,4,5... nhờ các anh chị giúp đỡ về công thức.

Em gửi File đính kèm AC giúp em với ạ

THank you so much!

Làm làm như vầy đi cho nhẹ nhàng nhé

 

[nghiaphuc]

Dear Anh Chị!

Em có một vướng mắc trong việc lập công thức VBA mong anh chị giúp đỡ

Em đã làm được lọc cho 2 đối tượng nhưng đối tượng thứ 3,4,5... nhờ các anh chị giúp đỡ về công thức.

Em gửi File đính kèm AC giúp em với ạ

THank you so much!

Nếu đã chọn sử dụng Validation thì cần gì đến cái nút Drop Down kia nữa, cứ để vậy mà "phang" luôn cho khỏe chứ chạy lòng vòng qua G7 rồi mới đến F5 làm chi cho mất công dữ vậy bạn?

Nếu bạn vẫn muốn sử dụng cái Drop Down này (và thích chạy lòng vòng qua G7...) thì thay vì một mớ If...ElseIf...Else...End If gì gì đó, bạn có thể dùng câu lệnh này: [F5] = [A2:A4].Cells([G7])

 

[luund]

Nếu đã chọn sử dụng Validation thì cần gì đến cái nút Drop Down kia nữa, cứ để vậy mà "phang" luôn cho khỏe chứ chạy lòng vòng qua G7 rồi mới đến F5 làm chi cho mất công dữ vậy bạn?

Nếu bạn vẫn muốn sử dụng cái Drop Down này (và thích chạy lòng vòng qua G7...) thì thay vì một mớ If...ElseIf...Else...End If gì gì đó, bạn có thể dùng câu lệnh này: [F5] = [A2:A4].Cells([G7])

Viết code giúp em được ko anh, em vẫn chưa hiểu ý của anh cho lắm!

THanks

 

[nghiaphuc]

Viết code giúp em được ko anh, em vẫn chưa hiểu ý của anh cho lắm!

THanks

Ý tôi là bạn sửa lại sub DropDown4_Change thành thế này:
[GPECODE=vb]Sub DropDown4_Change()
[F5] = [A2:A4].Cells([G7])
Range("B1523").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F4:F5"), Unique:=False
End Sub[/GPECODE]
Hay gọn hơn một chút xíu thì thế này:
[GPECODE=vb]Sub DropDown4_Change()
[F5] = [A2:A4].Cells([G7])
[B1523].AdvancedFilter 1, [F4:F5]
End Sub[/GPECODE]

 

[luund]

Ý tôi là bạn sửa lại sub DropDown4_Change thành thế này:
[GPECODE=vb]Sub DropDown4_Change()
[F5] = [A2:A4].Cells([G7])
Range("B1523").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("F4:F5"), Unique:=False
End Sub[/GPECODE]
Hay gọn hơn một chút xíu thì thế này:
[GPECODE=vb]Sub DropDown4_Change()
[F5] = [A2:A4].Cells([G7])
[B1523].AdvancedFilter 1, [F4:F5]
End Sub[/GPECODE]

oke anh

Cảm ơn anh nhiều!

 

[nguyet1982db]

Đúng cái mình cần tìm nhưng mình muốn lọc thêm vài điều kiện nữa. Ví dụ như: Màu quần áo hoặc kích cỡ như file mình đính kèm. hoặc dữ liệu thì ở sheet1 giờ mình muốn lọc xang sheet2 với các điều kiện như trên thì viết thế nào. Rất mong các bác chỉ giáo.Cảm ơn rất nhiều.

 

[Kiều Mạnh]

Đúng cái mình cần tìm nhưng mình muốn lọc thêm vài điều kiện nữa. Ví dụ như: Màu quần áo hoặc kích cỡ như file mình đính kèm. hoặc dữ liệu thì ở sheet1 giờ mình muốn lọc xang sheet2 với các điều kiện như trên thì viết thế nào. Rất mong các bác chỉ giáo.Cảm ơn rất nhiều.

Bạn thử code sau xem thế nào nha... mình đang luyện code Advaced Fillter mà có gì chưa đúng ta làm lại

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G4:K4]) Is Nothing Then
    Sheet1.[B15:F100].AdvancedFilter 2, [G3:K4], [G6:K6]
    Target.Select
End If
End Sub

 

[nguyet1982db]

Cám ơn bạn rất nhiều code lọc rất nhanh đúng theo yêu cầu, nếu bạn thêm đoạn code khi không có điều kiện lọc thì dữ liệu cần lọc không có gì và chỉ hiện khi có điều kiện lọc thôi.
Tiện thể bạn có thể xem giúp mình file đính kèm mình làm lọc mà chưa được, Nhất là code load ảnh và code chỉnh sửa dữ liệu đã nhập.
Thanhk bạn rất rất nhiều đã quan tâm đến bài xin trợ giúp của mình.

 

[Kiều Mạnh]

Cám ơn bạn rất nhiều code lọc rất nhanh đúng theo yêu cầu, nếu bạn thêm đoạn code khi không có điều kiện lọc thì dữ liệu cần lọc không có gì và chỉ hiện khi có điều kiện lọc thôi.
Tiện thể bạn có thể xem giúp mình file đính kèm mình làm lọc mà chưa được, Nhất là code load ảnh và code chỉnh sửa dữ liệu đã nhập.
Thanhk bạn rất rất nhiều đã quan tâm đến bài xin trợ giúp của mình.

BẠN hỏi ai thì vào mục trả lời với trích dẫn nha ...người đọc mới biết bạn hỏi ai mà trả lời...ko nên hỏi vào hư vô như vậy !!!????
chép code sau thay thế code trong Sheet DATA nha là chạy ok ... còn cái khác để mình nghiên cứu đã nếu được mình úp lên
Lưu ý Code chạy theo cột

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A4:G4]) Is Nothing Then
    Sheet1.[A13:AA123].AdvancedFilter 2, [A3:G4], [A12:AA12]
    Target.Select
End If
End Sub

 

[nguyet1982db]

BẠN hỏi ai thì vào mục trả lời với trích dẫn nha ...người đọc mới biết bạn hỏi ai mà trả lời...ko nên hỏi vào hư vô như vậy !!!????
chép code sau thay thế code trong Sheet DATA nha là chạy ok ... còn cái khác để mình nghiên cứu đã nếu được mình úp lên
[/php]

Cám ơn bạn rất nhiều, thông cảm cho mình nha mình mới tham gia nên chưa rõ. Có gì bạn xem giúp mình nha.
Có file này hay quá mà không biết code tác giả viết như thế nào mà học tập: http://www.mediafire.com/download/i2a664654uizmp3/NGUYEN+HONG.rar