Příspěvky uživatele
< návrat zpět
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ť.
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 Function
@eLCHA
Téma: súčet mínusov za sebou medzi 2 kladnými hodnotam
Teda napríklad rad: 5,-2,0,-3,-4,-5,0,6
počet mínusových hodnôt medzi dvomi kladnými hodnotami je 4 a nie 6.
Viď https://cs.wikipedia.org/wiki/Kladn%C3%A9_a_z%C3%A1porn%C3%A9_%C4%8D%C3%ADslo
Samozrejme súhlasím s tým, že zadanie mohlo byť napísané zrozumiteľnejšie a nie ako nejaký rébus.
Pokiaľ ide o ten súčet, tak tie nuly nemajú na výsledok žiadny vplyv.
@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.
No ešte by som to upravil takto. V excel 2003 by to nefungovalo.
Set bunka = Range("V" & Rows.Count).End(xlUp)
@jirka78
To by bolo jednorazové. Pri druhom spustení by to už nebolo ono.
Sub Makro()
Set bunka = Range("V1048576").End(xlUp)
bunka.Offset(1, 1).Formula = "=SUMIF(W2:W" & bunka.Row & ","">0"")"
bunka.Offset(1, -2).Formula = "=COUNTIF(T2:T" & bunka.Row & ",1)"
End Sub
@začátečník.
Zadávateľ nehovoril koľko tých hodnôt bude.
Zato si neviem predstaviť na čo takáto úloha bude slúžiť.
Makro som nerobil, pretože úloha nebola na začiatku celkom jasná. Ale to sa tu stáva pomaly pravidlom. Také niečo vie iba elninoslov. A urobí aj jedenásť verzií, po všetkých upresneniach a dodatkoch. 
A z tohto je to aj vidieť. Stlpce možno aj skryť.
tu je to opravené
No je to síce s pomocnými stlpcami, ale som ich skryl podľa Vovkovho objavu. 
No zle si to popísal.
My sme nevedeli že 0 je tiež záporné číslo. 
------------------
Ospravedlňujem sa. Nečítal som to celé pozorne. Jediné čo nie je celkom presné, je použitie "bunka" namiesto "hodnota". Prípadne opačne. 
mirec314 napsal/a:
dakujem velmi pekne za pomoc. pomohli ste mi. nakoniec som uzivatelovi nastavil automaticke opravy tak ako poradila mariankaj a vsetci su spokojny. pekny den...
Veď som si to hneď myslel, že si to dostal rozkazom.
A u vojska "štábna kultúra" predsa musí byť. 
. Ten kto na vojne nebol, to asi nepochopí.
@elninoslov
Veď keď si to otvorí zajtra tak tam bude 44
Skús pozrieť a prípadne zmeniť nastavenia. Viď príloha.
Prípadne ascii znak CODE(45) na znak CODE(150). Asi najlepšie makrom.
@xlnc
Aké jednoduché.
Uživatelské menu
\nMenu
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.
RSS nejnovější články