< návrat zpět

MS Excel


Téma: vzorec do vba rss

Zaslal/a 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ěď >

#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
#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
#010699
avatar
nějak se mi to nevede udělat...citovat
#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
#010718
avatar
tohle jsem taky udělal, ale nevim jak to aplikovat v tom excelu, aby to fungovalocitovat
icon #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
#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
#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
#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
#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

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.

On-line nástroje