Hàm lọc theo điều kiện

Liên hệ QC

GTK-PM

Thành viên thường trực
Tham gia
10/11/13
Bài viết
313
Được thích
15
Sub TIMKIEM()
' TIMKIEM Macro
Selection.AutoFilter
Range("C12").Select
ActiveSheet.Range("$A$12:$G$2357").AutoFilter Field:=2, Criteria1:=Array(PK36.Cells(2, 2).Value, PK36.Cells(3, 2).Value, PK36.Cells(4, 2), PK36.Cells(5, 2).Value, PK36.Cells(6, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(8, 2).Value, PK36.Cells(9, 2).Value, PK36.Cells(10, 2).Value), Operator:=xlFilterValues
End Sub

Em muốn lọc các điều kiện từ B2:B11 của dữ liệu từ hàng B13: B1313 nhờ anh chị sửa giúp em đoạn code trên để tạo bộ lọc theo điều kiện ạ.
 

File đính kèm

  • Book1.xlsm
    213.9 KB · Đọc: 21
Sub TIMKIEM()
' TIMKIEM Macro
Selection.AutoFilter
Range("C12").Select
ActiveSheet.Range("$A$12:$G$2357").AutoFilter Field:=2, Criteria1:=Array(PK36.Cells(2, 2).Value, PK36.Cells(3, 2).Value, PK36.Cells(4, 2), PK36.Cells(5, 2).Value, PK36.Cells(6, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(8, 2).Value, PK36.Cells(9, 2).Value, PK36.Cells(10, 2).Value), Operator:=xlFilterValues
End Sub

Em muốn lọc các điều kiện từ B2:B11 của dữ liệu từ hàng B13: B1313 nhờ anh chị sửa giúp em đoạn code trên để tạo bộ lọc theo điều kiện ạ.
Không biết có đúng ý bạn không, bạn thử và cho biết kết quả nhé
Mã:
Sub TIMKIEM()
Dim PK36 As Worksheet
' TIMKIEM Macro
    Selection.AutoFilter
    Range("C12").Select
    Set PK36 = Sheets("PK36")
    ActiveSheet.Range("$A$12:$G$2357").AutoFilter Field:=2, Criteria1:=Array(PK36.Cells(2, 2).Value, PK36.Cells(3, 2).Value, PK36.Cells(4, 2), PK36.Cells(5, 2).Value, PK36.Cells(6, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(8, 2).Value, PK36.Cells(9, 2).Value, PK36.Cells(10, 2).Value), Operator:=xlFilterValues
    ActiveSheet.Range("$A$12:$G$2357").AutoFilter Field:=4, Criteria1:=">9", _
        Operator:=xlAnd, Criteria2:="<13"
End Sub
 
Upvote 0
Cám ơn bạn đúng ý mình rồi, nếu mình tự ghi bằng marco nhiều điều kiện như bài #1 thì trong bộ lọc mình sử dụng cách lọc nào vậy? Nhờ bạn giúp đỡ để mình tự triển khai các bước sau.
 

File đính kèm

  • 415-300x293.png
    415-300x293.png
    58.7 KB · Đọc: 11
Upvote 0
Cám ơn bạn đúng ý mình rồi, nếu mình tự ghi bằng marco nhiều điều kiện như bài #1 thì trong bộ lọc mình sử dụng cách lọc nào vậy? Nhờ bạn giúp đỡ để mình tự triển khai các bước sau.
Cơ bản là mình không hiểu bạn muốn lọc cái gì? điều kiện lọc của bạn là gì? nên mình không thể làm giúp được,
Tốt nhất bạn nên làm một bảng kết quả mong muốn trên file rồi gửi lại
 
Upvote 0
Cơ bản là mình không hiểu bạn muốn lọc cái gì? điều kiện lọc của bạn là gì? nên mình không thể làm giúp được,
Tốt nhất bạn nên làm một bảng kết quả mong muốn trên file rồi gửi lại
Cám ơn bạn, mình sẽ tìm hiểu thêm nếu vướng mắc nhờ bạn giúp đỡ a.
 
Upvote 0
....
 
Lần chỉnh sửa cuối:
Upvote 0
Nhờ anh chị giúp em code VBA lọc dữ liệu cho sheet PK36, PK69,PK920
+ Lọc điều kiện phố theo B2:B11 dữ liệu lọc từ B13:B5000 (VD:B2=An Trạch, B3=Cát Linh, B4=Nguyên Hồng...B11=Kim Mã) và Lọc điều kiện số theo D2: D3 dữ liệu lọc D13: D5000 (VD: D2>=3.5 đến D3<=4.5)
 

File đính kèm

  • TÌM KIẾM.xlsm
    655.1 KB · Đọc: 13
Upvote 0
Bạn đang sai nội qui & 2 bài mà bạn khởi xướng đều có thể bị xóa!

Nhược điểm của mình là không giúp những bài đang sai nội 2ui!
 
Upvote 0
Bạn đang sai nội qui & 2 bài mà bạn khởi xướng đều có thể bị xóa!

Nhược điểm của mình là không giúp những bài đang sai nội 2ui!
Em không tương tác gì bên bài kia và rút kinh nghiệm. Nhờ anh giúp đỡ bài này a.

Nhờ anh chị giúp em code VBA lọc dữ liệu cho sheet PK36, PK69,PK920
Trong từng file em có làm nút tìm kiếm, rất mong nhận được sự giúp đỡ ạ.
Lọc điều kiện phố theo B2:B11 dữ liệu lọc từ B13:B5000 (VD:B2=An Trạch, B3=Cát Linh, B4=Nguyên Hồng...B11=Kim Mã) và Lọc điều kiện số theo D2: D3 dữ liệu lọc D13: D5000 (VD: D2>=3.5 đến D3<=4.5)
 

File đính kèm

  • TÌM KIẾM.xlsm
    655.1 KB · Đọc: 10
Upvote 0
Em không tương tác gì bên bài kia và rút kinh nghiệm. Nhờ anh giúp đỡ bài này a.

Nhờ anh chị giúp em code VBA lọc dữ liệu cho sheet PK36, PK69,PK920
Trong từng file em có làm nút tìm kiếm, rất mong nhận được sự giúp đỡ ạ.
Lọc điều kiện phố theo B2:B11 dữ liệu lọc từ B13:B5000 (VD:B2=An Trạch, B3=Cát Linh, B4=Nguyên Hồng...B11=Kim Mã) và Lọc điều kiện số theo D2: D3 dữ liệu lọc D13: D5000 (VD: D2>=3.5 đến D3<=4.5)
Dữ liệu "như chơi", không cần có tiêu đề cột.
Tôi dùng cột phụ để bạn tự quyết có xài được hay không.
Chỉ thực hiện 2 điều kiện trong cột B và D thôi nhé, thêm điều kiện các cột khác nữa thì "phá sản".
 

File đính kèm

  • TÌM KIẾM.rar
    70.7 KB · Đọc: 13
Upvote 0
Dữ liệu "như chơi", không cần có tiêu đề cột.
Tôi dùng cột phụ để bạn tự quyết có xài được hay không.
Chỉ thực hiện 2 điều kiện trong cột B và D thôi nhé, thêm điều kiện các cột khác nữa thì "phá sản".
Nhờ anh giúp em đoạn code copy dữ liệu theo yêu cầu nếu chọn nút bấm marco: Nhập liệu 36 trong file thì copy dữ liệu từ A2:G5000 của sheet Data 36 vào hàng ô A13:G5000 của sheet Sort, hoặc chọn Nhập liệu 69 thì xóa dữ liệu đã copy cũ của Data 36 và copy mới của sheet Data69 dữ liệu của hàng ô A2:G5000 về sheet Sort, tương tự nếu cần copy dữ liệu của Data920.
 

File đính kèm

  • TIMKIEM-BT.xlsb
    176.3 KB · Đọc: 3
Upvote 0
Sub TIMKIEM()
' TIMKIEM Macro
Selection.AutoFilter
Range("C12").Select
ActiveSheet.Range("$A$12:$G$2357").AutoFilter Field:=2, Criteria1:=Array(PK36.Cells(2, 2).Value, PK36.Cells(3, 2).Value, PK36.Cells(4, 2), PK36.Cells(5, 2).Value, PK36.Cells(6, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(7, 2).Value, PK36.Cells(8, 2).Value, PK36.Cells(9, 2).Value, PK36.Cells(10, 2).Value), Operator:=xlFilterValues
End Sub

Em muốn lọc các điều kiện từ B2:B11 của dữ liệu từ hàng B13: B1313 nhờ anh chị sửa giúp em đoạn code trên để tạo bộ lọc theo điều kiện ạ.

Dùng Advanced Filtert, vùng điều kiện là B1 đến B11
Bạn tự hiểu rồi Record Macro như kiểu làm của bạn.
 
Upvote 0
E
Em có record marco lại nhưng mỗi lần copy đều báo lỗi anh ạ, và dữ liệu không được chuyển sang nhờ anh giúp đỡ ạ.
Muốn Advandced Filter thì phải có tiêu đề cột, file của bạn làm cho ai coi mà không có tiêu đề cột, biết nội dung trong từng cột là gì.
Có thể giả lập cột A tiêu đề là ABC1, Cột B là ABC2,... sao cứ phải để trống?
Nếu chỉ có 2 điều kiện thì vùng từ dòng 2 đến 11 làm gì nhiều thế?
 

File đính kèm

  • TIMKIEM-BT.rar
    160.4 KB · Đọc: 18
Upvote 0
Muốn Advandced Filter thì phải có tiêu đề cột, file của bạn làm cho ai coi mà không có tiêu đề cột, biết nội dung trong từng cột là gì.
Có thể giả lập cột A tiêu đề là ABC1, Cột B là ABC2,... sao cứ phải để trống?
Nếu chỉ có 2 điều kiện thì vùng từ dòng 2 đến 11 làm gì nhiều thế?
Em cám ơn anh, file đã hoàn thiện và dùng rất ổn. Em muốn hỏi thêm 1 chi tiết nhỏ là khi copy từ các sheet dữ liệu về, thì em muốn copy cả định dạng đã bôi màu bên sheet dữ liệu qua, thì nhờ anh bổ sung giúp em a.
 
Lần chỉnh sửa cuối:
Upvote 0
Em cám ơn anh, file đã hoàn thiện và dùng rất ổn. Em muốn hỏi thêm 1 chi tiết nhỏ là khi copy từ các sheet dữ liệu về, thì em muốn copy cả định dạng đã bôi màu bên sheet dữ liệu qua, thì nhờ anh bổ sung giúp em a.
- "1 chi tiết nhỏ" nhưng không phải nhỏ với VBA (xét từng Cell, font gì, màu gì, cở chữ, màu nền...)
- Code này không phải copy, chỉ là lấy dữ liệu theo điều kiện ... nên định dạng màu mè, font chữ, kẻ khung... không copy theo.
- Các sheet con tô màu theo điều kiện gì thì trong sheet kết quả bạn dùng điều kiện đó trong Conditional Formatting (Chỉ bạn hiểu và bạn phải tự làm).
- "Đến đây chấm dứt chương trình của Ban Tùng Lâm". (Kết thúc 1 chương trình tấu hài trên đài phát thanh Sài Gòn trước 1975)
 
Upvote 0
Do nhu cầu công việc nên em muốn nhờ anh Ba Tê giúp đỡ tiếp trong bài này ạ!
Trường hợp 1: Lọc dữ liệu của 3 sheet Data 36, Data 69, Data 920, điều kiện tại sheet Sort theo B2:B11 và D2:'D3 đã được giải ạ.
Mong muốn của em là Thêm điều kiện để lọc nữa.
Trường hợp 2: Lọc dữ liệu của 3 sheet Data 36, Data 69, Data 920 điều kiện tại sheet Sort theo B2:B11 và D2:'D3 và nếu có phát sinh điều kiện tại cột F2:F11 thì lọc 3 điều kiện này cùng nhau.
Hoặc nếu điều kiện cột B B2:B11 không có điều kiện thì ta tiếp tục lọc điều kiện cột D2:'D3 và F2:F11 (trong bài này dữ liệu tìm kiếm cột B B2:B11 và F F2:F11 có thể linh động có hoặc không. nhưng cột D từ D2:'D3 luôn có dữ liệu cần tìm kiếm)
 

File đính kèm

  • Sort - Copy.xlsb
    398.8 KB · Đọc: 4
Upvote 0
Nhờ mọi người lọc tìm kiếm theo ô chéo các kết quả trùng với ô đầu vào, ghi vào ô đầu ra kết quả tiếp theo theo cột chéo.Untitled.jpg
 

File đính kèm

  • Tìm kết quả chéo ô.xlsx
    11 KB · Đọc: 2
Upvote 0
Web KT
Back
Top Bottom