< 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

VBA - nastveni oddelovace pri importu .csv

Pavlus • 22.11. 12:01

Kopírování buněk A9:F108 ze souboru do souboru

AL • 22.11. 2:44

zaklikávací filtr

AL • 22.11. 1:18

VBA adresář a uložení

kp57 • 21.11. 18:38

VBA adresář a uložení

€Ł мσşqμΐτσ • 21.11. 17:09

VBA adresář a uložení

Risty • 21.11. 16:22

zaklikávací filtr

monsterm • 21.11. 15:37