MS Excel

Dobrý deň všetkým
Chcem Vás poprosiť o pomoc s mojím problémom. Možno je pre niekoho riešenie jednoduché a možno sa dá niekde vyhľadať, ale nepísal by som sem, keby som riešenie nenašiel.
Hľadal som makro, alebo vzorec, ktorý vypíše najväčší počet mínusových buniek medzi kladnými. To sa mi podarilo nájsť na tomto fóre. Pre objasnenie uvádzam príklad: mám v stĺpci hodnoty v bunkách napríklad:
-1
2
-1
-1
-1
5
4
8
-2
-2
0
-2
10

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
Ďalší problém je, ako je napríklad v tomto príklade že ich počet môže byť viac krát rovnaký, ako aj v tomto príklade. 2 krát po troch.
Ja chcem aby do bunky vypísalo súčet týchto hodnôt, v tomto prípade nech vypíše(alebo sčíta) ten najväčší celkový mínus: správny výsledok je: -6...nie -3 !!!
Najlepšie by bolo, keby riešenie bolo cez makro, alebo bez pridávania ďalších pomocných stĺpcov. Ale to len, ak by to bolo možné. :)
Ďakujem za pomoc a Váš čas

Zaslat odpověď >

Strana: « předchozí 1 2 3 4

Opičák(5.11.2015 21:28)#027874

takto ještě s upravou pro stejný počet záporných

Příloha: zip

27874_soucet-zapornych-hodnot2.zip (19kB, staženo 24x)

citovat

slavek13(5.11.2015 21:31)#027875

Marjanka:
Krásne to funguje! Ďakujem :)
Vedel by si to spraviť aj do makra?

Opičák:
Bohužiaľ nula v tvojom prípade narúša reťazec. A to nie je pre mňa dobré riešenie :(
Vedel by si mi to prosím ťa upraviť? Ak sa to vôbec dá.

Veľmi pekne vám ďakujem, lebo zídu sa všetky vaše riešenia. Tak ako som využil aj prvé makro od Začátečníka :)
Tak aj vzorce fungujú perfektne a človek ich využije.

Praktickejšie by bolo pre mňa makro.
Ďakujem:) Ste šikovní! :)citovat

slavek13(5.11.2015 21:41)#027876

Opičák:
Skúšal som aj v druhom dokumente vpísať medzi mínusové bunky 0. A nefunguje to dobre
Príklad: máme nasledovné hodnoty v bunkách:
-10
-10
0
-10
-10

tak počet je: 4
súčet: -40

a to v tvojom makre nefungujecitovat

marjankaj(5.11.2015 21:42)#027877

Dal som aj makro, v predchádzajúcom príspevku. Je trochu neprehľadné s tými IF. Nie som na to veľmi pyšný, ale funguje. Nechce sa mi s tým viac zaoberať.citovat

slavek13(5.11.2015 21:44)#027878

Marjanka vytvoril presne to čo potrebujem. Funguje to presne podľa predstáv.
Zabudol som pozrieť, či spravil aj makro, videl som len vzorce a myslel som, že makro nerobil.
Ďakujem krásne:)citovat

marjankaj(5.11.2015 21:48)#027879

To makro si nepozrel?citovat

marjankaj(5.11.2015 21:56)#027880

Ak by si to chcel s kladnými, tak takto.

Public Function minrada(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

slavek13(5.11.2015 21:57)#027881

Úloha je vyriešená!
V poslednej prílohe od užívateľa: MARJANKA
je tam aj makro, aj vzorce!
Ešte raz ďakujem všetkým za váš čas a prácu!
Šikovní ste všetci! :)citovat

marjankaj(5.11.2015 22:06)#027882

Makro v prílohe nefunguje, je tam omylom.
Makro si tam musíš vložiť. Napísal som ho do textu.citovat

elninoslov(6.11.2015 0:32)#027887

Kým som sa ja k tomu dostal, tak ste zapísali ďalšiu stranu, no ale keď už to mám hotové, čo už s tým. Príspevky už ale nečítam, tak môžno tu je riešenie obdobné...

EDIT:
Na žiadosť užívateľa som pridal aj opačnú fnc pre kladné čísla.
Ešte som urobil aj maličkú úpravu predošlej funkcie, kvôli 2 zbytočným premenným.

Příloha: rar

27887_pocet-minusov-a-plusov.rar (16kB, staženo 25x)

citovat

Strana: « předchozí 1 2 3 4

Téma: súčet mínusov za sebou medzi 2 kladnými hodnotam

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje