Code thông báo các ô bị lỗi

[LanAnh19]

Các bạn giúp mình code sau
Ví dụ mình có 1 khối ô A6:Gn
(n là số dòng bấy kỳ - dòng cuối có dữ liệu theo cột A)
Theo như trong file, thì là khối A6: G20
Khối ô trên có thể bị lỗi bất kỳ như
1. Lỗi giá trị: #VALUE!
2. Lỗi sai tên công thức: #NAME?
3. Lỗi chia cho giá trị 0: #DIV/0!
4. Lỗi sai vùng tham chiếu: #REF!
5. Lỗi dữ liệu rỗng: #NULL!
6. Lỗi dữ liệu: #N/A
7. Lỗi dữ liệu kiểu số: #NUM!

Nếu có lỗi thì code thông báo. Cảm ơn các bạn.

 

[huuthang_bd]

Các bạn giúp mình code sau

Bạn không nên hành văn như vậy.

 

[BuiQuangThuan]

Bạn nói cứ như việc code là việc của người giúp ấy nhỉ? Kiểu như sếp giao việc cho nhân viên ấy

 

[LanAnh19]

Bạn không nên hành văn như vậy.

Em chưa hiểu, câu trên của em sai chỗ nảo?
Em đang nhờ mọi người GIÚP mà

 

[BuiQuangThuan]

Em chưa hiểu, câu trên của em sai chỗ nảo?

Nó không sai. Chỉ là cảm giác thôi

 

[huuthang_bd]

Sếp tôi cũng giao việc cho tôi bằng mẫu câu như vậy. "Em làm giúp anh việc này".

 

[BuiQuangThuan]

Sếp tôi cũng giao việc cho tôi bằng mẫu câu như vậy. "Em làm giúp anh việc này".

Phải nói ngược lại. Là anh giao cho cấp dưới cũng câu đó mới đúng ấy

 

[Hoàng Tuấn 868]

Nó không sai. Chỉ là cảm giác thôi

Vụ này nếu không có gì thay đổi thì khả năng là dừng ở đây thôi.

 

[snow25]

Các bạn giúp mình code sau
Ví dụ mình có 1 khối ô A6:Gn
(n là số dòng bấy kỳ - dòng cuối có dữ liệu theo cột A)
Theo như trong file, thì là khối A6: G20
Khối ô trên có thể bị lỗi bất kỳ như
1. Lỗi giá trị: #VALUE!
2. Lỗi sai tên công thức: #NAME?
3. Lỗi chia cho giá trị 0: #DIV/0!
4. Lỗi sai vùng tham chiếu: #REF!
5. Lỗi dữ liệu rỗng: #NULL!
6. Lỗi dữ liệu: #N/A
7. Lỗi dữ liệu kiểu số: #NUM!

Nếu có lỗi thì code thông báo. Cảm ơn các bạn.

Mục đích bạn là làm gì.Để kiểm tra xem file đó có bị lỗi công thức à.Mà cái câu đầu tiên bạn viết tỏ thành ý chút.Chứ đừng viết tiết kiệm chữ kiểu này.

 

[cantl]

Em chưa hiểu, câu trên của em sai chỗ nảo?
Em đang nhờ mọi người GIÚP mà

Bạn cứ tưởng tượng đây là nhà các bác hàng xóm. Bạn phi thẳng vào nhà hô to:
"Bác rót GIÚP em cốc nước".
Bác bảo: "Dạ, em cứ ngồi đấy, bác rót ngay và luôn đây".

 

[Hong.Van]

Bạn thử, rồi sửa code theo ý mình

Sub ToOBiLoi()
    Dim lr As Long
    lr = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Data").Range("A7:G" & lr).SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 3
End Sub

 

[hoangtuaotrang_hp_vn]

Bạn thử, rồi sửa code theo ý mình

Sub ToOBiLoi()
    Dim lr As Long
    lr = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Data").Range("A7:G" & lr).SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 3
End Sub

Chưa tô ô #NULL! kìa bác, Với lị, thêm 1 click nữa để bỏ tô thì tuyệt vời

 

[SA_DQ]

Chưa tô ô #NULL! kìa bác, Với lị, thêm 1 click nữa để bỏ tô thì tuyệt vời

Cụm từ đó được ai đó nhập thêm vô bảng tính, ha, ha,. . . .

 

[LanAnh19]

Bạn thử, rồi sửa code theo ý mình

Sub ToOBiLoi()
    Dim lr As Long
    lr = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Data").Range("A7:G" & lr).SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 3
End Sub

Em cảm ơn chị nhiều ạ!