< návrat zpět

MS Excel


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

Zaslal/a 3.10.2013 10:48

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
#015587
Opičák
@ 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") 7 7 7 7citovat
icon #015592
eLCHa
@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
#015595
Opičák
@ eLCHa
zápis makra 6 7 8citovat
icon #015596
eLCHa
@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=90citovat
icon #015642
eLCHa
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 Function
citovat

Strana:  « předchozí  1 2 3

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

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21