Kiểm soát nhập liệu, ô đã tô màu thì bắt buộc có số liệu, ô không tô màu thì không được có số liệu!

[AnhThu-1976]

Em chào các anh/chị!
Để kiểm soát việc nhập liệu ở các cột B, C, D, E. Em có quy định, nếu ô nào có tô màu thì nhập số liệu vào ô đó, nếu không tô màu thì không được nhập liệu
Trong file của em thì:
* Ô D8, D17: không tô màu nhưng có số liệu → không đúng quy định
* Ô C8, B11: có tô màu nhưng không có số liệu → không đúng quy định
Cho em hỏi, làm cách nào để phát hiện những ô trên nhập liệu không đúng quy định
Vì số liệu của em rất nhiều, nếu dò = mắt thì dễ thiếu sót.
Em cảm ơn!

 

[be_09]

Em chào các anh/chị!
Để kiểm soát việc nhập liệu ở các cột B, C, D, E. Em có quy định, nếu ô nào có tô màu thì nhập số liệu vào ô đó, nếu không tô màu thì không được nhập liệu
Trong file của em thì:
* Ô D8, D17: không tô màu nhưng có số liệu → không đúng quy định
* Ô C8, B11: có tô màu nhưng không có số liệu → không đúng quy định
Cho em hỏi, làm cách nào để phát hiện những ô trên nhập liệu không đúng quy định
Vì số liệu của em rất nhiều, nếu dò = mắt thì dễ thiếu sót.
Em cảm ơn!

Góp ý cho bạn:
1/ Một câu hỏi không có quy luật.
2/ Muốn tra cái gì đó thì bắt buộc phải có danh mục hoặc 1 sheet theo dõi, từ 2 cái này thì mới có cái dựa vào đó mà tra. Nếu không dựa vào cái gì để tra thì làm sao biết nó đúng hoặc sai.
Ví dụ về biển số xe: Người ta quy ước mỗi tỉnh, mỗi vùng có số đầu của biển số xe khác nhau, nếu sảy ra tai nạn người ta chỉ cần nhìn số đầu thì sẽ biết được cái xe gây ra tai nạn nó thuộc tỉnh nào.

 

[congnt92]

Em chào các anh/chị!
Để kiểm soát việc nhập liệu ở các cột B, C, D, E. Em có quy định, nếu ô nào có tô màu thì nhập số liệu vào ô đó, nếu không tô màu thì không được nhập liệu
Trong file của em thì:
* Ô D8, D17: không tô màu nhưng có số liệu → không đúng quy định
* Ô C8, B11: có tô màu nhưng không có số liệu → không đúng quy định
Cho em hỏi, làm cách nào để phát hiện những ô trên nhập liệu không đúng quy định
Vì số liệu của em rất nhiều, nếu dò = mắt thì dễ thiếu sót.
Em cảm ơn!

Cái này dùng code thì nhanh nhất, còn không thì excel nó sẵn chức năg filter by color xem sao.

 

[be_09]

Cái này dùng code thì nhanh nhất, còn không thì excel nó sẵn chức năg filter by color xem sao.

Filter xong rồi làm sao biết Cell nào có số liệu đúng hay sai? Không lẽ lại đi dò bằng mắt.
Muốn biết đúng hay sai thì phải có cái gì đó dò rồi so sánh kết quả.

 

[phulien1902]

Em chào các anh/chị!
Để kiểm soát việc nhập liệu ở các cột B, C, D, E. Em có quy định, nếu ô nào có tô màu thì nhập số liệu vào ô đó, nếu không tô màu thì không được nhập liệu
Trong file của em thì:
* Ô D8, D17: không tô màu nhưng có số liệu → không đúng quy định
* Ô C8, B11: có tô màu nhưng không có số liệu → không đúng quy định
Cho em hỏi, làm cách nào để phát hiện những ô trên nhập liệu không đúng quy định
Vì số liệu của em rất nhiều, nếu dò = mắt thì dễ thiếu sót.
Em cảm ơn!

Thử:

Sub abc()
    Dim Cll As Range
    For Each Cll In Range("B4:E19")
        If IsNumeric(Cll) Then
            If Cll.Interior.ColorIndex = -4142 Then
                Cll.ClearContents
            End If
        End If
    Next
End Sub

 

[congnt92]

Filter xong rồi làm sao biết Cell nào có số liệu đúng hay sai? Không lẽ lại đi dò bằng mắt.

Cũng hóng cao nhân soạn code, còn với người dùng cơ bản như mình thì chỉ có cách đấy.
Với lại câu hỏi của chủ thớt không rõ là chỉ ra cụ thể ô sai, hay chỉ cần "sửa sai".
Chẳng hạn:
- không màu thì không được điền: rà soát bằng cách, lọc theo màu là "no fill" >> xóa nguyên cột >> lúc đó đảm bảo những ô nào không fill màu cũng đã bị xóa dữ liệu.
- fill màu mà chưa có dữ liệu: lọc lấy các ô đang blank >> ô nào fill màu mà chưa điền thì điền bổ sung.

 

[AnhThu-1976]

Với lại câu hỏi của chủ thớt không rõ là chỉ ra cụ thể ô sai, hay chỉ cần "sửa sai".

Mục đích trước mắt là tìm những ô nhập liệu không đúng trước (có thể liệt kê ra), sau đó mới tiến hành sửa sai trực tiếp = tay ( tôi nghỉ khó có thể sửa tự động được, ví dụ: ở cùng 1 hàng có 4 ô, nhưng chỉ có 1 ô tô màu. Trong khi đó người nhập liệu không nhập liệu vào ô tô màu nhưng lại nhập liệu vào 3 ô không tô màu mà lại nhập các số liệu khác nhau)

 

[congnt92]

Mục đích trước mắt là tìm những ô nhập liệu không đúng trước (có thể liệt kê ra), sau đó mới tiến hành sửa sai trực tiếp = tay ( tôi nghỉ khó có thể sửa tự động được, ví dụ: ở cùng 1 hàng có 4 ô, nhưng chỉ có 1 ô tô màu. Trong khi đó người nhập liệu không nhập liệu vào ô tô màu nhưng lại nhập liệu vào 3 ô không tô màu mà lại nhập các số liệu khác nhau)

Code #5 sẽ giúp bạn khâu xóa các dữ liệu nhập sai,
Còn nhập bổ sung những ô nhập thiếu thì buộc phải nhập tay, vì số liệu cần nhập là gì thì chỉ ng nhập liệu mới biết.
Bạn cũng có thể thử cách thủ công như mình gợi ý. (Bạn xem hình).

Sai1: Fill màu mà không điền >> sửa 1: filter các cell đang blank >> ô nào có màu thì điền bổ sung.
sai2: Không fill màu mà điền >> sửa 2: filter màu với điều kiện no fill >> bôi đen nguyên vùng dữ liệu >> xóa.

 

[phulien1902]

Mục đích trước mắt là tìm những ô nhập liệu không đúng trước (có thể liệt kê ra), sau đó mới tiến hành sửa sai trực tiếp = tay ( tôi nghỉ khó có thể sửa tự động được, ví dụ: ở cùng 1 hàng có 4 ô, nhưng chỉ có 1 ô tô màu. Trong khi đó người nhập liệu không nhập liệu vào ô tô màu nhưng lại nhập liệu vào 3 ô không tô màu mà lại nhập các số liệu khác nhau)

Vậy bạn dùng Code sau để thông báo các Cells không hợp lệ nhé

Sub abc2()
    Dim Cll As Range
    For Each Cll In Range("B4:E19").SpecialCells(xlCellTypeConstants, 1)
        If Cll.Interior.ColorIndex = -4142 Then
            MsgBox " Cac Cell khong hop le:" & Cll.Address
        End If
    Next
End Sub

 

[AnhThu-1976]

Sub abc2() Dim Cll As Range For Each Cll In Range("B4:E19").SpecialCells(xlCellTypeConstants, 1) If Cll.Interior.ColorIndex = -4142 Then MsgBox " Cac Cell khong hop le:" & Cll.Address End If Next End Sub

Cảm ơn bạn!
Code trên chỉ mới chỉ ra ô không tô màu mà có số liệu còn ô có tô màu mà không có số liệu thì không thấy có thông báo. Mình muốn thay vì nó thông báo thì nó liệt kê tại 1 ô nào đó được không?

 

[phulien1902]

Cảm ơn bạn!
Code trên chỉ mới chỉ ra ô không tô màu mà có số liệu còn ô có tô màu mà không có số liệu thì không thấy có thông báo. Mình muốn thay vì nó thông báo thì nó liệt kê tại 1 ô nào đó được không?

Bạn dùng thử Code dưới đây liệt kê tất cả các lỗi:

Sub abc3()
    Dim Cll As Range
    For Each Cll In Range("B4:E19")
        If Cll.Value <> 0 And Cll.Interior.ColorIndex = -4142 Then
                 Debug.Print Cll.Address
          ElseIf Cll.Value = 0 And Cll.Interior.ColorIndex <> -4142 Then
                Debug.Print Cll.Address
        End If
    Next
End Sub