Hỏi về cách lọc dữ liệu sau khi Validation Data

[quocturtle]

Mọi người cho mình hỏi có cách nào lọc (filter) ra các dữ liệu invalid (có dấu xanh) không?
Cụ thể là trong file đính kèm thì mình valid data cột G ("rack") là từ 1-9.
Dòng 8,9,10 data invalided → có dấu tick xanh.

Mình muốn filter ra dòng 8,9,10 để tiện kiểm tra và xử lý.

Cảm ơn mọi người

 

[Hoàng Nhật Phương]

Mọi người cho mình hỏi có cách nào lọc (filter) ra các dữ liệu invalid (có dấu xanh) không?
Cụ thể là trong file đính kèm thì mình valid data cột G ("rack") là từ 1-9.
Dòng 8,9,10 data invalided → có dấu tick xanh.

Mình muốn filter ra dòng 8,9,10 để tiện kiểm tra và xử lý.

Cảm ơn mọi người

Hic hic

Option Explicit

Sub Khong_Biet_Dau()
    Dim Sheet As Worksheet, Cell As Range, rIgnore As Range
    Dim LastRow  As Long, rng As Range
    Set Sheet = ActiveSheet
    LastRow = Sheet.Cells(Sheet.Rows.Count, "G").End(xlUp).Row
    Set rng = Sheet.Range("G4:G" & LastRow)
    rng.EntireRow.Hidden = False
    If LastRow < 4 Then Exit Sub
    For Each Cell In rng
        If Cell.Errors.Item(xlListDataValidation).Value = True Then
            If rIgnore Is Nothing Then
                Set rIgnore = Cell
            Else
                Set rIgnore = Union(rIgnore, Cell)
            End If
        End If
    Next Cell
    If Not rIgnore Is Nothing Then
        rng.EntireRow.Hidden = True
        rIgnore.EntireRow.Hidden = False
    Else
        rng.EntireRow.Hidden = False
    End If
End Sub

 

[Hoàng Nhật Phương]

Bạn thử lại code trên xem được không ạ?

 

[Maika8008]

Hic hic

Hic hic nghĩa là viết code nhưng không tự tin lắm hay là sao?

 

[Hoàng Nhật Phương]

Hic hic nghĩa là viết code nhưng không tự tin lắm hay là sao?

Trời ơi đúng rồi Bạn ạ, hic Bạn không những code giỏi lại còn đoán được cả suy nghĩ người khác nữa , lợi hại thật
Code trước OT sử dụng:

.Errors(xlEvaluateToError).Ignore = True

Nhưng chỉ tìm được một kết quả và bạn @quocturtle cũng đã thấy được kết quả từ code này, sau đó OT mới sửa lại thành.

.Item(xlListDataValidation).Value

Không biết có đúng ý bạn ấy không nữa Bạn ạ.

 

[qtm1987]

Mọi người cho mình hỏi có cách nào lọc (filter) ra các dữ liệu invalid (có dấu xanh) không?
Cụ thể là trong file đính kèm thì mình valid data cột G ("rack") là từ 1-9.
Dòng 8,9,10 data invalided → có dấu tick xanh.

Mình muốn filter ra dòng 8,9,10 để tiện kiểm tra và xử lý.

Cảm ơn mọi người

Chọn ô G3 > vào data chọn Filter (lọc filter theo Number Filter > chọn "Great Than" gõ vào số 9 là ra thôi). Vì bạn mặc định điều kiện là số rack 1-9 rồi nên đã xác định được điều kiện lọc cụ thể, dòng nào số lớn hơn 9 thì sẽ được lọc ra)