< návrat zpět
MS Excel
Téma: Vzorec
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 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 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 Pak to lze např takto:
ČísloBezMezer = Application.WorksheetFunction.Substitute(ČísloSMezerami, " ", "")citovat
felli(22.10.2010 19:30)#002854 popripade nejako makro na soucet hodnot od 5 do 500 radku.
Diky
citovat
krapl(22.10.2010 20:31)#002855 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 Š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