{"id":4394,"date":"2023-07-11T11:24:11","date_gmt":"2023-07-11T11:24:11","guid":{"rendered":"https:\/\/statorials.org\/nl\/vba-is-numeriek\/"},"modified":"2023-07-11T11:24:11","modified_gmt":"2023-07-11T11:24:11","slug":"vba-is-numeriek","status":"publish","type":"post","link":"https:\/\/statorials.org\/nl\/vba-is-numeriek\/","title":{"rendered":"Vba: isnumeric gebruiken om te controleren of cel een getal is"},"content":{"rendered":"

<\/p>\n

\n

U kunt de functie IsNumeric<\/b> in VBA gebruiken om te controleren of een bepaalde cel een getal is.<\/span><\/p>\n

Deze functie retourneert True<\/strong> als de waarde van een bepaalde cel als een getal wordt herkend.<\/span><\/p>\n

Anders retourneert de functie False<\/strong> .<\/span><\/p>\n

Hier is een gebruikelijke manier om deze functie in de praktijk te gebruiken:<\/span><\/p>\n

 SubCheckNumeric<\/span> ()\n    \n    Dim<\/span> i As<\/span> Integer\n\n    For<\/span> i = 1 To<\/span> 9\n    \n        If<\/span> IsNumeric(Range(\" A<\/span> \" & i)) = True Then<\/span>\n            Range(\" B<\/span> \" & i) = \" Numeric Value<\/span> \"\n        Else<\/span>\n            Range(\" B<\/span> \" & i) = \" Not a Numeric Value<\/span> \"\n        End If<\/span>\n    Next<\/span> i\n    \nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n
 Deze specifieke macro controleert of elke cel in het bereik A1:A9<\/strong> een getal is.<\/span><\/p>\n
 Als een cel een getal is, wordt „Numerieke waarde“ geretourneerd in de overeenkomstige cel in het bereik B1:B9<\/strong> .<\/span><\/p>\n
 Als een cel geen getal is, wordt in plaats daarvan ‚Geen numerieke waarde‘ geretourneerd.<\/span><\/p>\n
 Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.<\/span><\/p>\n
 Voorbeeld: IsNumeric gebruiken in VBA<\/strong><\/span><\/h2>\n
 Stel dat we de volgende kolom met waarden in Excel hebben:<\/span> <\/p>\n
\"\"<\/p>\n
 Stel dat we willen controleren of elke cel in kolom A een getal is.<\/span><\/p>\n
 We kunnen hiervoor de volgende macro maken:<\/span><\/p>\n
 SubCheckNumeric<\/span> ()\n    \n    Dim<\/span> i As<\/span> Integer\n\n    For<\/span> i = 1 To<\/span> 9\n    \n        If<\/span> IsNumeric(Range(\" A<\/span> \" & i)) = True Then<\/span>\n            Range(\" B<\/span> \" & i) = \" Numeric Value<\/span> \"\n        Else<\/span>\n            Range(\" B<\/span> \" & i) = \" Not a Numeric Value<\/span> \"\n        End If<\/span>\n    Next<\/span> i\n    \nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n
\"VBA<\/p>\n
 Kolom B geeft een resultaat weer dat ons vertelt of elke overeenkomende cel in kolom A al dan niet als een getal wordt herkend.<\/span><\/p>\n
 Hier zijn enkele interessante dingen om op te merken in het resultaat:<\/span><\/p>\n