Příspěvky uživatele

Záhlaví/zápatí čeho?

Záhlaví řádků a sloupců nebo záhlaví a zápatí stránky?

Jaký je účel a co by mělo obsahovat?

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...

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.

To se bude muset otočit, ale také se u toho otáčení musí přemýšlet co která hodnota obsahuje.
Tady prostá záměna < za > neplatí...

Pokud Vám to nebude fungovat, ozvěte se, ale uveďte zde Vaše řešení!

Ano jde.
Všechno jde, jenom děti a noviny se musí nosit. I chcíplá koza jde, ta jde stáhnout.

Zkuste popřemýšlet, co asi znamenají operátory '<' a '>'.

To marjankaj:
Nic proti, ale pokud bude mít list desetitíce hodnot, dovedeš si představit jeho velikost díky vzorcům???

Všechno špatně...
Zapomínáte, že po skončení cyklu v oblasti jsou také v proměnných nějaké hodnoty.

Zkuste si nahradit Vaše tímto:
Public Function maxnrada(vystup, oblast As Range)
Dim max As Single
Dim tmax As Single
Dim sum As Single
Dim tsum As Single
max = 0
tmax = 0
sum = 0
tsum = 0
For Each cell In oblast
If cell < 0 Then
tmax = tmax + 1
tsum = tsum + cell
End If
If cell > 0 Then
If tmax > max Then
max = tmax
End If
If tsum < sum Then
sum = tsum
End If
tmax = 0
tsum = 0
End If
Next
If tmax > max Then
max = tmax
End If
If tsum < sum Then
sum = tsum
End If
If vystup = 1 Then
maxnrada = max
Else
maxnrada = sum
End If
End Function

Podstata je ve volání funkce, pokud je volána =maxnrada(1;J3:J24), pak vrací maximální počet po sobě jdoucích hodnot větších než 0, přičemž nula se nezapočítává do počtu.
Pokud je volána =maxnrada(0;J3:J24), vrací součet těchto hodnot.

Je zohledněno i vyhodnocení na konci celého cyklu.
Pokud něco nefunguje jak má, pak PŘESNĚ popište co nefunguje.

P.S.
Jen pro upřesnění:
hodnota 0 není ani záporná ani kladná. Je to prostě NULA. Pokud chcete pracovat v oblasti čísel, pak se také musíte umět správně vyjadřovat, protože rozdíl mezi holinkami a hodinkami také není žádný - oboje se natahuje... Bohužel každé má jinou funkci a význam.

... Ď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. ...
Zřejmě jsem slepý, nebo neumím číst, ale já tam nic takového nevidím.
V uvedeném příkladu je pouze -1 3x za sebou. Pokud mi dokážete opak, budu Vám vděčný.

Ne, nechci. Také nechci aby zde za mne někdo vytvořil řešení.

Konečné resumé jsem definoval ve třetím příspěvku, hned za Vaší reakcí.
V dalším příspěvku jsem pouze reagoval na "konstruktivní" příspěvek marjankaj.

Od 18:00 považuji toto téma za vyřešené. To pro ostatní nechápající.

Mám 2003 i 2007, ale jak jsem psal, strávím na tom mládí.

Díky za tipy.
Samozřejmě, že jsou i jednodušší řešení jako zadávat data online do formuláře, ale ne všichni na sportovišti mají internet a spoléhat na to, že to doma přepíší .?.?.?

Také lze nahrané soubory zpracovávat sám po nahrání, ale to je 70-80 souborů za víkend, na tom strávím mládí.

Na hostingovém serveru nepůjde moc vyvádět psí kusy...

Nezbude mi, než přesvědčit vedení soutěží o přijatelnější řešení.

Zdravím, hledání moc nepomohlo a tak se obracím na zdejší komunitu.
Potřebuji, pro webovou aplikaci (php a SQL), zajistit převod dat z excelu do tabulky. Nechci zatěžovat uživatele a BFU už vůbec, aby převáděly excelovský sešit do rozumného formátu (ne všichni by to zvládli v požadované kvalitě).

Princip by měl být následující:
1. uživatel vloží do webového formuláře sešit excel
2. webová aplikace uloží soubor a zpracuje sešit a uloží data do databáze;
3. následují kontroly úplnosti a správnosti dat ...

Tučné je to oč tu jde.
Díky za nakopnutí správným směrem.

Použijte vzorec.
Do buňky D10 vložte vzorec averagea(C3:C9), využijte nápovědu funkcí.

Docela slušný počin.
Rozhodl jsem se implementovat pro své potřeby, ale...

Nejnutnější jsem přepsal pro novou verzi (7.5.3) a po rozchození (bez zásahu do systému) jsem se zděsil.

Stávající verze pro jeden kalendář čítala neuvěřitelných 42 až 49 zbytečných dotazů do databáze a to pokud nebyl v daném měsíci vydán žádný článek.
Za předpokladu, že každý den bude vydán článek je tento počet dotazů neskutečných 80!

Po překopání kalendáře se mi povedlo vše zredukovat do jednoho jediného dotazu a tedy podstatně snížit nároky.

Optimalizaci kódu sice ještě nemám dopracovanou, ale snad by mělo být hrubě hotovo.

Kalendář se vkládá jako klasický HCM modul a pro zobrazení článků je využíváno rozšíření, které je součástí kalendáře.
Stačí jen pouhé nakopírování souborů na FTP a umístit HCM modul dle standardů CMS na Vámi vybrané místo.

Byla dopracována podmínka pro nezobrazení nevydaných článků, ...
Byla nahrazena "problémová" funkce cal_days_in_month.

Kdo by měl zájem testovat, pište.

Ukázka zde.

Jediné co Vám mohu poradit je free i pro firmy:
např. WampServer (apache, php, SQL) a napsat si webovou aplikaci v php - může být i pro více uživatelů v podnikové síti.
Pravděpodobně by to bylo jednodušší a schůdnější než psát makra.

zac = 1
kon = 65535

For n = zac To kon
If Empty <> Cells(n, 2) And Empty = Cells(n, 4) Then
Rows(n).Hidden = True
End If
Next n

Lon

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje