Asi jsem na to přišel :)
Range("W3").ActiveCell.FormulaR1C1 = "=SUMIFS(C[-1],C[-7],""<""&R[-2]C[-22])"
citovat
Range("W3").ActiveCell.FormulaR1C1 = "=SUMIFS(C[-1],C[-7],""<""&R[-2]C[-22])"
citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: SUMIFS
MS Excel
Téma: SUMIFS 
Zaslal/a Raders486 16.3.2017 10:33
Ahoj, mohl by mi prosím někdo pomoci upravit tento zápis.
Děkuji
Range("W3").Formula = SUMIFS(V3:V2000;P3:P3000;"<"&A1)
Chtěl bych sečíst všechny hodnoty ve sloupci "V" pokud je datum ve sloupci "P" menší než datum v buňce "A1".
Pokud by to bylo potřeba dodám sešit.
Děkuji
Předpokládám, že chceš do té buňky vložit přes VBA vzorec.
P.
Např.:
Range("W3").FormulaLocal = "=SUMIFS(V3:V2000;P3:P3000;""<""&A1)"citovat
P.
Např.:
Range("W3").FormulaLocal = "=SUMIFS(V3:V2000;P3:P3000;""<""&A1)"citovat
Ahoj, děkuji za reakci.
Jak jsem psal výše již jsem na to přišel, jen jsem to musel trochu upravit viz níže. Jinak ano, pochopil jsi to správně, potřeboval jsem zadat vzorec pomoci VBA.
Range("W3").FormulaR1C1 = "=SUMIFS(C[-1],C[-7],""<""&R[-2]C[-22])"
Range("X3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("Y3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("Z3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("AA3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("AB3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("AC3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Děkuji za ochotu.citovat
Jak jsem psal výše již jsem na to přišel, jen jsem to musel trochu upravit viz níže. Jinak ano, pochopil jsi to správně, potřeboval jsem zadat vzorec pomoci VBA.
Range("W3").FormulaR1C1 = "=SUMIFS(C[-1],C[-7],""<""&R[-2]C[-22])"
Range("X3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("Y3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("Z3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("AA3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("AB3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Range("AC3").FormulaR1C1 = "=SUMIFS('20850'!C22,'20850'!C16,"">=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7,'20850'!C16,""<=""&DATE(YEAR(R1C1),1,-2)-WEEKDAY(DATE(YEAR(R1C1),1,3))+R2C*7+6)"
Děkuji za ochotu.citovat
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