< návrat zpět

MS Excel


Téma: Zaokrouhlit buňky makrem rss

Zaslal/a 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 #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
#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
#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
#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 #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
#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 #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
#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

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Podmínka pro spuštění makra

elninoslov • 19.3. 9:19

duplicity

elninoslov • 19.3. 9:13

Podmínka pro spuštění makra

MilanKop • 18.3. 18:51

Podmínka pro spuštění makra

Stalker • 18.3. 18:34

duplicity

fortes • 18.3. 17:48

Podmínka pro spuštění makra

MilanKop • 18.3. 17:31

spojení vzorců v PQ

elninoslov • 18.3. 15:13