Příspěvky uživatele
< návrat zpět
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...
Verzia s kopírovaním hodnôt. Teda funguje aj keď sú tam vzorce. Podmienené formátovanie a SUM je zatiaľ nastavený na 100 riadkov.
Keď do Vášho súboru nalejem vzorce, tak Vám to samotný rozpis prepočíta, aj rozpis kurtov podľa počtu, aj dvojice, tak ako ste to "nastínil". Ale vo vzorcoch sa asi stratíte :)
pred riadok
Application.CutCopyMode = False
dajte
Application.Goto Cells(1, 2)
ale má to Achylovu pätu, keď nebude v Backup liste v 1. riadku posledná bunka zároveň poslednou bunkou smerom vpravo, tak Vám prepíše tie, ktoré sú v ďalších riadkoch viac v pravo. Aj preto je potrebné lepšie špecifikovať dáta.
Inak ak tam máte v A1 vzorec napr.
=SUM(B:D)
=SUMA(B:D)
musíte ho zmeniť na nepriamy odkaz, lebo sa robí vystrihnutie a vloženie, a to zmení vzorec na cieľovú adresu, teda do listu Backup.
=SUM(INDIRECT("B:D"))
=SUMA(NEPŘÍMÝ.ODKAZ("B:D"))
Ako som písal pred tým, dá sa to urobiť mnohými spôsobmi. Ja by som uprednostnil iba kopírovanie hodnôt a zmazanie starých cez .ClearContents. A zároveň by som udržiaval v jednej bunke v Backup (napr. A2) číslo posledného zápisu. Potom by sa ľahko násobkom *3 vyrátal správny stĺpec pre zápis, a nezáležalo by na tom, či sú vo všetkých stĺpcoch dáta, ani na vzorcoch. atď...
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články