OT: excel help

[Topybear]

>
>regen volt egy val(str) fuggveny - nincs ilyen az xl-ben ?
>
>bye
>dexter


Nem lesz neki jó, mert ha szöveggel kezdõdik, 
akkor nulla lesz az érték. Írni kell egy 
függvényt, ami végigmegy a stringen és csak a szémokat hagyja meg.
Excel nincs a közelemben, de valahogy így:

function CsakSzamMarad(Feldolgozando as string) as string
dim Coun as integer
   for Coun=1 to len(Feldolgozando)
     if mid(Feldolgozando,Coun,1)>="0" and mid(Feldolgozando,Coun,1)<="9"  then
       CsakSzamMarad = CsakSzamMarad & mid(Feldolgozando,Coun,1)
     end if
   next
end function

Ez csak a számokat hagyja meg. Az az eset okozhat 
problémát, ha vegyesen van szám és betû, pl: "123 
ALMA 456", de arról nem szólt az írás, hogy ilyen 
esetekben "123", "456" vagy "123456" kell legyen az eredmény.

Üdv

Topy


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.375 / Virus Database: 267.15.11/264 - Release Date: 2/17/2006