Příspěvky uživatele
< návrat zpět
??? To akože ide iba o podmienku IF ?
Function VYPOCET(Y As Integer, Opakuj As Integer)
Dim i As Integer
VYPOCET = 0
For i = 1 To Opakuj
If Y Mod 2 <> 0 Then
'Nepárne
VYPOCET = VYPOCET + Y
Else
'Párne
VYPOCET = VYPOCET + i * Y
End If
Next i
End Function
Pr. hárky 1-2 jeden vzorec, hárky 3-4 druhý vzorec, hárky 5-6 makro.
Napríklad. Plus si k tomu vytvorte dynamické oblasti, aby ste nemusel prepisovať vzorce, pri zväčšovaní.
Príklad, ktorý si poradí s desatinami ako čiarky aj bodky, prázdnym Labelom, aj nečíslom (textom).
Ale aj tak máte divnú požiadavku 
Funkcia sa vola Sucet. Funkcia ma navratovu hodnotu. Na zaciatku je vzdy 0. Funkciou Val() prevedieme text na cislo. Samozrejme ak ten text nebude cislo, nastane chyba. To som pisal. Da sa to poosetrovat, len nie z mobilu :)
No a teda pripocitavame do premennej Sucet postupne prekonvertovavane texty na cisla...
Len tak z mobilu. Je to bez oŝetrenia chyby.
Function Sucet()
Dim i as byte
For i=1 to 25
Sucet = Sucet + Val(Controls("PRZ" & i).Caption)
Next i
End Function
pr.
Stačil by aj kratší riadok:
List1.Columns(2).Hidden = Not ChBox2000
Samotné krivky sa dajú vypnúť napr. takto. Ale ešte treba poriešiť k tomu nejako Legendu.
Aj krivku aj legendu naraz "porieši" vlastnosť IsFiltered, ale nepodarilo sa mi ju potom naspäť zapnúť (zmizne zo SeriesCollection).
Ale aj tak si myslím (neskúšal som), že by to mohlo ísť cez KT...
Tak snáď som urobil to zaokrúhlenie pomocou MROUND dobre. Prípadne niekoho skúsenejšieho poprosím o návrh zaokrúhlenia na násobok 5 dole.
Skúste. Absolútne nerozumiem tomu časovému rozpisu. Píšete o 15 minútach, a pripočítavate 20... To ešte objasnite.
...
Zatiaľ som tiež neprišiel na riešenie všetkých 3 možností (rovnaké, menší A, menší B). Fungujú mi len 2 a 3. Ešte podúmam...
S takýmito tabuľkami to býva ťažké ... majú krátku životnosť 
To je už High-End. Neviem či autorom nieje náhodou eLCHa. Marí sa mi, že to sem raz postoval...
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