< návrat zpět

MS Excel


Téma: Zaokrouhlit buňky makrem rss

Zaslal/a icon 29.6.2012 11:56

Dobré poledne.

Potřeboval bych u výběru buněk provést zaokrouhlení na dvě desetinná místa pomocí makra.
Ideálně, aby to vzalo hodnotu (vzorec) v buňce a vložilo do funkce "=zaokrouhit(hodnota/vzorec;2)". Pokud to nepůjde, aby zůstaly zachovány i původní vzorce, tak alespoň vzít výběr buněk a zaokrouhlit na dvě desetinná místa tak, že v buňce místo vzorce bude pouze hodnota.
Děkuji mnohokrát.

stop Uzamčeno - nelze přidávat nové příspěvky.

icon icon#008943
Poki
co takto:
Sub Zaokrouhlit_vzorce()
For Each Bunka In Selection
Vzorec = Bunka.Formula
Bunka.Formula = "=round(" & Right(Bunka.Formula, Len(Bunka.Formula) - 1) & ",2)"
Next Bunka
End Sub
citovat
icon#008944
avatar
Funguje, bohužel mi to osekalo číslo 125,5555 na 25,56 3
Zkusím si s tím pohrát a děkuji.citovat
icon#008945
avatar
Ta "-1" plní jakou funkci? Bude mít její smazání nějaký vliv na funkci kromě té, že to nebude ořezávat číslo?citovat
icon#008946
avatar
Takže, pokud těch 125,5555 zadám jako hodnotu, tak se mi to ořízne a zůstane pouze 25,56. Ovšem když to zadám vzorcem (např. 100+25,5555), tak se to chová regulérně.citovat
icon icon#008947
Poki
no, pokud nemate ve vsech bunkach vzorce (jak jste psal), tak to cislo bude osekle.
Jde o to, ze ta '-1' odebere rovnítko z toho vzorce, co by v bunce melo byt...

takze pokud mate ve vyberu bunky se vzorci i prostou hodnotou, tak musi kod vypadat jinak...citovat
icon#008948
avatar
V tom případě bude lepší, aby to fungovalo pro oba případy. Ve výběru se mohou vyskytnou buňky se vzorcem i prosté hodnoty.
Mohl byste to upravit, aby to fungovalo správně?
Děkuji.citovat
icon icon#008949
Poki
zadna velka zmena:
Sub Zaokrouhlit_vzorce()
Dim Bunka As Range
For Each Bunka In Selection
If Bunka.HasFormula = True Then
Bunka.Formula = "=round(" & Right(Bunka.Formula, Len(Bunka.Formula) - 1) & ",2)"
Else
Bunka.Formula = "=round(" & Right(Bunka.Formula, Len(Bunka.Formula)) & ",2)"
End If
Next Bunka
End Sub
citovat
icon#008950
avatar
Zrovna dneska jsem koukal tady na fóru na to "has.formula". Jen mě to trknout 3
Díky za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Novinky

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

excel dodací list

Pavlus • 20.9. 12:48

excel dodací list

tom8562 • 20.9. 7:50

Docházka

Opičák • 19.9. 14:54

Export do TXT

Milan-D • 19.9. 11:23

Export do TXT

Palooo • 19.9. 10:57

Export do TXT

Milan-D • 19.9. 9:28

Export do TXT

Hav-Ran • 19.9. 4:23