Dò tìm lỗi trong file excel có nhiều sheet! (1 người xem)

[theducw87]

Thưa các anh chị! Tình hình là em có một file excel có nhiều sheet mà trong các sheet ấy lại có một số sheet chứa các ô bị lỗi như N/A; Value,...Em muốn tự động tô màu các sheet và các ô cell bị lỗi. Anh chị nào biết cách chỉ dùm với với! Em xin cảm ơn! Trong trường hợp không thể làm dc thì nhờ các anh chị có thể viết hộ em một code có thể thông báo địa chỉ cell và tên sheet có chứa lỗi. Em xin cảm ơn!

 

[phucbugis]

Thưa các anh chị! Tình hình là em có một file excel có nhiều sheet mà trong các sheet ấy lại có một số sheet chứa các ô bị lỗi như N/A; Value,...Em muốn tự động tô màu các sheet và các ô cell bị lỗi. Anh chị nào biết cách chỉ dùm với với! Em xin cảm ơn!

bạn có thể share cái file đó lên diễn đàn để mọi người còn test với code đó nữa chứ?

 

[nmhung49]

Thưa các anh chị! Tình hình là em có một file excel có nhiều sheet mà trong các sheet ấy lại có một số sheet chứa các ô bị lỗi như N/A; Value,...Em muốn tự động tô màu các sheet và các ô cell bị lỗi. Anh chị nào biết cách chỉ dùm với với! Em xin cảm ơn!

Tô màu sheet chắc phải dùng code mở VBA lên Alt+F11 doulbe vào Thisworkbook paste code này vào

[GPECODE=vb]
Private Sub Workbook_Open()
Dim sh As Worksheet
On Error Resume Next

For Each sh In Worksheets
With sh
.Tab.ColorIndex = 35
.Cells.SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 35
End With
Next
End Sub
[/GPECODE]

 

[chuot0106]

Thưa các anh chị! Tình hình là em có một file excel có nhiều sheet mà trong các sheet ấy lại có một số sheet chứa các ô bị lỗi như N/A; Value,...Em muốn tự động tô màu các sheet và các ô cell bị lỗi. Anh chị nào biết cách chỉ dùm với với! Em xin cảm ơn!

Cách của bạn mhung49 quá ổn rồi. Bạn tham khảo thêm.

 

[VetMini]

Tìm lỗi không thể dựa vào tính chất tự động. Lại càng không thể đưa công việc vào hiện tượng mở workbook. Nhỡ vì lý do gì đó macro không chạy thì sao?
Đồng thời, nếu file đang mở, chả nhẽ phải đóng laị rồi mở ra để nhìn những chỗ bị lỗi?

Tìm lỗi phải là một công việc có ý thức; tức là người sử dụng phải khởi xướng công việc:
1. Đưa code vào một macro, tô màu lỗi. Người dùng phải chạy macro này. Chạy bằng cửa sổ VBA hay nút gì gì đó thì tuỳ đặt.
2. Thêm phần code xoá màu nếu ô không còn lỗi.
3. Giành ra một màu đặc biệt nào đó để tránh bị trùng với các ô được người dùng tô màu vì lý do gì khác. Cách dễ nhất là đặt một const và chú thích nó là màu gì.

Lưu ý:
Dùng code "On Error Resume Next" phải cẩn thận.
Cái này sẽ che đi những vấn đề lỗi có thể xảy ra. Đưa đến kết quả khó thể đảm bảo 100%.
Nếu một đoạn code ngắn thì châm chế được. Nhưng nếu về sau người dùng thêm vào vải công việc nữa thì code sẽ rất nguy hiểm.
Vì vậy người viết câu "Resume Next" này luôn luốn viết thêm câu "On Error Resume 0" ngay sau khi không cần nó nữa.

 

[phucbugis]

Thưa các anh chị! Tình hình là em có một file excel có nhiều sheet mà trong các sheet ấy lại có một số sheet chứa các ô bị lỗi như N/A; Value,...Em muốn tự động tô màu các sheet và các ô cell bị lỗi. Anh chị nào biết cách chỉ dùm với với! Em xin cảm ơn!

nếu số liệu các sheet "quá nhiều" thì bạn dùng thử phương thức Find (Chip Peasron) + chèn Hyperlink xem sao nhé !

Link: https://www.mediafire.com/?c60cs2vc7f5f2p8

 

[theducw87]

Tô màu sheet chắc phải dùng code mở VBA lên Alt+F11 doulbe vào Thisworkbook paste code này vào

[GPECODE=vb]
Private Sub Workbook_Open()
Dim sh As Worksheet
On Error Resume Next

For Each sh In Worksheets
With sh
.Tab.ColorIndex = 35
.Cells.SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 35
End With
Next
End Sub
[/GPECODE]

Mình đã làm như bạn hướng dẫn nhưng code không chạy. Khi mình bỏ Private và chạy như một marco thì nó lại tô màu tất cả các sheet giống nhau, kể cả các sheet không bị lỗi. Bạn có thể kiểm tra lại hộ mình không?