< návrat zpět
MS Excel
Téma: Vzorec ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
Zaslal/a felli 22.10.2010 15:34
Zdravim,
potreboval bych pekne prosim poradit. Mam v excelu za pomoci maker vytvorenou proceduru, ktera pracuje s cislami naimportovanymi z ucetniho programu. Z ucetniho programu se ty hodnoty naimportuji ve tvaru napr. 8 157(mezi 8 a 1 je mezera). Bohuzel s takovym cislem pak nedokaze vzorec v tabulce pracovat a musim mezeru mezi 8 a 1 smazat, aby vzorec do vypoctu zahrnul i tuto polozku.
Nevite nekdo, jak by to slo osetrit, aby se nemuseli neustale promazavat mezery v cislech?
Děkuji mnohokrat
krapl(22.10.2010 16:22)#002850 ![avatar](./pictures/avatars/no-avatar.jpg)
zkus třeba toto
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
citovat
Poki(22.10.2010 16:25)#002851![Poki](./pictures/avatars/8584.jpg)
Pokud s temito \"cisly\" pracujete jiz v nejake procedure, mela by tato procedura (pri manipulaci s temito cisly) tato \"cisla\" prevest na opravova cisla, napr. funkci cdbl(cislo)
citovat
krapl(22.10.2010 17:03)#002852 ![avatar](./pictures/avatars/no-avatar.jpg)
Pak to lze např takto:
ČísloBezMezer = Application.WorksheetFunction.Substitute(ČísloSMezerami, " ", "")citovat
felli(22.10.2010 19:30)#002854 ![avatar](./pictures/avatars/no-avatar.jpg)
popripade nejako makro na soucet hodnot od 5 do 500 radku.
Diky
citovat
krapl(22.10.2010 20:31)#002855 ![avatar](./pictures/avatars/no-avatar.jpg)
Například funkce, kde vkládám oblast, kterou chci sečíst
Public Function Součet(Oblast As Range)
Application.Volatile
Součet = 0
For Each bunka In Oblast
Součet = Součet + Application.WorksheetFunction.Substitute(bunka, " ", "")
Next bunka
End Functioncitovat
felli(26.10.2010 8:53)#002874 ![avatar](./pictures/avatars/no-avatar.jpg)
Šlo by ještě prosím, aby vzorec pracoval i s buňkami, které jsou prázdné? Nělteré buňky v oblasti jsou prádzně, vzorec pak s těmito žádnými hodnotami nedokáže pracovat.
Díky
citovat