¿Cómo ocultar valores de error específicos en Excel?

Supongamos que hay valores de error en tu hoja de cálculo de Excel que no necesitas corregir, sino simplemente ocultar. Ya hemos hablado sobre cómo ocultar todos los valores de error en Excel; pero, ¿qué pasa si solo quieres ocultar valores de error específicos? En este tutorial, te mostraremos cómo hacerlo utilizando tres métodos diferentes.

Ocultar múltiples valores de error específicos cambiando el texto a blanco con VBA

Hemos creado dos códigos VBA para ayudarte a ocultar múltiples valores de error específicos en el rango seleccionado o en varias hojas de cálculo rápidamente, cambiando el color de fuente de los errores especificados a blanco. Por favor, sigue los pasos a continuación y ejecuta el código según tus necesidades.

1. En tu Excel, presiona las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. Haz clic en "Insertar" > "Módulo". Luego copia cualquiera de los siguientes códigos VBA en la ventana "Módulo".

Código VBA 1: Ocultar múltiples valores de error específicos en el rango seleccionado

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

Nota: En el fragmento "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")" en la fila 12, debes reemplazar "#DIV/0!", "#N/A", "#NAME?" por los errores reales que deseas ocultar. Recuerda encerrar cada valor entre comillas dobles y separarlos con comas.

Código VBA 2: Ocultar múltiples valores de error específicos en varias hojas

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. Presiona "F5" para ejecutar el código VBA.

4. Aparecerá el cuadro de diálogo mostrado a continuación indicándote que los valores de error especificados han sido ocultados. Haz clic en "Aceptar" para cerrar el cuadro de diálogo.

5. Los valores de error especificados se han ocultado de inmediato.

Reemplazar valores de error específicos con otros valores usando la función Asistente de formato de condición de error

Si no estás familiarizado con el código VBA, la función "Asistente de formato de condición de error" de Kutools para Excel podría ayudarte a encontrar fácilmente todos los valores de error, todos los errores #N/A, o cualquier error excepto #N/A, y reemplazarlos con otros valores que especifiques. Sigue leyendo para descubrir cómo realizar esta tarea.

1. En la pestaña "Kutools", en el grupo "Fórmula", haz clic en "Más" > "Asistente de formato de condición de error".

3. Haz clic en "Aceptar". Los valores de error especificados se muestran como la opción que seleccionaste.

Reemplazar un error específico con otros valores mediante una fórmula

Para reemplazar un valor de error específico, las funciones IF, IFNA y ERROR.TYPE de Excel pueden ayudarte. Pero primero, debes conocer el código numérico correspondiente a cada valor de error.

Por ejemplo, tienes una tabla con valores como se muestra arriba. Para reemplazar el error "#DIV/0!" con la cadena de texto "Error de división por cero", primero debes encontrar el código de este error, que es "2". Luego aplica la siguiente fórmula en la celda "B2" y arrastra el controlador de relleno hacia abajo para aplicar la fórmula a las celdas inferiores:

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

Artículos relacionados