MS Excel

Dobrý den,
dár bych požádal o radu ohledně zpracovávání funkcí. Mám MS Office 2010.

Situace:
Sloupec A řádky 3-5 mám vypsány textově funkce
SVYHLEDAT(B2;tabulka1;1;NEPRAVDA)
SVYHLEDAT(B2;tabulka1;2;NEPRAVDA)
SVYHLEDAT(B2;tabulka2;1;NEPRAVDA)

V B2 je hodnota, která se má v tabulkách hledat.

V buňce C2 mám pomocí "Ověření dat" nastaveno použítí SVYHLEDAT funkcí z buňěk A3,A4,A5.

V buňce D2 bych rád, aby proběhla funkce A3-5 dle toho, co je nastaveno v B2.

V přiloženém souboru je v modré oblasti znázorněno, jak to potřebuji a v růžové, jak to mám nyní. Vím, že by mohl někdo namítat, že tak, jak to mám v růžové oblasti je to správně, ale funkce jsou tu velmi zjednodušeny. Momentálně má funkce ZVOLIT z růžové oblasti čítá 400 argumentů (13 funkcí) a je to velmi náročné, protože tato funkce je v každé buňce tabulky 13*20 buněk. Já bych potřeboval, abych dle příkladu v modré oblasti měl vypsáno těch 13 funkcí textově v nějaké tabulce a jen dle výběru v Ověření dat by se vybrala určitá funkce, kterou by excel vykonal.

Snad jsem popsal situaci co nejlépe.

Soubor
http://ulozto.cz/xqKiv2Ks/priklad-xlsx

Děkuji za odpovědi.

S pozdravem
Mirek

Zaslat odpověď >

Strana: « předchozí 1 2 3

Opičák(7.10.2013 14:44)#015587

@ eLCHA
po studování vašeho posledního příspěvku jsem zjistil, že jste ďábel
zatím mi to hlava nebere (nevím, zda "zatím" nebude "furt")

citovat

eLCHa(7.10.2013 17:33)#015592

@AL
Já vím. A v podstatě všechny ty národy můžou jen závidět ;)

@Opičák
A co přesně nebere ;)citovat

Opičák(8.10.2013 1:51)#015595

@ eLCHa
zápis makra

citovat

eLCHa(8.10.2013 7:10)#015596

@Opičák
Aha, tohle. Tak to vás nemusí trápit. Za 10 let jsem to použil poprvé a to jen ze zvědavosti. Je opravdu málo věcí z excel4 makro, které se dají využít a nejsou ve VBA.
http://excelplus.net/news.php?readmore=90 citovat

eLCHa(11.10.2013 11:56)#015642

Tak se mi podařilo zavolat Excel4 vlastní funkci pomocí VBA
Takže i ostatní postižené národy si mohou pohodlně napsat vlastní fci ve VBA a použít pro Evaluate lokalizované názvy funkcí
Function EVALUATE_VBA(Vzorec As String)
' Makro1!EVALUATE_EXCEL4 - pouze následující 2 řádky
' =ARGUMENT("vzorec"; 2)
' =NÁVRAT(VYHODNOTIT(vzorec))

Dim vVysledek
vVysledek = Application.Run("Makro1!EVALUATE_EXCEL4", Vzorec)
'a tady si teď s proměnnou vVysledek můžeme dělat pohodlněji co chceme ;)))

EVALUATE_VBA = vVysledek
End Functioncitovat

Strana: « předchozí 1 2 3

Téma: Provedení určité funkce napsané v buňce

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje