< návrat zpět

MS Excel

Téma: vzorec do vba rss

Zaslal/a lachatol 17.12.2012 14:50

Mohl by mi někdo napsat kod ve vba, tak aby vzorec ve sloupci L fungoval pomocí kodu? Myšleno v celém sloupci sešitu. Díky za pomoc

Příloha: 7z10678_sesit2.7z (220kB, staženo 23x)
Zaslat odpověď >
dream2003(17.12.2012 16:20)#010681
avatar
zkus za pomoci zaznamu makra tento vzorec rozkliknout a apk uz mas kod ve vba staci pak uz je rozkopirovat na danou oblast pisu z mobilu tak se na to presne nepodivamcitovat
Milan-D(18.12.2012 10:39)#010692
avatar
Postav se do bunky s tim vzorcem. Ve VBA prohlizeci (Alt+F11) v okamzitem okne (immediate) zadej:
? activecell.FormulaR1C1
a zmackni enter
dostanes vysledek:
=IFERROR(IF(RC[-2]="n","",(VLOOKUP(MID(RC[-9],1,FIND(" ",RC[-9],1)-1),Ceny,3,FALSE)))*RC[-5],"")

Pokud tedy budes chtit tento vzorec kodem nekam zadat, tak to bude vypadat treba takhle:
Range("L3:L50").FormulaR1C1 =
pricemz tam uvedes ten vzorec v uvozovkach

V tvem specialnim pripade se nachazeji uvozovky i uprostred vzorce. Tak aby to fungovalo, tak ty vnitrni uvozovky budes muset zdvojitcitovat
lachatol(18.12.2012 14:29)#010699
avatar
nějak se mi to nevede udělat...citovat
dream2003(18.12.2012 15:38)#010700
avatar
tak jsem se na o podíval a vysledek je toto
ActiveCell.FormulaR1C1 = _
"=_xlfn.IFERROR(IF(RC[-2]=""n"","""",(VLOOKUP(MID(RC[-9],1,FIND("" "",RC[-9],1)-1),Ceny,3,FALSE)))*RC[-5],"""")"citovat
lachatol(19.12.2012 10:50)#010718
avatar
tohle jsem taky udělal, ale nevim jak to aplikovat v tom excelu, aby to fungovalocitovat
icon AL(19.12.2012 13:13)#010724
avatar
jednoducho, napíšeš:

range("K5:K20").FormulaR1C1="=_xlfn.IFERROR(IF(RC[-2]=""n"","""",(VLOOKUP(MID(RC[-9],1,FIND("" "",RC[-9],1)-1),Ceny,3,FALSE)))*RC[-5],"""")"

uvedené Ti do oblasti buniek K5:K20 vpíše ten vzorec
Tak si zmeň adresu oblasti na tú, ktorú potrebuješ.

Mimochodom, opakujem to, či Ti písal už Milan..citovat
lachatol(21.12.2012 10:52)#010764
avatar
kdyby mi to někdo vložil do toho excelu, moc by mi to pomohlo, pořád mi to nefunguje, nevím jak....citovat
Milan-D(21.12.2012 11:15)#010765
avatar
Tak jakou mas verzi excelu?
Mohl bys popsat, CO konkretne nejede a prilozit soubor se screeshotami?
Zkus se taky vzit do nasi situace. Vyjadrujes se jak zenska, ktera pote co ji ukradli auto, tak hlasi ze ji nefunguje dalkove ovladani.citovat
lachatol(21.12.2012 11:45)#010766
avatar
nahoře je příloha, chtěl jsem do ní vložit ten kód nic víc nic míň.... na tom neni vůbec nic nepochopytelného, netřeba se k tomu nijak jinak vyjadřovat.......,ale jestli s tím je pro někoho problé, nemusí se o to vůbec zajímatcitovat
dream2003(21.12.2012 14:56)#010768
avatar
myslim ze rad jak to udelat jsi dostal vice nez dost aby se resini mohlo uplatnit pochop ze lidd co ti tu radi to delaji zadarmo a kricet stale me to nejde umi kazdy trochu snahy do toho by chtelo dodatcitovat

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

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

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:49

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 10:47

Relativní cesta - zdroje Power Query

Alfan • 25.4. 10:40