Como ocultar valores de erro específicos no Excel?

Digamos que há valores de erro em sua planilha do Excel que você não precisa corrigir, mas ocultar. Para resolver o problema, 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 fazer esse trabalho de três maneiras abaixo.

Oculte vários valores de erro específicos tornando o texto branco com o 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, tornando a cor da fonte dos erros especificados em branco. Por favor, siga os passos abaixo e execute o código de acordo com suas necessidades.

1. Em seu Excel, pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo. Em seguida, copie um dos seguintes códigos VBA para o Módulo janela.

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

'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", "#NOME?") na 12ª linha, você deve substituir "#DIV/0!", "#N/A", "#NOME?" com os erros reais que você 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. Observação: Se você usou o Código VBA 1, uma caixa de diálogo aparecerá solicitando que você selecione o intervalo onde localizar e excluir valores de erro. Você também pode clicar em uma guia de planilha para selecionar a planilha inteira.

4. A caixa de diálogo mostrada abaixo aparece informando que os valores de erro especificados estavam ocultos. Clique OK para fechar a caixa de diálogo.

5. Os valores de erro especificados foram ocultados imediatamente.

Substitua valores de erro específicos por outros valores com o recurso Error Condition Wizard

Se você não estiver familiarizado com o código VBA, o recurso Assistente de condição de erro do Kutools for Excel pode ajudá-lo a encontrar facilmente todos os valores de erro, todos os erros #N/A ou quaisquer erros, exceto #N/A, e substituí-los por outros valores que você especificar , continue lendo para descobrir como realizar esse trabalho.

1. No Kutools guia, no Fórmula grupo, clique em Mais > Assistente de condição de erro.

3. Clique Ok. Os valores de erro especificados são exibidos como a opção selecionada.

Observação: Para usar o Assistente de condição de erro recurso, você deve ter o Kutools for Excel instalado em seu computador. Se você não possui o Kutools instalado, clique aqui para baixar e instalar. O suplemento profissional do Excel oferece uma avaliação gratuita de 30 dias sem limitações.

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

Para substituir um valor de erro específico, o Excel IF, IFNA e TIPO DE ERRO funções podem lhe fazer um favor. Mas primeiro, você deve saber o código numérico correspondente a cada valor de erro.

Por exemplo, você tem uma tabela com valores como mostrado acima. Para substituir o # DIV / 0! erro com a string de texto Erro de divisão por zero, você deve primeiro encontrar o código desse erro, que é 2. E, em seguida, aplique a seguinte fórmula na célula B2e arraste a alça de preenchimento para baixo para aplicar a fórmula às células abaixo:

=SE(IFNA(ERRO.TIPO(A2),A2)=2,"Erro de divisão por zero",A2)

Artigos relacionados

Melhores ferramentas de produtividade de escritório

🤖	Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
	Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
	Super pesquisa: VLookup de múltiplos critérios  |   VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
	Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
	Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
	Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula   |  Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células   |  Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
	15 principais conjuntos de ferramentas:  12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Leia mais... Download grátis...

---

Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Download grátis...