Hiển thị các giá trị Autofilter

[hunglao]

EM có một bảng tính muốn
-ở các côt khi sử dụng chức năng Auto Filter( AF)( ví dụ cột A,B) thì sẽ có môt cell tương ứng với cột đó ( A3,B3) sẽ hiện ra giá trị mà mình đã lọc và tô màu xanh cho cell đó. Cột nào không sư dụng AF ( ví dụ C) thì cell tương ứng (c3) sẽ không đổi màu và cũng không có giá trị
- Nếu toàn bộ các cột không sử dụng AF thì line 3 này sẽ ẩn đi

 

[Hai Lúa Miền Tây]

EM có một bảng tính muốn
-ở các côt khi sử dụng chức năng Auto Filter( AF)( ví dụ cột A,B) thì sẽ có môt cell tương ứng với cột đó ( A3,B3) sẽ hiện ra giá trị mà mình đã lọc và tô màu xanh cho cell đó. Cột nào không sư dụng AF ( ví dụ C) thì cell tương ứng (c3) sẽ không đổi màu và cũng không có giá trị
- Nếu toàn bộ các cột không sử dụng AF thì line 3 này sẽ ẩn đi

Bạn xem Function này nhé.

Function DieuKienLoc(VUNG As Range) As String
   Dim Filter As String
    Filter = ""
    On Error GoTo Finish
    With VUNG.Parent.AutoFilter
        If Intersect(VUNG, .Range) Is Nothing Then GoTo Finish
        With .Filters(VUNG.Column - .Range.Column + 1)
            If Not .On Then GoTo Finish
            Filter = .Criteria1
            Select Case .Operator
                Case xlAnd
                    Filter = Filter & " AND " & .Criteria2
                Case xlOr
                    Filter = Filter & " OR " & .Criteria2
            End Select
        End With
    End With
Finish:
    DieuKienLoc = Filter
End Function

Tham khảo thêm file đính kèm coi phải vậy không nhe

 

[hunglao]

anh có thể cho - Nếu toàn bộ các cột không sử dụng AF thì line ( chứa giá trị AF)này sẽ ẩn đi dc không ạ

 

[ndu96081631]

anh có thể cho - Nếu toàn bộ các cột không sử dụng AF thì line ( chứa giá trị AF)này sẽ ẩn đi dc không ạ

Thì bạn thêm sự kiện Worksheet_Calculate
Chẳng hạn là:

Private Sub Worksheet_Calculate()
  With Range("A4:C4")
    .EntireRow.Hidden = WorksheetFunction.CountBlank(.Cells) = 3
  End With
End Sub

 

[hunglao]

File này em test chỉ đúng khi xài <= 2 giá trị AF, nếu lớn hơn thì cell hiển thị AF chả thấy hiện gì và Line đó cũng ẩn luôn ạ

 

[ndu96081631]

File này em test chỉ đúng khi xài <= 2 giá trị AF, nếu lớn hơn thì cell hiển thị AF chả thấy hiện gì và Line đó cũng ẩn luôn ạ

Domfootwear test thế nào rồi ---> Tôi thì test thấy bình thường

 

[Hai Lúa Miền Tây]

Domfootwear test thế nào rồi ---> Tôi thì test thấy bình thường

Em thấy kết quả theo như câu hỏi của tác giả, không thấy gì khác thường cả.
Hay là tác giả hỏi theo chiều hướng mới nữa mà mình nghĩ không ra ?

 

[hunglao]

Tức là ô chứa giá trị AF chỉ thể hiện được khi ta sử dụng <=2 giá trị AF còn >2 thì khhông đúng nữa

 

[ndu96081631]

Tức là ô chứa giá trị AF chỉ thể hiện được khi ta sử dụng <=2 giá trị AF còn >2 thì khhông đúng nữa

Thì ra đồng chí test trên Excel 2007 ---> Filter kia viết trên cơ sở Excel 2003 cơ mà ---> Điều kiện lọc đương nhiên <=2
Cái này gần giống với Conditional Formating, trên Excel 2003 chỉ có 3 điều kiện còn trên Excel 2007 thì cả 1 đóng
Để viết cho Excel 2007 tôi nghĩ.. hơi tê à nha!