MS Excel

Ano vypadá to dobře.
Jen bych celou funkci trošku optimalizoval, protože při procházení uváděných 3000 hodnot bude zpomalovat provedení, obzvláště pokud bude použita 4x. Jen by to chtělo dávat kód do BBCode CODE.

@marjankaj:
jasně , nezkoumám proč a nač to bude dobré... Obě řešení jsou podle požadavků, jedno "nafoukne" sešit, druhé zpomaluje... Záleží na tazateli co si vždy vybere.citovat

@eLCHa
Nehľadá najväčší počet nekladných čísel, ale naväčší počet záporných čísel.
Zadanie je vcelku jasné, ale ten nadpis snáď mal dať aj do textu. Človek keď číta text, tak mu ten nadpis akosi unikne.
Neskúšal som to makro a ani sa nechystám skúšať. Ak by som sa mal tým zaoberať podrobne, tak by som rád vedel, k čomu je to všetko dobré. Možno by potom bolo aj iné riešenie.citovat

Souhlasím s eLCHa s upřesněným zadáním, jen doplním, že tazatel nehledá nejen největší počet, ale současně nejnižší součet. Tedy ze zadání řady pak musí vyjít největší záporný výsledek pro stejný počet po sobě jdoucích nekladných hodnot.
Což vyplývá z příkladu tazatele:
Výsledok je: Max Počet mínusových hodnôt po sebe je: 3
Ja chcem, ale aby aj tieto bunky sčítalo. Čo už sa mi nepodarilo nájsť, ani som sám na to neprišiel. Výsledok je : -6
Nejen v řadě má uvedeno 3x -1, ale také 3x -2.

Srozumitelné zadání = srozumitelné a přesné řešení.
Což v tomto případě bohužel neplatí.

Pokud to tazateli nebude vyhovovat, stačí si upravit funkci podle potřeby.
Souhlasím, že jsem ve funkci udělal chybu. Jsem trubka , ale zpátky do školy kvůli tomu nepůjdu... citovat

Pekný večer všetkým:)
V prvom rade ďakujem, že sa venujete mojej problematike, ale chcem sa aj ospravedlniť za rébus ktorý som stvoril :)
Makro ktoré spravil Začiatočník nefunguje celkom podľa mojich predstáv. Myslel som si že áno, ale zistil som teraz, že nie.
Počet za sebou idúcich hodnôt, počíta toto makro správne. Nula nenarúša "reťazec", čiže ak mám hodnoty

-10
0
-10

tak výsledok je: 2. To sedí.
Problém je v sčítavaní hodnôt. Toto makro vypíše maximálny sčítaný mínus v rade. Mám napríklad hodnoty v bunkách:

-1
-1
-1

10

-2
-2

10

Maximálny počet mínusových hodnôt za sebou je: 3
ALE: súčet tohto makra je: -4 (-2,-2)
Čo je nie je zlé, lebo náhodou toto riešenie potrebujem tiež.
Ale správny výsledok by mal byť -3(-1,-1,-1)

Ale môj problém je komplikovanejší lebo keď máme napríklad hodnoty v bunkách:

-1
-1
-1

10

-2
-2
-2

10

-5
-5

10

Tak ten maximálny počet po sebe idúcich záporných čísel je: 3
a ich maximálny súčet je: -6 (-2,-2,-2)
Ale toto makro vypíše maximálny súčet: -10 (ja ale potrebujem tých -6)

Neviem či som to dobre opísal. Lepšie by to bolo osobne vysvetliť, aby som to dokázal dobre opísať a aby ste to správne pochopili.
Prikladám aj prílohu v ktorej je tých hodnôt viac. Je tam aj makro ktoré spravil Začiatočník. Je tam aj makro na kladné hodnoty. Ktoré som sem už napísal.
V príklade je viac hodnôt, je tam aj popísané a vyznačené, čo funguje, čo nie a čo by fungovať malo.
Ďakujem veľmi Začiatočníkovi aj za toto makro, lebo potom by som tu asi otravoval s problémom zistenia najväčšieho mínusu, medzi dvoma kladnými hodnotami(bunkami)
Samozrejme riešenie by som chcel aj do plusu, nie len do mínusu.
Som full time trader(forex, komodity), tvorím test pre svoje vlastné stratégie s vlastnou štatistikou.
Ide mi o to zistiť:

Najväčší počet mínusových obchodov za sebou medzi dvoma plusovými a vypočítať ich súčet. Ak sa vyskytne viac krát rovnaký najväčší počet mínusových obchodov po sebe medzi dvoma plusovými, tak vypísať súčet tých, ktorých súčet je najväčší.

Dúfam, že sa mi podarilo problematiku lepšie a rozumnejšie opísať a že to aj lepšie pochopíte z prílohy.
Riešenie ak vôbec nejaké je, by bolo ideálne cez makro. Nech tam nie je strašne veľa vzorcov.
Ďakujem za Váš čas, prácu a trpezlivosť s mojím chaotickým vysvetlením :)citovat

Ja som to tak aj pochopil. Snáď to je aj vidieť v príklade. Myslím, že si to vysvetlil dobre už na začiatku.
Alebo toto makro

Public Function maxnrada(oblast As Range, kod As Integer)

' kod=0 počet
' kod=1 suma
Dim max As Single
Dim tmp As Single
max = 0
tmp = 0
stmp = 0
maxstmp = 0
For Each cell In oblast
If cell < 0 Then
tmp = tmp + 1
stmp = stmp + cell
End If
If cell > 0 Then
If tmp > max Then
max = tmp
If (maxstmp > stmp) Then maxstmp = stmp
End If
tmp = 0
stmp = 0
End If
Next
If kod = 0 Then
maxnrada = max
Else
maxnrada = maxstmp
End If
End Functioncitovat