[Hỏi] Nhờ viết code lọc dữ liệu trong excel

84999211 · Đăng lúc 23/3/2015 12:26

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Các bạn có thể giúp mình tạo code để:

Mình muốn khi chọn list ở cell H3 thì bảng tính sẽ tự động lọc với text ở H3 theo cột " Đơn vị GD"

Ví dụ: Mình chọn ở ô H3 là:" Nguyễn Đức Nhật" thì ở cột "Đơn vị GD" sẽ lọc chỉ lấy text là " Nguyễn Đức Nhật"

Cám ơn các bạn!

Quản lý thu chi các tổ.xlsm (27.95 KB, Lượt tải về: 943)

tranhungdao12a3 · Đăng lúc 24/3/2015 08:53

Xài vầy xem sao:

[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

Ô H2 bạn gõ "Đơn vị GD" để cho nó lọc.

84999211 · Đăng lúc 25/3/2015 13:26

tranhungdao12a3 gửi lúc 24/3/2015 08:53
Xài vầy xem sao:
[mw_shl_code=vb,true]Private Sub worksheet_selectionchange(ByVal target As Range) ...

cám ơn bạn đã giúp mình :)

khoa289 · Đăng lúc 15/1/2016 15:06

84999211 gửi lúc 25/3/2015 13:26
cám ơn bạn đã giúp mình :)

Mình đã làm tương tự như hướng dẫn nhưng vẫn không lọc được dữ liệu, đoạn code có nhầm không, có thể sửa lại đoạn code để tự động lọc được không
Đính kèm file. Cám ơn

tranhoe · Đăng lúc 16/1/2016 16:58

khoa289 gửi lúc 15/1/2016 15:06
Mình đã làm tương tự như hướng dẫn nhưng vẫn không lọc được dữ liệu, đoạn cod ...

Dùng lại file này thử xem.
Code được chỉnh sửa từ bài viết ở trên.

Quản lý thu chi các tổ-V1.xlsm (30.69 KB, Lượt tải về: 858)

khoa289 · Đăng lúc 16/1/2016 17:14

tranhoe gửi lúc 16/1/2016 16:58
Dùng lại file này thử xem.
Code được chỉnh sửa từ bài viết ở trên.

Dạ em cám ơn anh nhiều.
Anh cho em hỏi nếu ở cột H3 xóa tên đơn vị giao dịch (Để trống) thì sẽ tự động hiện tất cả các đơn vị giao dịch được không ? (Khi cột H3 để trống thì sẽ hiện tất cả như ban đầu)
PS: Em thấy việc này lọc dữ liệu rất hay nên học hỏi để thuận tiện cho công việc hơn.

tranhoe · Đăng lúc 16/1/2016 22:12

khoa289 gửi lúc 16/1/2016 17:14
Dạ em cám ơn anh nhiều.
Anh cho em hỏi nếu ở cột H3 xóa tên đơn vị giao dịch (Để t ...

Hồi chiều làm vội quá. Vẫn biết còn có thể làm được nhiều hơn.
Bây giờ thì đúng ý rồi: Khi chọn đối tượng trong List ở cell H3 thì sẽ lọc, chỉ cần kích vào 1 cell khác (không phải H3) thì sẽ bỏ lọc.

Quản lý thu chi các tổ-V2.xlsm (31.02 KB, Lượt tải về: 817)

khoa289 · Đăng lúc 17/1/2016 00:32

tranhoe gửi lúc 16/1/2016 22:12
Hồi chiều làm vội quá. Vẫn biết còn có thể làm được nhiều hơn.
Bây giờ thì đú ...

Chào anh Hòe.
Đó chưa phải là file em mong muốn (Vì như vậy hơi bất tiện khi dùng), em mong làm được như sau:
1. Tại H3 nếu chọn tên của bất kỳ ai thì chỉ chọn duy nhất tên của người đó thôi dù kích chọn bất kỳ ô nào (Hiện file anh gửi khi chọn tên tại H3 và kích vào bất kỳ ô khác thì không còn lọc như tên H3 nữa mà trả về toàn bộ: Đính kèm ảnh).
2. Tại H3 nếu để trống thì tự động trả về tất cả mà không lọc và không cần kích chuột thêm lần nữa (hiện tại file anh gửi khi H3 trống thì chưa trả về toàn bộ mà thêm 1 lần kích chuột nữa).
PS: Rất cám ơn anh đã quan tâm và chỉnh sửa.

tranhoe · Đăng lúc 17/1/2016 16:31

khoa289 gửi lúc 17/1/2016 00:32
Chào anh Hòe.
Đó chưa phải là file em mong muốn (Vì như vậy hơi bất tiện khi dùng), ...

Mỗi cách có cái hay riêng.
Nếu yêu cầu như vậy thì xóa toàn bộ code cũ. Dùng code sau (chỉ 1 Sub):

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

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lr As Long, sCriterial As String
    If Target.Address <> "$H$3" Then Exit Sub
    sCriterial = Range("H3").FormulaR1C1
    If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
    If sCriterial = "" Then Exit Sub
    Lr = Cells(Rows.Count, 5).End(xlUp).Row
    Cells.EntireRow.Hidden = False
    Range("B8:I" & Lr).AutoFilter Field:=4, Criteria1:=sCriterial
End Sub

P/s: Không hiểu sao, đính kèm file mãi không được, bí quá đưa code lên vậy.

khoa289 · Đăng lúc 17/1/2016 17:01

tranhoe gửi lúc 17/1/2016 16:31
Mỗi cách có cái hay riêng.
Nếu yêu cầu như vậy thì dùng xóa toàn bộ code cũ. Dùng ...

Em cảm ơn anh, em đang cần cách này.
PS: Thank you very much.

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[Hỏi] Nhờ viết code lọc dữ liệu trong excel

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Cảm ơn!

Cảm ơn!

Cảm ơn!