[Nhờ viết Code] Lọc dữ liệu theo một điều kiện

Vi_Du_1.xlsx (12.17 KB, Lượt tải về: 1543)

14/9/2015 17:38 Tải lên

Click to download

(Xem file ví dụ mình gửi kèm)Cụ thể mình muốn các bạn làm giúp mình một code "Lọc dữ liệu" với yêu cầu như sau:
Theo ví dụ: Khi nhập vào ô G3 một công tác nào đó thì tại cột E các công tác khác sẽ được ẩn đi, nhưng vẫn phải giữ nguyên các ô trắng (blank) và điều kiện cần lọc.
Cảm ơn rất nhiều !
Mình đã tìm trên diễn đàn được Code này, nhưng không sử dụng được cho bài toán của mình

[Visual Basic] 纯文本查看 复制代码

Private Sub worksheet_selectionchange(ByVal target As Range)
Dim Lr As Long
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
  Lr = Cells(Rows.Count, 5).End(xlUp).Row
Cells.EntireRow.Hidden = False
  Range("b8:i" & Lr).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("h2:h3"), UNIQUE:=False
End Sub

vantuan18nd gửi lúc 15/9/2015 10:25
Chào bạn !
File chính mình không tiện up lên; mô tả như sau:
- Vùng dữ liệu B3 đến J ...

Xin lỗi bạn vì nay có việc đột xuất, phải đi tiếp khách nên giờ cũng tê tê rồi! Nên việc tùy chỉnh lại theo yêu cầu của bạn thì khó với tôi ở thời điểm hiện tại. Thôi thì dùng file ban đầu của bạn vậy, Code ở trong Sheet1, bạn tự tùy chỉnh code vùng Filter theo ý của mình nhé, chỉ chú ý là: với code của tôi cột O phải để trống. Tôi nghĩ là nếu đã tìm hiểu code VBA rồi thì việc tùy chỉnh cũng không khó lắm đâu

Hiện tại đang bận, tối về tôi sẽ giúp bạn. Nhưng file của bạn chỉ có vài dòng, làm thì e rằng sẽ lại phải sửa lại, mất công lắm. Bạn nên ghi rõ file chính có bao nhiêu dòng, bao nhiêu cột, lọc theo cột nào

Bài này khá đơn giản, chỉ cần record Macro, sửa lại tý là xong

votinh3290 gửi lúc 15/9/2015 07:55
Hiện tại đang bận, tối về tôi sẽ giúp bạn. Nhưng file của bạn chỉ có vài dòng, làm ...

Chào bạn !
File chính mình không tiện up lên; mô tả như sau:
- Vùng dữ liệu B3 đến J173
- Cột cần lọc là cột L, vùng L3 đến L173 chứa các công tác (Bê tông, trát, xây,...), Các công tác này sẽ được Vlookup theo điều kiện của ô A1
? Cần lọc cột L theo điều kiện đã được tìm và giữ nguyên các ô trắng.

Trở lại ví dụ trên.
- Mình cũng đã thử thu lại Macro theo gợi ý của bạn, chỉnh sửa một tí và đã được một đoạn code đáp ứng được yêu cầu (xem đính kèm)
- Vấn đề: Macro này phải gán cho nó một nút lệnh trong Developer thì nó mới chạy được;
- Giúp mình làm cho macro vừa thu tự chạy mà không cần phải nhấn vào nút lệnh nhé !;
(P/s: Mình đã tra Google có cách là chèn vào giữa đoạn Private Sub Worksheet_Change(ByVal Target As Range) .... End Sub nhưng Code vẫn không chạy)
Thanks ! Vi_Du_Loc du lieu.xlsm (20.38 KB, Lượt tải về: 1455)

15/9/2015 10:25 Tải lên

Click to download

[Visual Basic] 纯文本查看 复制代码

Sub Loc_Du_Lieu()
'
' Loc du lieu theo dieu kien cho truoc
'
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R1C2,BangTra!R2C1:R5C2,2,0)"
    Range("E3:E27").Select
    ActiveSheet.Range("$A$3:$E$27").AutoFilter Field:=5, Criteria1:=Range("G3").Value _
        , Operator:=xlOr, Criteria2:="="
    Range("G3").Select
End Sub

vantuan18nd gửi lúc 15/9/2015 10:25
Chào bạn !
File chính mình không tiện up lên; mô tả như sau:
- Vùng dữ liệu B3 đến J ...

Xài thử code này xem:

[Visual Basic] 纯文本查看 复制代码

Private Sub Worksheet_Activate()
    Range("G3").FormulaR1C1 = "=VLOOKUP(R1C2,BangTra!R2C1:R5C2,2,0)"
    ActiveSheet.Range("$A$3:$E$27").AutoFilter Field:=5, Criteria1:=Range("G3").Value _
        , Operator:=xlOr, Criteria2:="="
End Sub

Private Sub Worksheet_Deactivate()
    If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
End Sub

tranhoe gửi lúc 15/9/2015 15:0

Chào chú Hòe, cảm ơn chú đã xem xét !
Sao code không chạy tự động chú nhỉ, xem lại giúp cháu cái (có cần phải tinh chỉnh gì trong excel không ạ)
P/s: Cháu có thử dùng code khác kiểu tự động chạy thế này, code chạy ngon lành, cụ thể như đoạn code sau:

[Visual Basic] 纯文本查看 复制代码

Private Sub worksheet_selectionchange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireColumn.Interior.ColorIndex = 34  'DOC
Target.EntireRow.Interior.ColorIndex = 34   'NGANG
End Sub

---

Sau một hồi lấy cái lọ lắp vào cái chai thì cũng đã được Thay đổi dòng đầu thành Private Sub worksheet_selectionchange(ByVal Target As Range)

[Visual Basic] 纯文本查看 复制代码

Private Sub worksheet_selectionchange(ByVal Target As Range)
    Range("G3").FormulaR1C1 = "=VLOOKUP(R1C2,BangTra!R2C1:R5C2,2,0)"
    ActiveSheet.Range("$A$3:$E$27").AutoFilter Field:=5, Criteria1:=Range("G3").Value _
        , Operator:=xlOr, Criteria2:="="
End Sub

vantuan18nd gửi lúc 15/9/2015 15:53
Chào chú Hòe, cảm ơn chú đã xem xét !
Sao code không chạy tự động chú nhỉ, xem lại ...

Cần phân biệt rõ tác dụng của các sub dạng Private Sub Worksheet_........
+ Private Sub Worksheet_Activate có tác dụng khi kích hoạt sheet (Activate)
+ Private Sub Worksheet_Deactivate có tác dụng khi chuyển qua sheet khác (Deactivate)
+ Private Sub Worksheet_selectionchange có tác dụng khi kích lên 1 vùng hoặc sửa trong sheet (change)

Các sub này phải để ngay trong cửa sổ VBA của sheet (không nằm ngoài module) thì mới có tác dụng. Code của mình là khi kích hoạt sheet sẽ lọc theo giá trị của ô G3 và chỉ 1 lần thôi. Khi kích hoạt sheet khác (tức là sheet này Deactivate) thì sẽ bỏ lọc.
Nếu dùng change thì cứ sửa 1 ô trong sheet sẽ kích hoạt macro, điều này không nên tí nào.

vantuan18nd gửi lúc 15/9/2015 15:53
Chào chú Hòe, cảm ơn chú đã xem xét !
Sao code không chạy tự động chú nhỉ, xem lại ...

Bạn tìm File hướng dẫn lập trình VBA mà @thanh.bm đã gửi lên. Có nói chi tiết về phần này. Hoặc gửi mail tôi gửi tài liệu cho. Tuy nhiên do nhà đang mất mạng chưa sửa nên chưa gửi luôn được. Trước tiên tìm File Thanh.bm đã gửi tìm hiểu trước. Đi chầm chậm hiểu chi tiết từng cái nhỏ trước, rồi hãy tìm hiểu sâu, chạy nhanh mà hời hợt thì cũng không hiệu quả gì.