=ZAOKR((USUŃ.ZBĘDNE.ODSTĘPY(FRAGMENT.TEKSTU(C5,1,4))/1000),1)
| 1.4 |
1422 cm^3 |
|
| 1.0 |
999 cm^3 |
|
| 0.9 |
888 cm^3 |
|
Sprawdź jeszcze funkcję OCZYŚĆ.
Przykład:
=ZAOKR((OCZYŚĆ(FRAGMENT.TEKSTU(C5,1,4))/1000),1)
Edit:
Napisałem coś takiego:
-------------------------------------------------------------------------------------
Tej funkcji poniżej nie radzę używać, ponieważ w moim przekonaniu jest niskiej jakości. W zamian lepiej użyć funkcji, która jest na samym dole. (Moja sugestia.)
-------------------------------------------------------------------------------------
Function w_name9(arg1 As String) As String
Dim y As String, w As String, arg2 As String, flag As String, flag2 As Integer, flag3 As Boolean, flag4 As Boolean
arg2 = Trim(arg1)
flag = False
flag2 = 0
flag3 = False
flag4 = False
For i = 1 To Len(arg2) Step 1
w = Mid(arg2, i, 1)
flag3 = (w = "0" Or w = "1" Or w = "2" Or w = "3" Or w = "4" Or w = "5" Or w = "6" Or w = "7" Or w = "8" Or w = "9")
If flag3 = True Then
flag = True
End If
If flag3 = True And flag2 < 2 Then
flag4 = True
Else
flag4 = False
End If
If flag3 = False And flag = True Then
flag2 = flag2 + 1
End If
If (flag4 = True) Or (w = "." And flag = True And flag2 < 2) Then
y = y + w
End If
Next i
If Mid(y, Len(y), 1) = "." Then
y = Mid(y, 1, Len(y) - 1)
End If
w_name9 = y
End Function
Ogólnie, to nie pisałem za wiele w VBA o ile cokolwiek coś kiedyś w tym pisałem. A teraz do rzeczy ...
Ten moduł musisz zainstalować u siebie w Excelu i wtedy dopiero używać. Zasada działania (formuła jaką możesz wpisać):
=w_name9("...1422.50cm3")
Rezultatem będzie:
1422.50
, jest to taki jakby extract_number (wydobądź liczbę (z tekstu)).
Jeśli ten skrypt jakoś źle, niepoprawnie działa, nie zgodnie z zamysłem to przepisz go od nowa lub zmodyfikuj.
Linie:
22-24: jeśli w bieżącej iteracji wystąpi cyfra, to ustaw flagę flag na True
26-30: jeśli w bieżącej iteracji wystąpi cyfra i flag2 będzie mniejszy od 2, to ustaw flagę flag4 na True w przeciwnym razie ustaw tę flagę na False.
32-34: Jeśli w bieżącej iteracji nie wystąpi cyfra i flag = True, to zinkrementuj flag2 o 1.
36-38: Jeśli flag4 = True lub w bieżącej iteracji w jest kropką i flag = True i flag2 < 2, to przypisz do zmiennej y wartość jej samej oraz zmiennej w
42-44: Jeśli na końcu łańcucha znaków (string) będzie kropka to ją wyrzuć z tego łańcucha
46: Zwróć w funkcji w_name9 rezultat zapytania (formuły)
Ta wyżej przeze mnie funkcja możliwe, że nie jest zgodna z Twoim problemem. Napisałem, więc inną opartą o wyrażenia regularne, powinna być lepsza niż kod wyżej.
Function w_name5(arg1 As String) As String
arg1 = Trim(arg1)
Dim regEx As New VBScript_RegExp_55.RegExp
regEx.Pattern = "[0-9]+(\.)?[0-9]+"
If regEx.Test(arg1) Then
w_name5 = regEx.Execute(arg1)(0)
End If
End Function
Żeby móc używać tego rozszerzenia do RegEx VBA 5.5, to musisz je włączyć w TOOLS -> REFERENCES. Odszukaj Microsoft VBScript Regular Expressions 5.5 i zaznacz.
