Lọc dữ liệu theo ngày, tháng (3 người xem)

khamha · 6/9/10

Nhờ Các Bạn Sửa Lại Cái Code Và Đổi Tên Sheet Trong Code Cho Mình Với.
* Các Bạn Sửa Lại Cho Mình Như Sau:
1. Sửa Để Có Thể Lọc Được Từ Tháng 102009 Đến Tháng 82010 (102010 - 82011…102049 - 82050 )
2. Trong Sheet4 Bạn Làm Cho Nó Lọc 01 Tháng Thôi.
3. Bạn Đổi Tên Các Sheet Ở Trong Code Cho Mình Như Sau: Sheet1=Data ;Sheet2=Nam ;Sheet4=Py.
Code:
Sub Loc()
Sheet2.Range("A5:AX65536").ClearContents
With Sheet1.Range("D5").CurrentRegion
.AutoFilter 1, ">=" & CDbl(Sheet2.[D2]), xlAnd, "<=" & CDbl(Sheet2.[F2])
.SpecialCells(12).Copy: Sheet2.Range("D5 ").PasteSpecial 3
.AutoFilter
End With
Sheet2.Range("D5").Select
End Sub

Cảm Ơn Các Bạn

SA_DQ · 6/9/10

Mình sẽ hướng dẫn từ xa việc AdvancedFilter, Bạn thử làm theo nha:

(1) Tại trang tính Sheet1 bạn copy dòng tiêu đề dữ liệu đến [M3:O3];
Tiếp theo bạn chép tiêu đề [D3] đến [J3:K3] (Tháng,năm)

Tại [J4] bạn thiết lập công thức: =">="&Sheet2!D3 & ô bên fải liền kề bạn lập CT: ="<="&Sheet2!F3

(2) Bạn chép 3 macro sau vô module 1:

Mã:

Option Explicit
Dim Sh As Worksheet, eRw As Long
[B]Sub Filters()[/B]  [COLOR=Red] [B]'1'[/B][/COLOR]
 Set Sh = Sheets("Sheet1"):                   eRw = Sh.[d65500].End(xlUp).Row
 [d5].Resize(eRw, 3).ClearContents
 AdvFilter Sh.[j3].Resize(2, 2)
[B]End Sub[/B]

Mã:

[B]Sub Filter()[/B] [COLOR=Red][B] '2'[/B][/COLOR]
 Sheet2.[d3].Value = [d4].Value
 Set Sh = Sheets("Sheet1"):                   eRw = Sh.[d65500].End(xlUp).Row
 [d5].Resize(eRw, 3).ClearContents
 AdvFilter Sh.[j3].Resize(2)
[B]End Sub[/B]

PHP:

Sub AdvFilter(Criter As Range)  '3'

 Sh.[d3].Resize(eRw, 3).AdvancedFilter Action:=xlFilterCopy, _
   CriteriaRange:=Criter, CopyToRange:=Sh.[m3].Resize(, 3), Unique:=False
 Sh.[m3].CurrentRegion.Offset(1).Copy Destination:=[d5]
End Sub

(3) Bạn gắn kết macro 1 vô nút lệnh tại trang tính Sheet2 & Macro 2 vô nút lệnh tại trang tính 3

Sau đó bấm chạy thử 2 macro nhiều lần & kiểm kết quả

Những mong là khỏi gởi kèm file bạn cũng hoàn thành mỹ mãn!

SA_DQ · 6/9/10

Xin lỗi, code bài trên còn có điểm sai

Xin bạn sửa lại như sau:

Mã:

Option Explicit
[B]Sub Filters()[/B]
   AdvFilter False
[B]End Sub[/B]

Mã:

[B]Sub Filter()[/B]
 AdvFilter
[B]End Sub[/B]

PHP:

Sub AdvFilter(Optional GPE As Boolean = True)
 Dim Criter As Range
 Dim Sh As Worksheet, eRw As Long

 Set Sh = Sheets("Sheet1"):                  eRw = Sh.[d65500].End(xlUp).Row
 Set Criter = Sh.[j3].Resize(2, 2)
 If GPE Then
   Sheet2.[d3].Value = [d4].Value:           Sheet2.[F3].Value = [d4].Value
 End If
 [d5].Resize(eRw, 3).ClearContents
 Sh.[d3].Resize(eRw, 3).AdvancedFilter Action:=xlFilterCopy, _
   CriteriaRange:=Criter, CopyToRange:=Sh.[m3].Resize(, 3), Unique:=False
 Sh.[m3].CurrentRegion.Offset(1).Copy Destination:=[d5]
End Sub

khamha · 6/9/10

Bạn HYen17 Thân Mến,Mình Đã Làm Theo Hướng Dẫn Của Bạn Nhưng Mà Không Được,Mình Thấy Cái Code Trên Nó Phức Tạp Quá ( Chắc Là Trình Độ Của Mình Chưa Hiểu Được ) Nhưng Dù Sao Thì Vẫn Cảm Ơn Bạn Đã Nhiệt Tình Giúp Đỡ. Theo Mình Thấy Thì Cái Code Mà Mình Nhờ Các Bạn Sửa Giúp Nó Ngắn Gọn Hơn Nhiều,Hay Là Các Bạn Xem Lại Và Sửa Xem Nó Có Đáp ứng Được Không:* Các Bạn Sửa Lại Cho Mình Như Sau: 1. Sửa Để Có Thể Lọc Được Từ Tháng 102009 Đến Tháng 82010 (102010 - 82011…102049 - 82050 ) 2. Trong Sheet4 Bạn Làm Cho Nó Lọc 01 Tháng Thôi. 3. Bạn Đổi Tên Các Sheet Ở Trong Code Cho Mình Như Sau: Sheet1=Data ;Sheet2=Nam ;Sheet4=Py. Code: Sub Loc() Sheet2.Range("A5:AX65536").ClearContents With Sheet1.Range("D5").CurrentRegion .AutoFilter 1, ">=" & CDbl(Sheet2.[D2]), xlAnd, "

hiênl · 26/6/13

hi Danh!
mình đang cần 1 life lọc tương tự như thế này nè nhưng lọc trong 1 khoảng thời gian nào đó( vd: từ 1/2/2013 đến 3/4/2013). mong anh Danh chỉ dùm em cách làm với. Thanks!

Thay · 27/6/13

khamha đã viết:
Nhờ Các Bạn Sửa Lại Cái Code Và Đổi Tên Sheet Trong Code Cho Mình Với.
* Các Bạn Sửa Lại Cho Mình Như Sau:
1. Sửa Để Có Thể Lọc Được Từ Tháng 102009 Đến Tháng 82010 (102010 - 82011…102049 - 82050 )
2. Trong Sheet4 Bạn Làm Cho Nó Lọc 01 Tháng Thôi.
3. Bạn Đổi Tên Các Sheet Ở Trong Code Cho Mình Như Sau: Sheet1=Data ;Sheet2=Nam ;Sheet4=Py.
Code:
Sub Loc()
Sheet2.Range("A5:AX65536").ClearContents
With Sheet1.Range("D5").CurrentRegion
.AutoFilter 1, ">=" & CDbl(Sheet2.[D2]), xlAnd, "<=" & CDbl(Sheet2.[F2])
.SpecialCells(12).Copy: Sheet2.Range("D5 ").PasteSpecial 3
.AutoFilter
End With
Sheet2.Range("D5").Select
End Sub

Cảm Ơn Các Bạn

Cách của tôi là lọc trực tiếp, làm theo cách của người ít kiến thức
Nhưng lại lọc đơn giản và tiện lợi

huutinh85 · 28/11/13

hoangdanh282vn đã viết:
Gửi bạn file tham khảo nè

hay quá bác ơi bác chỉ cho e hàm đó đi

ndunghuong · 23/1/14

ndu96081631 đã viết:
Bạn thử file này xem có đúng ý bạn không nha!

Em đã thử nhưng lại báo lỗi anh ơi, anh xem lại giúp em với

ptt · 3/8/14

ndu96081631 đã viết:
Bạn thử file này xem có đúng ý bạn không nha!

Chạy file này báo lỗi anh ơi. Làm ơn xem lại giúp em với ạ.

nguyenqhoa93 · 5/12/15

ndu96081631 đã viết:
Bạn thử file này xem có đúng ý bạn không nha!

File lọc của bác rất hay, nhưng mà sao không chạy được, bác xem lại giúp em nhé. --=0

hunglektvn · 15/12/16

Nhờ các bác giải giúp em cái thắc mắc trong file đính kèm
Em có 2 sheet, trong đó 1 sheet nhập data và 1 sheet Tong hop làm báo cáo
Bây giờ em muốn lọc số KM đầu và Số Km cuối rong Sheet tong họp từ cột Số KM TH bên sheet data sao cho thỏa mãn các điều kiện sau:
- Số KM đầu là số KM nhỏ nhất trong cột Số KM TH bên Sheet data theo khoảng thời gian bôi vàng bên sheet Tong hop sao cho thỏa mãn các điều kiện: Chỉ lọc số KM khi cột Ma_CV có chữ "nl", lọc theo từng xe nữa.
Tương tự Số KM cuối là số KM lớn nhất trong cột Số KM TH bên Sheet data theo khoảng thời gian bôi vàng bên sheet Tong hop sao cho thỏa mãn các điều kiện: Chỉ lọc số KM khi cột Ma_CV có chữ "nl", lọc theo từng xe nữa.

Xin các pak giúp và gửi cho em theo địa chỉ mail hunglektvn@yahoo.com

Em cảm ơn nhiều.

xuanlinhtdt · 22/3/17

Chào anh Chị,
Mình cũng đang có một vấn đề về excel tương tự nhưng lại yêu cầu cao hơn:
- muốn lọc số liệu của một sản phẩm theo từng tháng, liệt kê thành bảng tổng hợp theo tháng.

Đính kèm là file tổng hợp trong năm 2016, vì số lượng quá lớn mà tổng hợp filter từ sheet "Báo cáo" qua sheet "2016" phải nhập thủ công nên A/C nào biết hàm nào có thể thực hiện được nhanh hơn không?

Mới vào công ty bị đưa một đống số liệu từ 2014 đến nay phải tổng hợp, nếu không có cách nào chắc nhập tay sẽ...

A/C nào có cách xử lý hay xin hướng dẫn trên này để mọi người làm theo.

Nếu được, A/C nào chỉnh được thì chuyển vào email xuanlinhtdt@gmail.com

Xin cảm ơn nhiều,

befaint · 22/3/17

xuanlinhtdt đã viết:
Nếu được, A/C nào chỉnh được thì chuyển vào email xuanlinhtdt@gmail.com

Yêu cầu làm giúp rồi gửi đáp án vào email là yêu cầu quá cao, và thường phải trả phí.

TheThienChu · 22/3/17

Bài cỡ này chỉ cần 1 ly cà phê thôi, có khó gì mà phí tổn.
Nói vậy chứ tôi không có làm.
Good luck!

xuanlinhtdt · 22/3/17

Chào bạn,

Vì để dễ hình dung đối với tài liệu của mình nên mới gửi file lên.
Nếu bạn có giải pháp nào đơn giản mà có thể áp dụng được thì chia sẽ trên này để nhiều người nghiên cứu luôn, như vậy thì quá tốt rồi.

Befaint: Xin lỗi vì bài viết của mình làm bạn khó chịu.

befaint · 22/3/17

TheThienChu đã viết:
Bài cỡ này chỉ cần 1 ly cà phê thôi, có khó gì mà phí tổn.

Đã có người định giá.

@xuanlinhtdt:
Bạn hiểu sai vấn đề.

Huongphusa · 23/3/17

Thưa Anh. Muốn làm lọc như anh làm thì làm ntn? Mong anh chỉ giúp em. Em cảm ơn nhiều ạ.

SA_DQ · 23/3/17

Anh ở đây là ai vậy bạn?

Thưa Anh. Muốn làm lọc như anh làm thì làm ntn? Mong anh chỉ giúp em.

Với topic hàng trăm bài như thế này, chắc bạn fải nêu cụ thể hay trích dẫn, thì mới mong nhanh đáp ứng đòi hỏi của bạn được.

Chúc ngày vui & hiệu quả!

Huongphusa · 23/3/17

Thưa Anh. Muốn làm lọc như anh làm thì làm ntn? Mong anh chỉ giúp em. Em cảm ơn nhiều ạ.

ndu96081631 đã viết:
Bạn thử file này xem có đúng ý bạn không nha!

trondien · 29/3/17

Xin anh chỉ giáo

hoangdanh282vn đã viết:
Gửi bạn file tham khảo nè

AnhDoanhơi!
- file anh gửi (lọc tự động) ấy ạ, e không thể tìm ra cách anh làm sao để click ở tháng mà dữ liệu tự động lấy được ạ ;;;;;;;;;;;