Como ocultar valores de erro específicos no Excel?

Digamos que existem valores de erro em sua planilha do Excel que você não precisa corrigir, mas sim ocultar. Para resolver o problema, já falamos sobre como ocultar todos os valores de erro no Excel; agora, e se você quiser ocultar apenas valores de erro específicos? Neste tutorial, mostraremos como realizar essa tarefa de três maneiras diferentes abaixo.

Ocultar vários valores de erro específicos alterando a cor do texto para branco com VBA

Criamos dois códigos VBA para ajudá-lo a ocultar vários valores de erro específicos no intervalo selecionado ou em várias planilhas rapidamente, alterando a cor da fonte dos erros especificados para branco. Por favor, siga as etapas abaixo e execute o código de acordo com suas necessidades.

1. No seu Excel, pressione as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo". Em seguida, copie qualquer um dos seguintes códigos VBA para a janela "Módulo".

Código VBA 1: Ocultar vários valores de erro específicos no intervalo selecionado

Sub HideSpecificErrors_SelectedRange()
  '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

Observação: No trecho "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")" na linha 12, você deve substituir "#DIV/0!", "#N/A", "#NAME?" pelos erros reais que deseja ocultar, lembre-se de colocar cada valor entre aspas duplas e separá-los com vírgulas.

Código VBA 2: Ocultar vários valores de erro específicos em várias planilhas

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. Pressione "F5" para executar o código VBA.

4. A caixa de diálogo mostrada abaixo aparece informando que os valores de erro especificados foram ocultados. Clique em "OK" para fechar a caixa de diálogo.

5. Os valores de erro especificados foram ocultados de uma vez.

Substituir valores de erro específicos por outros valores com o recurso Assistente de Formatação de Condição de Erro

Se você não está familiarizado com o código VBA, o recurso "Assistente de Formatação de Condição de Erro" do Kutools para Excel pode ajudá-lo a encontrar facilmente todos os valores de erro, todos os erros #N/D, ou qualquer erro exceto #N/D, e substituí-los por outros valores que você especificar; continue lendo para descobrir como realizar essa tarefa.

1. Na aba "Kutools", no grupo "Fórmula", clique em "Mais" > "Assistente de Formatação de Condição de Erro".

3. Clique em "Ok". Os valores de erro especificados são exibidos conforme a opção que você selecionou.

Substituir um erro específico por outros valores com uma fórmula

Para substituir um valor de erro específico, as funções IF, IFNA e ERROR.TYPE do Excel podem ajudá-lo. Mas primeiro, você deve saber o código numérico correspondente a cada valor de erro.

Por exemplo, você tem uma tabela com valores conforme mostrado acima. Para substituir o erro "#DIV/0!" pela sequência de texto "Erro de Divisão por Zero", você deve primeiro encontrar o código desse erro, que é "2". E então aplicar a seguinte fórmula na célula "B2" e arrastar a alça de preenchimento para baixo para aplicar a fórmula às células abaixo:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Divide By Zero Error",A2)

Artigos relacionados