Lọc dữ liệu dự vào màu sắc của cột. (1 người xem)

[phuongdongqn1986]

Chào các anh chị thân yêu..!
Em mới ra trường nên các vần đền về nghiệp vụ excel còn lúng túng lắm, em ra làm tại một công ty nọ, họ sử dụng về excel cũng khá nhiều kể cả những công việc em được phân công nữa, em muốn anh chị nào rành về excel chỉ cho em cách lọc dữ liệu của một cột mà dự theo màu sắc.
Thanks all..!
Anh chị xem file đính kèm nhé.

 

[Lê Duy Thương]

Chào các anh chị thân yêu..!
Em mới ra trường nên các vần đền về nghiệp vụ excel còn lúng túng lắm, em ra làm tại một công ty nọ, họ sử dụng về excel cũng khá nhiều kể cả những công việc em được phân công nữa, em muốn anh chị nào rành về excel chỉ cho em cách lọc dữ liệu của một cột mà dự theo màu sắc.
Thanks all..!
Anh chị xem file đính kèm nhé.

trong excel 2007--2010 có chức năng lọc theo màu đấy
còn excel 2003 thì không có

 

[MinhCong]

Đoạn code sau chỉ áp dụng cho bài của Bạn thôi nhé! Nếu dùng Format Conditional thi bó tay đấy (Tức code sau chỉ dùng lọc cho những thằng tô màu ô bằng Fill Color thôi)

Sub Locmau()
Dim enR As Long, tmp(1 To 65000, 1 To 1), iR As Long, jR As Long
 enR = Sheet1.Range("A65000").End(xlUp).Row
  Sheet1.Range("C2:C65000").Clear
    For iR = 2 To enR
        With Sheet1.Cells(iR, 1)
            If .Interior.ColorIndex <> xlNone Then
                jR = jR + 1
                tmp(jR, 1) = .value
            End If
        End With
    Next
  Sheet1.Range("C2").Resize(jR) = tmp
End Sub

 

[SA_DQ]

Hàm mảng tự tạo cho e2003 đây, xin mời

Option Explicit
Function FilterForBColor(rVung As Range, rColor As Range)
 Dim jJ As Long, MyColor As Long, Dem As Long
 Dim Cls As Range
 
 jJ = rVung.Count:         MyColor = rColor.Interior.ColorIndex
 ReDim GPE(1 To jJ, 1 To 1)
 For Each Cls In rVung
   If Cls.Interior.ColorIndex = MyColor Then
      Dem = Dem + 1
      GPE(Dem, 1) = Cls.Value
   End If
 Next Cls
 For MyColor = Dem + 1 To jJ
   GPE(MyColor, 1) = ""
 Next MyColor
 FilterForBColor = GPE
End Function

Hàm cần được cung cấm 2 tham số kiểu Range
(a) Vùng cần khảo sát (theo côt)
(b) ô đã tô màu nền cần trích lọc

Thêm 1 chú ý nữa, chắc thừa: Kết thúc bằng tổ hợp 3 fím nha!

 

[ndu96081631]

Cái này dùng công thức được luôn nha!
Xem thử file mình làm đây!

 

[Lê Duy Thương]

Cái này dùng công thức được luôn nha!
Xem thử file mình làm đây!

tuyệt vời nhưng vẫn bó tay khi fill color bằng condition formating bác NDU ạ

 

[ndu96081631]

tuyệt vời nhưng vẫn bó tay khi fill color bằng condition formating bác NDU ạ

Tôi thường làm theo cách này:
- Ta biết rằng để tô màu theo điều kiện thì ta cần 1 công thức nào đó, khi công thức cho kết quả = TRUE thì màu sắc sẽ xuất hiện
- Vậy chẳng có lý do gì mà ta lại không dựa vào các điều kiện này để lọc (dại gì mà dựa vào màu sắc)

 

[Lê Duy Thương]

Tôi thường làm theo cách này:
- Ta biết rằng để tô màu theo điều kiện thì ta cần 1 công thức nào đó, khi công thức cho kết quả = TRUE thì màu sắc sẽ xuất hiện
- Vậy chẳng có lý do gì mà ta lại không dựa vào các điều kiện này để lọc (dại gì mà dựa vào màu sắc)

thực tế mà nói hôm nay em mới biết chiêu này (lọc theo màu trong 2003 ) vì dùng 2007 từ năm 2008 sau rồi 2010 thấy cách lọc quá đơn giản nên không biết đến chiêu này
bác đúng là không hổ danh người có những ct độc đáo
bác có thể giải thích =GET.CELL(63,Sheet1!$H$1) giùm được không ?. sao lại là 63

 

[ndu96081631]

thực tế mà nói hôm nay em mới biết chiêu này (lọc theo màu trong 2003 ) vì dùng 2007 từ năm 2008 sau rồi 2010 thấy cách lọc quá đơn giản nên không biết đến chiêu này
bác đúng là không hổ danh người có những ct độc đáo
bác có thể giải thích =GET.CELL(63,Sheet1!$H$1) giùm được không ?. sao lại là 63

Muốn biết cái này thì phải nghiên cứu các hàm macro 4 bạn à
Download tài liệu này về nghiên cứu:
http://www.giaiphapexcel.com/forum/showthread.php?202-Các-hàm-macro4-hay&p=16629#post16629
Bạn cũng thấy rằng Mirosoft phát triển đến Excel 2010 rồi mà vẫn chưa bỏ hẳn macro 4, vì tuy đây là những hàm thời cổ đại nhưng có những hàm đã chứng tỏ được ưu điểm tuyệt vời của nó, làm được những việc mà code VBA thông thường chưa chắc làm được (hoặc làm được nhưng rất khó khăn)....