Deze tutorial leert je hoe je de Is Numeriek en IsNummer functies in VBA om te controleren of waarden getallen zijn.
IsNumeric is een ingebouwde VBA-functie, terwijl IsNumber een Excel-functie is die kan worden aangeroepen vanuit VBA-code.
Verschil tussen IsNumber en IsNumeric in VBA
IsNumber controleert of een waarde is opgeslagen als een getal. Terwijl IsNumeric controleert of een waarde kan worden omgezet in een getal.
Als u bijvoorbeeld een lege cel als parameter doorgeeft, retourneert IsNumber FALSE, terwijl IsNumeric TRUE retourneert. Als u een cel doorgeeft met een nummer dat als tekst is opgeslagen, retourneert IsNumber FALSE en IsNumeric TRUE.
U moet aandacht besteden aan deze beperkingen van beide functies en beslissen in welke gevallen u IsNumeric beter kunt gebruiken en wanneer IsNumber.
IsNumeric gebruiken in VBA
Is Numeriek is de VBA-functie die controleert of een waarde numeriek is en als resultaat een Booleaanse TRUE of FALSE retourneert.
De functie kan een variabele of een celwaarde aannemen.
Hier is een voorbeeld van het nemen van een celwaarde:
| 12345 | Als IsNumeriek(Blad1.Bereik("A1").Waarde) = Waar DanMsgBox "De waarde in A1 is numeriek"AndersMsgBox "De waarde in A1 is niet numeriek"Stop als |
In dit voorbeeld controleren we of de waarde uit cel A1 numeriek is met behulp van de IsNumeric. Deze functie retourneert het juiste bericht, afhankelijk van het resultaat van de functie.
In het volgende voorbeeld wordt dezelfde bewerking uitgevoerd, behalve met een variabele in plaats van een celwaarde:
| 123456789 | Dim n als variantn = Blad1.Bereik("A1").WaardeAls IsNumeriek(n) = Waar DanMsgBox "De waarde in A1 is numeriek"AndersMsgBox "De waarde in A1 is niet numeriek"Stop als |
IsNumber gebruiken in VBA
IsNummer is een Excel-functie, die kan worden gebruikt in VBA. Het heeft een bijna vergelijkbare output als IsNumeric. Laten we eens kijken naar het voorbeeld van de functie IsNumber:
| 123456789 | If Application.WorksheetFunction.IsNumber(Sheet1.Range("A1").Value) = True DanMsgBox "De waarde in A1 is numeriek"AndersMsgBox "De waarde in A1 is niet numeriek"Stop als |
Zoals je aan de code kunt zien, zit het verschil in de syntaxis bij het aanroepen van de functie. Aangezien IsNumber de Excel-functie is, moeten we zetten Toepassing.WerkbladFunctie vóór de functieaanroep.
