< návrat zpět

MS Excel

Téma: kumulativní součet rss

Zaslal/a vlada01 27.10.2013 23:29

Dobrý den,
mám tabulku s datem začátku práce, počtem pracovníků a datem koncem práce.
Start Zam End
1.1 2 26.2
6.1 8 8.1
12.1 4 19.2
2.2 3 26.2

Potřeboval bych automaticky generovat tabulku kde se při zahájení práce přičítají zaměstnanci a při konci práce se zase odečtou.

Datum SumZam
1.1 2
6.1 10
8.1 2
12.1 6
2.2 9
19.2 5
26.2 3
26.2 0

Zatím to dělám ručně zkopírováním tabulky a setříděním podle data.
Jde to vyřešit pomocí vzorců, nebo se musí napsat makro?

Dík

Zaslat odpověď >
Palooo(28.10.2013 13:09)#015928
avatar
lepsia by bola priloha :)

takto neviem ci chcete menit povodne data alebo doplnat nove datacitovat
Opičák(28.10.2013 13:59)#015930
Opičák
@Palooo
je to takto:
1.1.X odejdou na práci 2 lidi až do 26.2.X
6.1.X odejdou na práci 8 lidí až do 8.1.X
k 6.1.X má tedy 10 lidí někde na práci
ale 8.1.X se mu vrací 8
takže 8.1. jsou venku 2
12.1. odejdou 4 = venku je 6
atd.citovat
Palooo(28.10.2013 14:15)#015931
avatar
aha uz tomu rozumiem .) to pojde len makromcitovat
Palooo(28.10.2013 15:03)#015934
avatar
neviem ci to je spravne ale otestuj toto makro:
Příloha: zip15934_test.zip (14kB, staženo 21x)
citovat
vlada01(28.10.2013 15:33)#015935
avatar
Díky, to je ono,
jen bych potřeboval tu výslednou tabulku ještě setřídit vzestupně podle data, ale to můžu udělat rukama.
Díkcitovat
Opičák(28.10.2013 19:03)#015939
Opičák
Jde to i bez makra, s jakýmsi "grafickým" zobrazením (List2) a několika vzorci.
edit: zkoušel jsem to jen výpočty, ale pohořel jsem na stejných datumech. Určitě to řešitelné je.
eLCHa to dá 1 1
@Palooo - super
edit:
řadit není třeba ručně u Palooova kodu.
Mezi poslední NEXT a END SUB můžeš vložit kod pro řazení dle data.
např:
shName = ActiveSheet.Name
Range("A1:B" & Z).Select
ActiveWorkbook.Worksheets(shName).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(shName).Sort.SortFields.Add Key:=Range("A1:A" & Z), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(shName).Sort
.SetRange Range("A1:B" & Z)
.Apply
End With
Range("A1").Select
Příloha: zip15939_pocet-lidi3.zip (254kB, staženo 15x)
citovat

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