Sommario
Estrai parte numerica della stringa
La seguente funzione estrarrà la parte numerica da una stringa:
Funzione Extract_Number_from_Text(Phrase As String) As Double Dim Length_of_String As Integer Dim Current_Pos As Integer Dim Temp As String Length_of_String = Len(Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid(Phrase, Current_Pos, 1) = "- ") Then Temp = Temp & Mid(Phrase, Current_Pos, 1) End If (Mid(Phrase, Current_Pos, 1) = ".") Then Temp = Temp & Mid(Phrase, Current_Pos, 1) End If (IsNumeric (Mid(Frase, Current_Pos, 1))) = True Then Temp = Temp & Mid(Frase, Current_Pos, 1) End If Next Current_Pos If Len(Temp) = 0 Then Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl(Temp) End If Fine funzione
Quindi ad esempio:
Extract_Number_from_Text(“uuigguo 995”) restituirà 995
Extract_Number_from_Text ("uuigguo 0.12995") restituirà 0.12995
Extract_Number_from_Text ("yu00.000456") restituirà 0.000456
=Estrai_Numero_da_Testo(“juii-0009.9987iihiii”) restituirà -0,9987
Se non è presente alcun numero nella frase, viene restituito uno zero.
Per scaricare il file .XLSM da questo articolo, fare clic qui.
