extragere caractere si cifre dintr-o celula

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
cosmind
Mesaje: 1
Membru din: Mie Iul 18, 2012 3:32 pm

Re: extragere caractere si cifre dintr-o celula

Mesaj de cosmind » Mie Iul 18, 2012 3:37 pm

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 , )

Catalin B.
Moderator
Moderator
Mesaje: 813
Membru din: Vin Sep 09, 2011 4:05 pm
Localitate: Iaşi

Re: extragere caractere si cifre dintr-o celula

Mesaj de Catalin B. » Vin Iul 20, 2012 8:33 am

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...

Catalin B.
Moderator
Moderator
Mesaje: 813
Membru din: Vin Sep 09, 2011 4:05 pm
Localitate: Iaşi

Re: extragere caractere si cifre dintr-o celula

Mesaj de Catalin B. » Vin Iul 20, 2012 9:32 am

Cam asa ar trebui sa arate functia :

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
Evident ca aici nu mai poate fi vorba de numere negative sau zecimale, rezultatul functiei fiind in format text.
Probleme să fie, că soluţii se găsesc...

Închis

Înapoi la “Intrebari despre Excel 2003”