< návrat zpět

MS Excel


Téma: Vyhledání hodnot rss

Zaslal/a 22.9.2009 12:04

Mám dotaz k vyhledávání hodnot v tabulce.
Mám tabulku, kdy ve sloupci A je datum s časem ( např. 18.01.1999 01:00:00 , po minutách pro celý rok) a ve sloupci B je číslo.
Potřebuji vyhledat vždy max hodnotu ve sloupci B, ale vždy jen v intervalu oblasti jednoho dne.
Jde o to, že vedle výše uvedené tabulky chci udělat novou , kde ve sloupci A budou už jen dny a vedle nich ve sloupci B max hodnoty v tom dnu zjištěné z první tabulky.

Zaslat odpověď >

#000753
Jeza.m
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

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

Prirazeni OnClick makra CommandButtonu pres VBA

Tex • 3.10. 1:57

Automatické dosazení KDYŽ

marjankaj • 2.10. 22:22

Automatické dosazení KDYŽ

PavelJ • 2.10. 21:54

Automatické dosazení KDYŽ

elninoslov • 2.10. 20:21

Automatické dosazení KDYŽ

PavelJ • 2.10. 19:55

Automatické dosazení KDYŽ

Stalker • 2.10. 19:23

Automatické dosazení KDYŽ

PavelJ • 2.10. 18:22