No není to jen tak, funkce MAXIF neexistuje, ikdyž je fakt, že když existuje funkce SUMIF, že by mohli udělat i MAXIF :-).
Takže nezbývá než se spolehnout na makro.
Za předpokladu, že na listu 1 bude 150 záznamů, ve sloupci A bude datum, ve sloupci B hodnota a na listu 2 ve sloupci A jedinečné datum (získání jedinečných hodnot ve článku třídění dat, s tím že si do nějakého provizorního sloupce listu 1 dáte pouze datum ze sloupce A a na tomto provizorním sloupci provedete jedinečný výběr), v mém příkladě 50 jedinečných záznamů (smyčka lze udělat i tak aby jela řádek po řádku a nejen v předdefinovaném tozmezí).
Tak a pokud je toto splněno tak stačí spustit makro :-)
Dim datummax As Date
Dim max As Single
For i = 1 To 50
datummax = List2.Cells(i, 1) + 1
For i2 = 1 To 150
If List1.Cells(i2, 1) >= List2.Cells(i, 1) And List1.Cells(i2, 1) <= datummax Then If List1.Cells(i2, 2) > max Then max = List1.Cells(i2, 2)
Next
Cells(i, 2) = max
max = 0
Next
M@citovat
Takže nezbývá než se spolehnout na makro.
Za předpokladu, že na listu 1 bude 150 záznamů, ve sloupci A bude datum, ve sloupci B hodnota a na listu 2 ve sloupci A jedinečné datum (získání jedinečných hodnot ve článku třídění dat, s tím že si do nějakého provizorního sloupce listu 1 dáte pouze datum ze sloupce A a na tomto provizorním sloupci provedete jedinečný výběr), v mém příkladě 50 jedinečných záznamů (smyčka lze udělat i tak aby jela řádek po řádku a nejen v předdefinovaném tozmezí).
Tak a pokud je toto splněno tak stačí spustit makro :-)
Dim datummax As Date
Dim max As Single
For i = 1 To 50
datummax = List2.Cells(i, 1) + 1
For i2 = 1 To 150
If List1.Cells(i2, 1) >= List2.Cells(i, 1) And List1.Cells(i2, 1) <= datummax Then If List1.Cells(i2, 2) > max Then max = List1.Cells(i2, 2)
Next
Cells(i, 2) = max
max = 0
Next
M@citovat
\n
RSS nejnovější články