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 nepodivam
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: vzorec do vba
MS Excel
Téma: vzorec do vba 
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: 
10678_sesit2.7z (220kB, staženo 23x)
10678_sesit2.7z (220kB, staženo 23x)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 zdvojit
? 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 zdvojit
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],"""")"
ActiveCell.FormulaR1C1 = _
"=_xlfn.IFERROR(IF(RC[-2]=""n"","""",(VLOOKUP(MID(RC[-9],1,FIND("" "",RC[-9],1)-1),Ceny,3,FALSE)))*RC[-5],"""")"
tohle jsem taky udělal, ale nevim jak to aplikovat v tom excelu, aby to fungovalo
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..
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..
kdyby mi to někdo vložil do toho excelu, moc by mi to pomohlo, pořád mi to nefunguje, nevím jak....
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.
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.
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ímat
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 dodat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články