MS Excel

Dobrý den,
chtěl bych poprosit o radu v Excelu VBA.
WorksheetFunction.SumIfs
ve funkci sumifs potřebuji použít jako kritérium pole.
bohužel mi to moc nejde.
Přiklad:
aryHodnoty(0) = "kolo"
aryHodnoty(1) = "moto"
aryHodnoty(2) = "auto"
....

WorksheetFunction.SumIfs(Range("A1:A20"),Range("B1:B20"),aryHodnoty(),Range("C1:C20"),datum)

Děkuji moc

Zaslat odpověď >

marjankaj(4.4.2015 1:09)#024388

Kritériom môže byť iba hodnota, nie pole.
WorksheetFunction.SumIfs(Range("A1:A20"),Range("B1:B20"),aryHodnoty(0),Range("C1:C20"),datum)citovat

elninoslov(4.4.2015 8:59)#024389

Vytvoril som ti vlastnú funkciu SUMIFS v makre, ktorá funguje tak ako chceš. A funguje aj v makre, aj v zošite.

Příloha: rar

24389_vlastnafnsumifs.rar (14kB, staženo 26x)

citovat

Zbrojar(4.4.2015 14:44)#024393

Naprostá bomba!
Jsi borec.
děkuji moc!!citovat

Zbrojar(4.4.2015 14:51)#024394

Mohl bych ještě dotaz, potřeboval bych překopírovat oblast buněk nějak naformátovaných, ale ne stylem .copy a .Paste, ale nahrát si oblast do paměti a pak ji podle potřeby vkládat i s formáty kam je potřeba.
Děkuji moccitovat

elninoslov(4.4.2015 21:35)#024400

Možno exituje možnosť vytvoriť a spravovať Objekty Cells či Listy len v pamäti, ale to mi nič nehovorí. Tak ma napadá len použiť kópiu na skrytom liste.

Funkcia CopyRng skopíruje zvolenú Range na skrytý list, kde môže byť upravená a následne použitá.
Skopíruje sa:
-umiestnenie
-hodnoty
-vzorce
-formátovanie bunky
-formátovanie textu
-podmienené formátovanie
-šírka stĺpcov

Ak je treba kopírovať aj výšku riadku, to treba urobiť cez cyklus po jednom.

Inak neviem pomôcť s týmto druhým problémom.

Příloha: rar