Як приховати певні значення помилок в Excel?

Припустімо, на аркуші Excel є значення помилок, які не потрібно виправляти, а потрібно приховати. Щоб вирішити проблему, про яку ми говорили як приховати всі значення помилок в Excel, а що, якщо ви хочете приховати лише певні значення помилок? У цьому підручнику ми покажемо вам, як виконати цю роботу трьома способами.

Приховайте кілька конкретних значень помилок, зробивши текст білим за допомогою VBA

Ми створили два коди VBA, щоб допомогти вам швидко приховати кілька значень конкретних помилок у вибраному діапазоні або на кількох аркушах, змінивши колір шрифту вказаних помилок на білий. Виконайте наведені нижче дії та запустіть код відповідно до ваших потреб.

1. У програмі Excel натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі. Потім скопіюйте один із наведених нижче кодів VBA до Модулі вікна.

Код VBA 1: приховати кілька конкретних значень помилок у вибраному діапазоні

'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

Примітка: У фрагменті xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") в 12 ряду слід замінити "#DIV/0!", "#N/A", "#NAME?" з фактичними помилками, які ви хочете приховати, не забудьте взяти кожне значення подвійними лапками та розділити їх комами.

Код VBA 2: приховати кілька значень певних помилок на кількох аркушах

Sub HideSpecificErrors_WorkSheets()
'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and hide the errors. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

3. прес F5 щоб запустити код VBA. Примітка: Якщо ви використовували Код VBA 1, з’явиться діалогове вікно з проханням вибрати діапазон, у якому потрібно знайти та видалити значення помилок. Ви також можете клацнути вкладку аркуша, щоб вибрати весь аркуш.

4. З’явиться діалогове вікно, як показано нижче, із повідомленням про те, що вказані значення помилок приховано. Натисніть OK щоб закрити діалогове вікно.

5. Зазначені значення помилок були відразу приховані.

Замініть певні значення помилок іншими значеннями за допомогою функції майстра помилок

Якщо ви не знайомі з кодом VBA, функція майстра помилок Kutools для Excel може допомогти вам легко знайти всі значення помилок, усі помилки #N/A або будь-які помилки, крім #N/A, і замінити їх іншими значеннями, які ви вкажете , прочитайте далі, щоб дізнатися, як виконати цю роботу.

1 На Кутулс вкладка, в Formula групу клацніть більше > Майстер стану помилок.

3. клацання Ok. Зазначені значення помилок відображаються як вибраний параметр.

Примітка: Для використання Майстер стану помилок на вашому комп’ютері має бути встановлено Kutools для Excel. Якщо у вас не встановлено Kutools, натисніть тут, щоб завантажити та встановити. Професійна надбудова Excel пропонує 30-денну безкоштовну пробну версію без обмежень.

Замініть певну помилку іншими значеннями за допомогою формули

Щоб замінити конкретне значення помилки, Excel IF, IFNA та ПОМИЛКА.ТИП функції можуть зробити вам послугу. Але спочатку ви повинні знати відповідний цифровий код кожного значення помилки.

Наприклад, у вас є таблиця зі значеннями, як показано вище. Для заміни # DIV / 0! помилка з текстовим рядком Помилка ділення на нуль, ви повинні спочатку знайти код цієї помилки, який є 2. А потім застосуйте наступну формулу до клітинки B2і перетягніть маркер заповнення вниз, щоб застосувати формулу до клітинок нижче:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Помилка ділення на нуль",A2)

Статті по темі

Найкращі інструменти продуктивності офісу

🤖	Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
	Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
	Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
	Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
	Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
	Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
	Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Детальніше ... Завантажити безкоштовно...

---

Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно...