Come nascondere valori di errore specifici in Excel?

Supponiamo che ci siano valori di errore nel tuo foglio di lavoro Excel che non hai bisogno di correggere, ma semplicemente nascondere. Per risolvere il problema, abbiamo già discusso come nascondere tutti i valori di errore in Excel; ora, cosa fare se vuoi nascondere solo alcuni valori di errore specifici? In questo tutorial, ti mostreremo come eseguire questa operazione in tre modi diversi.

Nascondere più valori di errore specifici rendendo il testo bianco con VBA

Abbiamo creato due codici VBA per aiutarti a nascondere rapidamente più valori di errore specifici nell'intervallo selezionato o su più fogli di lavoro cambiando il colore del carattere degli errori specificati in bianco. Segui i passaggi seguenti ed esegui il codice in base alle tue esigenze.

1. Nella tua versione di Excel, premi i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

2. Clicca su "Inserisci" > "Modulo". Quindi copia uno dei seguenti codici VBA nella finestra "Modulo".

Codice VBA 1: Nascondere più valori di errore specifici nell'intervallo selezionato

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: Nel frammento "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")" alla riga 12, dovresti sostituire "#DIV/0!", "#N/A", "#NAME?" con gli errori effettivi che desideri nascondere, ricordandoti di racchiudere ogni valore tra virgolette doppie e separarli con virgole.

Codice VBA 2: Nascondere più valori di errore specifici su più fogli

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. Premi "F5" per eseguire il codice VBA.

4. Apparirà la finestra di dialogo mostrata sotto, informandoti che i valori di errore specificati sono stati nascosti. Clicca "OK" per chiudere la finestra.

5. I valori di errore specificati sono stati nascosti immediatamente.

Sostituire valori di errore specifici con altri valori utilizzando la funzione Wizard Formato Condizione di Errore

Se non sei familiare con il codice VBA, la funzione "Wizard Formato Condizione di Errore" di Kutools per Excel potrebbe aiutarti a trovare facilmente tutti i valori di errore, tutti gli errori #N/D, o qualsiasi errore tranne #N/D, e sostituirli con altri valori specificati. Continua a leggere per scoprire come eseguire questa operazione.

1. Nella scheda "Kutools", nel gruppo "Formula", clicca su "Altro" > "Wizard Formato Condizione di Errore".

3. Clicca "Ok". I valori di errore specificati vengono visualizzati secondo l'opzione selezionata.

Sostituire un errore specifico con altri valori tramite una formula

Per sostituire un valore di errore specifico, le funzioni IF, IFNA e ERROR.TYPE di Excel possono esserti d'aiuto. Ma prima, devi conoscere il codice numerico corrispondente a ciascun valore di errore.

Ad esempio, hai una tabella con valori come mostrato sopra. Per sostituire l'errore "#DIV/0!" con la stringa di testo "Errore Divisione Per Zero", devi prima trovare il codice di questo errore, che è "2". Dopodiché, applica la seguente formula nella cella "B2" e trascina la maniglia di riempimento verso il basso per applicare la formula alle celle sottostanti:

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

Articoli correlati