Extrageți porțiunea numerică a șirului
Următoarea funcție va extrage porțiunea numerică dintr-un șir:
Funcția Extract_Number_from_Text (Expresie ca șir) Ca dim. ") Atunci Temp = Temp & Mid (Frază, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) =". ") Then Temp = Temp & Mid (Frază, Current_Pos, 1) End If If (IsNumeric (Mid (Phrase, Current_Pos, 1))) = True Then Temp = Temp & Mid (Phrase, Current_Pos, 1) End If Next Current_Pos If Len (Temp) = 0 Then Extract_Number_from_Text = 0 Altă Extract_Number_from_Text = CDbl (Temp) End If Funcția de sfârșit
Deci, de exemplu:
Extract_Number_from_Text („uuigguo 995”) va returna 995
Extract_Number_from_Text („uuigguo 0.12995”) va returna 0.12995
Extract_Number_from_Text („yu00.000456”) va returna 0.000456
= Extract_Number_from_Text („juii-0009.9987iihiii”) va returna -0.9987
Dacă nu există un număr în expresie, atunci se returnează un zero.
Pentru a descărca fișierul .XLSM din acest articol, faceți clic aici.
