MS Excel

Dobrý den,

budu stručný, mám v buňce A1 napsáno bez "=" jen 5+5 (formát číslo), jak dostanu hodnotu 10 v buňce A2, aniž bych do buňky A1 zasahoval?

Zaslat odpověď >

Opičák(19.4.2014 10:21)#018965

zkuste toto:
Function UseFormula2(cell)
If Trim(cell.Value) = "" Then
UseFormula2 = ""
Exit Function
ElseIf Left(cell.Value, 1) <> "" Then
UseFormula2 = Application.Evaluate(cell.Formula)
Exit Function
Else
UseFormula2 = "chyba"
End If
End Functioncitovat

marjankaj(19.4.2014 10:34)#018967

Alebo takto, pomocou pomenovaných názvov.

Příloha: zip

18967_vzorec.zip (6kB, staženo 21x)

citovat

marjankaj(19.4.2014 10:38)#018968

Prípadne takto

Příloha: zip

18968_vzorec.zip (6kB, staženo 21x)

citovat

marjankaj(22.4.2014 22:02)#019015

marjankaj napsal/a:

Alebo takto, pomocou pomenovaných názvov.Příloha: 18967_vzorec.zip

Oprava. Uložil som to bez makier

Příloha: zip

19015_vzorecs.zip (6kB, staženo 21x)

citovat

marjankaj(22.4.2014 22:04)#019016

marjankaj napsal/a:

Prípadne taktoPříloha: 18968_vzorec.zip

Oprava, detto.

Příloha: zip

19016_vzorec.zip (6kB, staženo 21x)

citovat

eLCHa(23.4.2014 7:53)#019021

@marjankaj
technická poznámka - protože se jedná o využití příkazu Excel4Macro, tak je třeba uložit soubor jako xlsm, protože obsahuje kód. Mno a když už obsahuje kód, tak je daleko praktičtější využít vlastní funkci s příkazem Evaluate.
Příkaz VYHODNOTIT (pro čechy) je využitelný pouze v případě, že chci vyhodnocovat buňky s českými názvy funkcí.

http://wall.cz/index.php?m=topic&id=15503&page=2#post-15585 citovat

marjankaj(23.4.2014 8:51)#019023

@eLCHa
Súhlasím. Vlastná funkcia je vhodnejšia. V excel2003 to bolo jedno. Všetko bolo v *.xls.citovat

Téma: Výpočet buňky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje