UDF pour extraire uniquement Nombre
UDF pour extraire uniquement le nombre d’une cellule en utilisant VBA dans Microsoft Excel
Dans cet article, nous allons apprendre à utiliser le code VBA pour extraire le numéro uniquement d’une cellule avec la fonction définie par l’utilisateur.
Question): J’ai besoin d’une macro pour récupérer le numéro uniquement à partir d’une cellule contenant des données alphanumériques.
Voici un instantané des données dans lesquelles la colonne A contient des données alphanumériques et les nombres attendus sont dans la colonne B
Afin d’obtenir uniquement les nombres de la colonne A; nous devons suivre les étapes ci-dessous pour lancer l’éditeur VB Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic
Copiez le code ci-dessous dans le module standard
Fonction NumericOnly (mystr As Variant)
Dim myOutput As String, i As Integer
For i = 1 To Len (mystr)
If IsNumeric (Mid (mystr, i, 1)) Then _
myOutput = myOutput & Mid (mystr, i, 1)
Suivant
NumericOnly = myOutput * 1
Fonction de fin
===
-
Pour obtenir la sortie dans la cellule B2, la formule est
* = NumericOnly (A2)
===
===
De cette façon, nous pouvons récupérer des nombres uniquement à partir d’une cellule contenant du texte et des nombres, en utilisant le code VBA.
