UDF om alleen nummer uit een cel te extraheren met VBA in Microsoft Excel
In dit artikel zullen we leren hoe we VBA-code kunnen gebruiken om alleen getallen te extraheren uit een cel met de door de gebruiker gedefinieerde functie.
Vraag): Ik heb een macro nodig om het nummer alleen op te halen uit een cel die alfanumerieke gegevens bevat.
Hieronder volgt een momentopname van de gegevens waarin kolom A alfanumerieke gegevens bevat en de verwachte getallen staan in kolom B
Om alleen de nummers uit kolom A te krijgen; we moeten de onderstaande stappen volgen om VB-editor te starten
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
Kopieer onderstaande code in de Standaard module
Functie NumericOnly(mystr As Variant)
Dim myOutput As String, i As Integer
Voor i = 1 Naar Len (mystr)
If IsNumeric(Mid(mystr, i, 1)) Dan _
mijnUitvoer = mijnUitvoer & Midden(mijnstr, i, 1)
Volgende
NumericOnly = myOutput * 1
Functie beëindigen
- Om de uitvoer in cel B2 te krijgen, is de formule:
- =Alleen Numeriek(A2)
Op deze manier kunnen we alleen getallen ophalen uit een cel die tekst en getallen bevat, met behulp van VBA-code.
Download - UDF om alleen nummer uit een cel te extraheren met VBA - xlsm