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
- In het fragment xArr = Array ("Blad1", "Blad2") in de 15e rij, moet u vervangen "Blad1", "Blad2" met de werkelijke namen van de bladen waar u de fouten wilt verbergen. Vergeet niet om elke bladnaam te omsluiten met dubbele aanhalingstekens en te scheiden met komma's.
- In het fragment xArrFinStr = Array ("#DIV/0!", "#N/A", "#NAAM?") in de 16e rij, moet u vervangen "#DIV/0!", "#N/A", "#NAAM?" met de feitelijke fout die u wilt verbergen, vergeet niet om elke fout tussen dubbele aanhalingstekens te plaatsen en ze te scheiden met komma's.
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.
- In het RANGE klik op de bereikselectieknop aan de rechterkant om het bereik op te geven dat fouten bevat om te verbergen. Opmerking: Om in het hele blad te zoeken, klikt u op de bladtab.
- In het Fouttypes sectie, specificeer welke foutwaarden moeten worden verborgen.
- In het Foutweergave sectie, kies een manier waarop u de fouten wilt vervangen.
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.
# Fout | Formule | Retourneren |
#NUL! | = FOUT.TYPE (#NULL!) | 1 |
# DIV / 0! | = ERROR.TYPE (# DIV / 0!) | 2 |
#WAARDE! | = FOUT.TYPE (#WAARDE!) | 3 |
#REF! | = FOUT.TYPE (#REF!) | 4 |
#NAME? | = ERROR.TYPE (#NAAM?) | 5 |
#GETAL! | = FOUT.TYPE (#GETAL!) | 6 |
# N / A | = FOUT.TYPE (# N / A) | 7 |
#GETTING_DATA | = ERROR.TYPE (#GETTING_DATA) | 8 |
#SPIL! | =FOUT.TYPE(#MORSEN!) | 9 |
#ONBEKEND! | =FOUT.TYPE(#ONBEKEND!) | 12 |
#VELD! | =FOUT.TYPE(#FIELD!) | 13 |
#CALC! | =FOUT.TYPE(#CALC!) | 14 |
Nog iets anders | = FOUT.TYPE (123) | # N / A |
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)
- In de formule kunt u de foutcode vervangen 2 naar de code die overeenkomt met een andere foutwaarde.
- In de formule kunt u de tekenreeks vervangen "Delen door nul fout" naar een ander sms-bericht, of "" als u de fout wilt vervangen door een lege cel.
Gerelateerde artikelen
Hoe alle foutwaarden in Excel te verbergen?
Wanneer u aan een Excel-werkblad werkt, ziet u soms dat er enkele foutwaarden zijn, zoals # DIV / 0, #REF, # N / A enzovoort, die worden veroorzaakt door de formulesfout. Nu wilt u al deze foutwaarden in het werkblad verbergen, hoe kunt u deze taak snel en gemakkelijk in Excel oplossen?
Hoe #DIV/0 te veranderen! Fout bij het leesbare bericht in Excel?
Soms, wanneer we de formule gebruiken om in Excel te berekenen, worden enkele foutmeldingen weergegeven. In deze formule = A1 / B1, als B1 leeg is of 0 bevat, geeft de formule een # DIV / 0-fout weer. Is er een manier om die foutmeldingen duidelijk leesbaar te maken of wat moet u doen als u andere berichten wilt gebruiken om de fouten te vervangen?
Hoe #Ref-fout vermijden tijdens het verwijderen van de rijen in Excel?
Terwijl u een cel naar een andere cel verwijst, geeft de cel een #REF-fout weer als de referentierij is verwijderd zoals onderstaand screenshot. Nu zal ik het hebben over het vermijden van #ref-fout en automatisch naar de volgende cel verwijzen tijdens het verwijderen van de rij.
Hoe alle foutcellen in Excel te markeren?
Als u formules in uw werkblad maakt, is het onvermijdelijk dat er enkele foutwaarden verschijnen. Kun je al deze cellen die de foutwaarden bevatten in één keer markeren in je werkblad? Het hulpprogramma Voorwaardelijke opmaak in Excel kan u helpen dit probleem op te lossen.
Beste Office-productiviteitstools
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...
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!