Extragerea unui text de lungime variabila
Scris: Mar Feb 16, 2010 11:07 am
Am primit pe mesaj privat urmatoarea intrebare:
Functia creeata de noi verifica fiecare caracter de la inceput, unul cate unul si cand intalneste un caracter cifra, memoreaza pozitia lui si se opreste. Apoi returneaza primele i-1 caractere.
Exemplu de utilizare:
Nota: nu aceasta este metoda de a cere ajutor pe un forum. Daca doriti sa primiti ajutor repede si ceea ce cereti sa poata fi folosit si de altii (pentru ca aceasta este de fapt esenta unui forum), va rugam sa postati pe forum !
Problema se rezolva cu o functie VBA UDF (User Definied Function), adica o functie care se creeaza in VBA si se utilizeaza in Excel ca orice alta functie proprie Excel-ului:izolare prefix
Dată expediere: Mar Feb 16, 2010 9:38 am
Expeditor: celpisa
Destinatar: smcsa
salut,
scuze de deranj dar as avea o intrebare careia nu-i prea dau de cap....: Am pachetul: "Tvp50x50x3" ;cum pot izola literele care se afla inaintea 50x50x3 - Tvp ( subliniez faptul ca nu trebuie luat ca reper numarul de litere sau un "x" pt ca numarul de litere ce trebuie izolat poate diferi: "LT40x4" , "patrat50x50".
Acestea sunt profile si am nevoie sa creez o baza de date si trebuie sa izolez literele din prefix pt a obtine tipul de profil.
Multumesc mult si astept o solutie. Am incredere ca se va gasi o modalitate!
Cod: Selectaţi tot
Function Left_Text(Celula As Range)
For i = 1 To Len(Celula.Value)
If IsNumeric(Mid(Celula.Value, i, 1)) Then
Primele = i - 1
Exit For
End If
Next i
Left_Text = Left(Celula.Value, Primele)
End Function
Exemplu de utilizare:
Cod: Selectaţi tot
=Left_Text(A1)