Hoe specifieke foutwaarden in Excel te verbergen?

Stel dat er foutwaarden in uw Excel-werkblad staan ​​die u niet hoeft te corrigeren maar te verbergen. Om het probleem aan te pakken, hebben we het gehad over: hoe alle foutwaarden in Excel te verbergen, wat nu als u alleen specifieke foutwaarden wilt verbergen? In deze zelfstudie laten we u hieronder zien hoe u deze klus op drie manieren kunt klaren.

Verberg meerdere specifieke foutwaarden door de tekst wit te maken met VBA

We hebben twee VBA-codes gemaakt om u te helpen meerdere specifieke foutwaarden in het geselecteerde bereik of in meerdere werkbladen snel te verbergen door de letterkleur van de opgegeven fouten wit te maken. Volg de onderstaande stappen en voer de code uit volgens uw behoeften.

1. Druk in uw Excel op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module. Kopieer vervolgens een van de volgende VBA-codes naar de Module venster.

VBA-code 1: verberg meerdere specifieke foutwaarden in het geselecteerde bereik

'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

Opmerking: In het fragment xArrFinStr = Array ("#DIV/0!", "#N/A", "#NAAM?") in de 12e rij, moet u vervangen "#DIV/0!", "#N/A", "#NAAM?" met de feitelijke fouten die u wilt verbergen, vergeet dan niet om elke waarde tussen dubbele aanhalingstekens te plaatsen en ze te scheiden met komma's.

VBA-code 2: verberg meerdere specifieke foutwaarden over meerdere bladen

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. druk op F5 om de VBA-code uit te voeren. Opmerking: Als je de VBA-code 1, verschijnt er een dialoogvenster waarin u wordt gevraagd het bereik te selecteren waar u foutwaarden wilt zoeken en verwijderen. U kunt ook op een bladtab klikken om het hele blad te selecteren.

4. Het onderstaande dialoogvenster verschijnt met de mededeling dat de opgegeven foutwaarden verborgen waren. Klik OK om het dialoogvenster te sluiten.

5. De opgegeven foutwaarden zijn in één keer verborgen.

Vervang specifieke foutwaarden door andere waarden met de functie Error Condition Wizard

Als u niet bekend bent met VBA-code, Kutools for Excel's Error Condition Wizard functie kan u helpen om eenvoudig alle foutwaarden, alle #N / ​​A-fouten of fouten behalve #N / ​​A te vinden en deze te vervangen door andere waarden die u opgeeft , lees dan verder om erachter te komen hoe u deze klus kunt klaren.

1. Op de Kutools tab, in de Formule groep, klik Meer > Foutconditie-wizard.

3. klikken Ok. De opgegeven foutwaarden worden weergegeven als de optie die u hebt geselecteerd.

Opmerking: Om het gebruik Foutconditie-wizard functie, moet u Kutools for Excel op uw computer hebben geïnstalleerd. Als u Kutools niet hebt geïnstalleerd, klik hier om te downloaden en te installeren. De professionele Excel-invoegtoepassing biedt een gratis proefperiode van 30 dagen zonder beperkingen.

Vervang een specifieke fout door andere waarden met een formule

Om een ​​specifieke foutwaarde te vervangen, gebruikt Excel's IF, IFNA en FOUT.TYPE functies kunnen u een plezier doen. Maar eerst moet u de bijbehorende cijfercode van elke foutwaarde kennen.

U hebt bijvoorbeeld een tabel met waarden zoals hierboven weergegeven. Ter vervanging van de # DIV / 0! fout met de tekststring Delen door nul fout, moet u eerst de code van deze fout vinden, namelijk: 2. En pas dan de volgende formule toe in de cel: B2en sleep de vulgreep naar beneden om de formule toe te passen op onderstaande cellen:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Delen door nul fout",A2)

Gerelateerde artikelen

Beste Office-productiviteitstools

🤖	Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
	Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
	Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
	Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
	Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
	Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
	Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Lees verder... Gratis download...

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download...