VBA IFERROR - Stapsgewijze voorbeelden om IFERROR VBA-functie te gebruiken

Inhoudsopgave

IFERROR-functie in VBA

Net zoals we IFERROR in Excel gebruiken om te weten wat te doen als er een fout optreedt voor elke functie, hebben we een ingebouwde IFERROR-functie in VBA die op dezelfde manier wordt gebruikt omdat het een werkbladfunctie is, gebruiken we deze functie met het werkblad. Functie methode in VBA en vervolgens geven we de argumenten voor de functie.

IFERROR-functie in VBA

Het is een misdaad om te verwachten dat de code zonder fouten werkt. Om fouten in VBA af te handelen, hebben we verschillende manieren om instructies te gebruiken zoals On Error Resume Next VBA, On Error Resume Goto 0, On Error GoTo Label. VBA-foutbehandelaars kunnen alleen verder gaan naar de volgende regel code. Maar als de berekening niet gebeurt, moeten we de fout vervangen door een ander identiteitswoord. In dit artikel zullen we zien hoe u dit kunt bereiken door VBA IFERROR-functie in Excel te gebruiken.

Hoe IFERROR in VBA te gebruiken?

Het ding om hier te onthouden is dat het geen VBA-functie is, maar alleen een werkbladfunctie.

Neem de bovenstaande gegevens bijvoorbeeld alleen voor een demonstratie.

Stap 1: definieer de variabele als een geheel getal .

Code:

Sub Iferror_Example1 () Dim i As Integer End Sub

Stap 2: Om een berekening uit te voeren, opent u For Next Loop .

Code:

Sub Iferror_Example1 () Dim i As Integer For i = 2 to 6 Next i End Sub

Stap 3: Schrijf de code in de vorm van cellen (I, 3) .Value =

Code:

Sub Iferror_Example1 () Dim i As Integer For i = 2 to 6 Cells (i, 3). Value = Next i End Sub

Stap 4: Om toegang te krijgen tot de IFERROR-functie, kunnen we niet simpelweg de formule typen; in plaats daarvan moeten we de klasse "WorksheetFunction" gebruiken .

Code:

Sub Iferror_Example1 () Dim i As Integer For i = 2 to 6 Cells (i, 3) .Value = WorksheetFunction.If Next i End Sub

Stap 5: Zoals je kunt zien in de bovenstaande afbeelding, krijgen we na het invoegen van de opdracht "WorksheetFunction" -klasse de IFERROR-formule. Selecteer de formule.

Code:

Sub Iferror_Example1 () Dim i As Integer For i = 2 to 6 Cells (i, 3) .Value = WorksheetFunction.IfError (Next i End Sub

Stap 6: Een van de problemen in VBA bij het openen van de werkbladfuncties, krijgen we de argumenten niet te zien, zoals hoe we in het werkblad hebben gezien. U moet zeker zijn van de argumenten die we gebruiken.

Dit is de reden voordat ik je de IFERROR in VBA laat zien, ik heb je de syntaxis van de werkbladfunctie laten zien.

Het eerste argument hier is "Waarde", dwz wat is de cel die u wilt controleren? Pas hiervoor de berekening in Cel toe.

Pas nu in de VBA de onderstaande codes toe.

Code:

Sub Iferror_Example1 () Dim i As Integer For i = 2 to 6 Cells (i, 4) .Value = WorksheetFunction.IfError (Cells (i, 3) .Value, "Not Found") Volgende i End Sub

Nu controleert de IFERROR-functie op elke fout in kolom C. Als er een fout wordt gevonden, wordt het resultaat weergegeven als "Niet gevonden" in kolom D.

Op deze manier kunnen we met behulp van de IFERROR-functie de resultaten naar wens wijzigen. In dit geval heb ik het resultaat gewijzigd in 'Niet gevonden'. U kunt dit aanpassen aan uw wensen.