Как да скрия конкретни стойности на грешка в Excel?

Да приемем, че във вашия работен лист в Excel има стойности за грешка, които не е необходимо да коригирате, а да скриете. За да се справим с проблема, за който говорихме как да скриете всички стойности за грешки в Excel, сега, какво ще стане, ако искате да скриете само конкретни стойности на грешка? В този урок ще ви покажем как да свършите тази работа по три начина по-долу.

Скрийте множество специфични стойности за грешка, като превърнете текста в бял с VBA

Създадохме два VBA кода, за да ви помогнем бързо да скриете множество специфични стойности на грешки в избрания диапазон или в множество работни листове, като промените цвета на шрифта на посочените грешки в бяло. Моля, следвайте стъпките по-долу и стартирайте кода според вашите нужди.

1. Във вашия Excel натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. кликване Поставете > Модули. След това копирайте някой от следните 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. Посочените стойности за грешка са били скрити веднага.

Заменете конкретни стойности за грешка с други стойности с функцията Error Condition Wizard

Ако не сте запознати с VBA кода, Kutools за Excel's Съветник за състояние на грешка функция може да ви помогне лесно да намерите всички стойности на грешката, всички #N/A грешки или всякакви грешки с изключение на #N/A и да ги замените с други стойности, които посочите , моля, прочетете нататък, за да разберете как да свършите тази работа.

1. На Kutools в раздела Формула група, щракнете върху Повече > Съветник за състояние на грешка.

3. кликване Ok. Посочените стойности за грешка се показват като избраната от вас опция.

Забележка: За да използвате Съветник за състояние на грешка функция, трябва да имате Kutools за Excel инсталиран на вашия компютър. Ако нямате инсталиран Kutools, щракнете тук, за да изтеглите и инсталирате. Професионалната добавка за Excel предлага 30-дневен безплатен пробен период без ограничения.

Заменете конкретна грешка с други стойности с формула

За да замените конкретна стойност на грешка, тази на Excel IF, IFNA, и ГРЕШКА.ТИП функциите могат да ви направят услуга. Но първо трябва да знаете съответния цифров код на всяка стойност на грешка.

Например, имате таблица със стойности, както е показано по-горе. За замяна на #DIV/0! грешка с текстовия низ Грешка при деление на нула, първо трябва да намерите кода на тази грешка, който е 2. И след това приложете следната формула в клетката B2и плъзнете манипулатора за попълване надолу, за да приложите формулата към клетките по-долу:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Грешка при деление на нула",A2)

Свързани статии

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Прочети повече ... Безплатно сваляне...

---

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Безплатно сваляне...