< 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

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

nezavre samo outlock

€Ł мσşqμΐτσ • 24.7. 9:01

kopirovanie s predosleho mesiaca

€Ł мσşqμΐτσ • 24.7. 8:49

automaticky generator VBA

Michalko • 23.7. 20:32

kopirovanie s predosleho mesiaca

ivana1 • 23.7. 19:25

nezavre samo outlock

peter2 • 23.7. 18:59

upozornění na již existující soubor

Kalous • 23.7. 17:41

Porovnání dat a doplnění.

lachis • 23.7. 12:39