extragere caractere si cifre dintr-o celula
Re: extragere caractere si cifre dintr-o celula
Functioneaza perfect !
O intrebare: se pot delimita cumva cifrele extrase?
De exemplu daca am sirul ab12cer45asdas98 sa-mi extraga ceva de genul: 12,45,98 ( sau alt delimitator in loc de , )
O intrebare: se pot delimita cumva cifrele extrase?
De exemplu daca am sirul ab12cer45asdas98 sa-mi extraga ceva de genul: 12,45,98 ( sau alt delimitator in loc de , )
-
- Moderator
- Mesaje: 813
- Membru din: Vin Sep 09, 2011 4:05 pm
- Localitate: Iaşi
Re: extragere caractere si cifre dintr-o celula
Functia returneaza rezultatul sub forma unui numar intreg sau zecimal, pozitiv sau negativ, ce poate fi utilizat in alte calcule. Separarea cu delimitator a grupurilor de cifre din text va avea ca rezultat un alt sir recunoscut de excel ca TEXT si nu ca format numeric, care va contine doar cifre. Se poate face, dar nu cu aceasta functie.
Probleme să fie, că soluţii se găsesc...
-
- Moderator
- Mesaje: 813
- Membru din: Vin Sep 09, 2011 4:05 pm
- Localitate: Iaşi
Re: extragere caractere si cifre dintr-o celula
Cam asa ar trebui sa arate functia :
Evident ca aici nu mai poate fi vorba de numere negative sau zecimale, rezultatul functiei fiind in format text.
Cod: Selectaţi tot
Function ExtrageNumarCuSep(rCell As String)
Dim i As Integer
Dim vVal, lNum, NextChr As String
lNum = ""
For i = 1 To Len(rCell)
vVal = Mid(rCell, i, 1)
NextChr = Mid(rCell, i + 1, 1)
If IsNumeric(vVal) Then
lNum = lNum & Mid(rCell, i, 1)
End If
If IsNumeric(vVal) And IsNumeric(NextChr) = False And i + 1 < Len(rCell) Then
lNum = lNum & "," 'Alege aici caracterul pentru separator
End If
Next i
ExtrageNumarCuSep = lNum
End Function
Probleme să fie, că soluţii se găsesc...