Spisie treści
Wyodrębnij liczbową część ciągu
Poniższa funkcja wyodrębni część liczbową z ciągu:
Funkcja Extract_Number_from_Text(Phrase As String) As Double Dim Length_of_String As Integer Dim Obecna_Pos As Integer Dim Temp As String Length_of_String = Len(Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid(Fraza, Bieżąca_Poz, 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(Phrase, Current_Pos, 1))) = True Wtedy Temp = Temp i Mid(Fraza, Current_Pos, 1) End If Następna Aktualna_Pos If Len(Temp) = 0 Then Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl(Temp) End If Koniec funkcji
Na przykład:
Extract_Number_from_Text(“uuigguo 995”) zwróci 995
Extract_Number_from_Text(“uuigguo 0.12995”) zwróci 0.12995
Extract_Number_from_Text(“yu000.000456”) zwróci 0,000456
=Extract_Number_from_Text(„juii-0009.9987iihiii”) zwróci -0,9987
Jeśli w wyrażeniu nie ma liczby, zwracane jest zero.
Aby pobrać plik .XLSM z tego artykułu, kliknij tutaj.
