Sempre io alle prime armi con VBA. Sto facendo un sacco di cose divertenti e mi sto gasando parecchio. Continuano però a mancarmi le basi.
Praticamente ho trovato in rete una funzione che mi estrae un numero da una stringa. Ne ho capito il funzionamento ma non riesco a capire come importare nella mia macro il risultato di tale funzione.
Praticamente io chiamo la funzione:
Call EstraiNumero(X)
dove x é la mia stringa da cui estrarre il numero.
La funzione trova il numero e ottiene un valore
ESTRAINUMERO.
Ecco il mio problema... come faccio a prendermi questo estrainumero e portarlo nella mia macro ?
Metto il codice della funzione ESTRAINUMERO:
- Codice: Seleziona tutto
Private Function IsNumber(a As String) As Boolean
If (Left(a, 1) >= "0" And Left(a, 1) <= "9") Then
IsNumber = True
Else
IsNumber = False
End If
End Function
Function EstraiNumero(s As String) As Long
Dim i As Integer
Dim n As String
Dim trovato As Boolean
trovato = False
n = ""
i = 1
While i < Len(s)
If IsNumber(Mid(s, i, 1)) And Not trovato Then
While IsNumber(Mid(s, i, 1))
n = n + Mid(s, i, 1)
i = i + 1
trovato = True
Wend
End If
i = i + 1
Wend
EstraiNumero = Val(n)
End Function