Bỏ qua nội dung chính

Làm cách nào để ẩn lỗi công thức không nhất quán trong Excel?

Như ảnh chụp màn hình bên dưới được hiển thị, chỉ báo lỗi màu xanh lục sẽ xuất hiện trong ô khi công thức không khớp với mẫu công thức của các ô khác nằm gần nó. Trên thực tế, bạn có thể ẩn lỗi công thức không nhất quán này. Bài viết này sẽ chỉ cho bạn các phương pháp để đạt được nó.

Ẩn một lỗi công thức không nhất quán với lỗi bỏ qua
Ẩn tất cả các lỗi công thức không nhất quán trong lựa chọn bằng mã VBA

Ẩn một lỗi công thức không nhất quán với lỗi bỏ qua

Bạn có thể ẩn một lỗi công thức không nhất quán mỗi lần bằng cách bỏ qua lỗi trong Excel. Hãy làm như sau.

1. Chọn ô chứa chỉ báo lỗi bạn muốn ẩn, sau đó nhấp vào nút hiển thị bên cạnh phòng giam. Xem ảnh chụp màn hình:

2. Lựa chọn Bỏ qua lỗi từ danh sách thả xuống như ảnh chụp màn hình bên dưới.

Sau đó, chỉ báo lỗi sẽ được ẩn ngay lập tức.

Ẩn tất cả các lỗi công thức không nhất quán trong lựa chọn bằng mã VBA

Phương pháp VBA sau đây có thể giúp bạn ẩn tất cả các lỗi công thức không nhất quán trong một lựa chọn trong trang tính của bạn. Hãy làm như sau.

1. Trong trang tính, bạn cần ẩn tất cả các lỗi công thức không nhất quán, hãy nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp vào Chèn > Mô-đun, sau đó sao chép và dán mã VBA vào cửa sổ Mã.

Mã VBA: Ẩn tất cả các lỗi công thức không nhất quán trong trang tính

Sub HideInconsistentFormulaError()
    Dim xRg As Range, xCell As Range
    Dim xError As Byte
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the range:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Errors(xlInconsistentFormula).Value Then
            xCell.Errors(xlInconsistentFormula).Ignore = True
        End If
    Next
End Sub

3. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật lên Kutools cho Excel hộp thoại, vui lòng chọn phạm vi bạn cần để ẩn tất cả các lỗi công thức không nhất quán, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Sau đó, tất cả các lỗi công thức không nhất quán sẽ bị ẩn ngay lập tức khỏi phạm vi đã chọn. Xem ảnh chụp màn hình:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (7)
No ratings yet. Be the first to rate!
speedy
speedy
This comment was minimized by the moderator on the site
Hello Crystal,

thank you very much for the code, its working now :)


Greets

speedy
Reply
0
0
speedy
speedy
This comment was minimized by the moderator on the site
Hello Crystal,

thank you for your testing time.

Do you use a basic old school (user formatted table) only or is it a table with a excel design and filter function in column head ?
Like shown here:
https://support.microsoft.com/de-de/office/%C3%BCbersicht-zu-excel-tabellen-7ab0bb7d-3a9e-4b56-a3c9-6c94334e492c

Latest is what I am using.

I can´t share my "programm" - its a financial tool for personal use.
The cells are with this content:
=HYPERLINK("https://www.domain.de/abc.html";"www")

Because each row has a another link, I´m getting the inconsistent errors.
I can hide it manually, but not with VBA.

I don´t know if your vba just works for a few seconds and then the errors appear again.
Reply
0
0
crystal
crystal     speedy
This comment was minimized by the moderator on the site
Hi speedy,
Many thanks for your feedback. The original code did not take into account the Table format data. The code has been updated as follows, please give it a try.

Sub HideInconsistentFormulaError()
'Updated by Extendoffice 20220902
    Dim xRg As Range, xCell As Range
    Dim xError As Byte
    On Error Resume Next
   Set xRg = Application.InputBox("Please select the range:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Errors(xlEmptyCellReferences).Value Then
            xCell.Errors(xlEmptyCellReferences).Ignore = True
        ElseIf xCell.Errors(xlEvaluateToError).Value Then
            xCell.Errors(xlEvaluateToError).Ignore = True
        ElseIf xCell.Errors(xlInconsistentFormula).Value Then
            xCell.Errors(xlInconsistentFormula).Ignore = True
        ElseIf xCell.Errors(xlInconsistentListFormula).Value Then
            xCell.Errors(xlInconsistentListFormula).Ignore = True
        ElseIf xCell.Errors(xlListDataValidation).Value Then
           xCell.Errors(xlListDataValidation).Ignore = True
        ElseIf xCell.Errors(xlNumberAsText).Value Then
            xCell.Errors(xlNumberAsText).Ignore = True
        ElseIf xCell.Errors(xlOmittedCells).Value Then
            xCell.Errors(xlOmittedCells).Ignore = True
        ElseIf xCell.Errors(xlTextDate).Value Then
            xCell.Errors(xlTextDate).Ignore = True
        ElseIf xCell.Errors(xlUnlockedFormulaCells).Value Then
            xCell.Errors(xlUnlockedFormulaCells).Ignore = True
        End If
    Next
End Sub
Reply
Report
0
0
speedy
speedy
This comment was minimized by the moderator on the site
Hello Crystal,

The newest Excel 365 Version 2207 (Build 15427.20210)
Reply
0
0
crystal
crystal     speedy
This comment was minimized by the moderator on the site
Hi speedy,
I have tested the code in the same version (2207 (Build 15425.20210)) and it stil works.
Can you upload a sample file of your data here?
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/365_version.png
Reply
Report
0
0
speedy
speedy
This comment was minimized by the moderator on the site
Hello,

thank you for sharing your solution, but its not working in newest Excel 365
No VBA-Errors, but Excel still shows the inconsistent errors
Reply
0
0
crystal
crystal     speedy
This comment was minimized by the moderator on the site
Hi speedy,
Can you tell me the version of your Excel 365 you have?
I have tested the code in Excel 365 and it works well. so the problem cannot be reproduced.
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations