MS Excel

Téma: Zaokrouhlit buňky makrem

Zaslal/a Kadel 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.

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

Poki(29.6.2012 12:22)#008943

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 Subcitovat

Kadel(29.6.2012 12:38)#008944

Funguje, bohužel mi to osekalo číslo 125,5555 na 25,56

Zkusím si s tím pohrát a děkuji.citovat

Kadel(29.6.2012 12:40)#008945

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

Kadel(29.6.2012 12:49)#008946

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

Poki(29.6.2012 12:53)#008947

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

Kadel(29.6.2012 12:58)#008948

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

Poki(29.6.2012 13:13)#008949

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 Subcitovat

Kadel(29.6.2012 14:11)#008950

Zrovna dneska jsem koukal tady na fóru na to "has.formula". Jen mě to trknout

Díky za pomoc.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.