Как скрыть определенные значения ошибок в 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!", "#Н/Д", "#ИМЯ?") в 12-м ряду следует заменить "#DIV/0!", "#Н/Д", "#ИМЯ?" с фактическими ошибками, которые вы хотите скрыть, не забудьте заключить каждое значение в двойные кавычки и разделить их запятыми.
Код 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
- Во фрагменте xArr = Массив ("Лист1", "Лист2") в 15-м ряду следует заменить "Лист1", "Лист2" с фактическими названиями листов, где вы хотите скрыть ошибки. Не забудьте заключить каждое имя листа в двойные кавычки и разделить их запятыми.
- Во фрагменте xArrFinStr = Array("#DIV/0!", "#Н/Д", "#ИМЯ?") в 16-м ряду следует заменить "#DIV/0!", "#Н/Д", "#ИМЯ?" с фактической ошибкой, которую вы хотите скрыть, не забудьте заключить каждую ошибку в двойные кавычки и разделить их запятыми.
3. Нажмите F5 для запуска кода VBA. Примечание: Если вы использовали Код VBA 1, появится диалоговое окно с предложением выбрать диапазон, в котором следует найти и удалить значения ошибок. Вы также можете щелкнуть вкладку листа, чтобы выбрать весь лист.
4. Появится диалоговое окно, показанное ниже, с сообщением о том, что указанные значения ошибок были скрыты. Нажмите OK для закрытия диалога.
5. Указанные значения ошибок сразу скрыты.
Замените определенные значения ошибок другими значениями с помощью функции «Мастер условий ошибки».
Если вы не знакомы с кодом VBA, функция Kutools for Excel's Error Condition Wizard может помочь вам легко найти все значения ошибок, все ошибки #N/A или любые ошибки, кроме #N/A, и заменить их другими значениями, которые вы укажете , пожалуйста, прочитайте дальше, чтобы узнать, как выполнить эту работу.
1. На Кутулс в Формула группу, нажмите Больше > Мастер условий ошибки.
- В Диапазон нажмите кнопку выбора диапазона справа, чтобы указать диапазон, содержащий ошибки, которые нужно скрыть. Примечание: Для поиска по всему листу щелкните вкладку листа.
- В Типы ошибок укажите, какие значения ошибок нужно скрыть.
- В Отображение ошибки раздел, выберите способ, которым вы хотите заменить ошибки.
3. Нажмите Ok. Указанные значения ошибок отображаются в качестве выбранной вами опции.
Примечание: Для использования Мастер условий ошибки функция, на вашем компьютере должен быть установлен Kutools for Excel. Если у вас не установлен Kutools, нажмите здесь, чтобы скачать и установить. Профессиональная надстройка Excel предлагает 30-дневную бесплатную пробную версию без ограничений.
Замените конкретную ошибку другими значениями с помощью формулы
Чтобы заменить конкретное значение ошибки, Excel IF, ИФНАкачества ERROR.TYPE функции могут сделать вам одолжение. Но сначала вы должны знать соответствующий числовой код каждого значения ошибки.
# Ошибка | Формула | Returns |
#НОЛЬ! | = ERROR.TYPE (# ПУСТО!) | 1 |
# DIV / 0! | = ERROR.TYPE (# DIV / 0!) | 2 |
#СТОИМОСТЬ! | = ТИП ОШИБКИ (# ЗНАЧ!) | 3 |
#REF! | = ERROR.TYPE (#REF!) | 4 |
# ИМЯ? | = ERROR.TYPE (# ИМЯ?) | 5 |
#NUM! | = ТИП ОШИБКИ (# ЧИСЛО!) | 6 |
# N / A | = ERROR.TYPE (# НЕТ) | 7 |
# ПОЛУЧЕНИЕ_ДАННЫХ | = ERROR.TYPE (#GETTING_DATA) | 8 |
#ПРОЛИВАТЬ! | =ОШИБКА.ТИП(#РАЗБИВКА!) | 9 |
#НЕИЗВЕСТНЫЙ! | =ОШИБКА.ТИП(#НЕИЗВЕСТНО!) | 12 |
#ПОЛЕ! | =ОШИБКА.ТИП(#ПОЛЕ!) | 13 |
#РАССЧЕТ! | =ОШИБКА.ТИП(#РАССЧ!) | 14 |
Что-нибудь еще | = ERROR.TYPE (123) | # N / A |
Например, у вас есть таблица со значениями, как показано выше. Чтобы заменить # DIV / 0! ошибка с текстовой строкой Деление на нулевую ошибку, вы должны сначала найти код этой ошибки, который 2. А затем примените следующую формулу в ячейке B2и перетащите маркер заполнения вниз, чтобы применить формулу к ячейкам ниже:
=ЕСЛИ(IFNA(ERROR.TYPE(A2),A2)=2,"Ошибка деления на ноль",A2)
- В формуле можно заменить код ошибки 2 коду, соответствующему другому значению ошибки.
- В формуле можно заменить текстовую строку "Делить на ноль ошибка" в другое текстовое сообщение или "" если вы хотите заменить ошибку пустой ячейкой.
Статьи по теме
Как скрыть все значения ошибок в Excel?
Когда вы работаете с листом Excel, иногда вы можете обнаружить некоторые значения ошибок, такие как # DIV / 0, #REF, # N / A и т. Д., Они вызваны ошибкой формул. Теперь вы хотите скрыть все эти значения ошибок на листе, как вы могли бы быстро и легко решить эту задачу в Excel?
Как изменить #DIV/0! Ошибка в читаемом сообщении в Excel?
Иногда, когда мы используем формулу для расчета в Excel, отображаются некоторые сообщения об ошибках. Например, в этой формуле = A1 / B1, если B1 пуст или содержит 0, формула отобразит ошибку # DIV / 0. Есть ли способ сделать эти сообщения об ошибках легко читаемыми или, если вы хотите использовать другие сообщения для замены ошибок, что делать?
Как избежать ошибки #Ref при удалении строк в Excel?
Пока вы относите ячейку к другой ячейке, в ячейке будет отображаться ошибка #REF, если ссылочная строка была удалена, как показано ниже. Теперь я расскажу, как избежать ошибки #ref и автоматически ссылаться на следующую ячейку при удалении строки.
Как выделить все ячейки с ошибками в Excel?
Если вы создаете формулы на своем листе, неизбежно появятся некоторые значения ошибок. Можете ли вы сразу выделить все эти ячейки, которые содержат значения ошибок на вашем листе? Утилита условного форматирования в Excel может помочь вам решить эту проблему.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!