< návrat zpět

MS Excel


Téma: SUM - proměnná rss

Zaslal/a 21.3.2017 9:05

Zdravím.
Mám dejme tomu 25 labelů (PRZ1 - PRZ25)
každý label obsahuje číslo.
Potřebuju jejich sumu.
Potřeboval bych nahradit vzorec:
prz = Excel.WorksheetFunction.Sum(prz1,prz2.....)
něčím ve stylu

For X = 1 to 25
prz = Excel.WorksheetFunction.Sum((Me.Controls("PRZ" & X).Caption)
next X

Help!! Díky

Zaslat odpověď >

#035648
elninoslov
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
citovat
#035649
avatar
Crazy!

sucet = sucet + val.....

Co je to za fígl?citovat
#035650
elninoslov
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...citovat
#035651
avatar
Chápu.. Ono by se na to dalo logicky přijít z hlavy, ale občas mám temno.
Díky za radu :-)citovat
#035652
elninoslov
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 1
Příloha: zip35652_sucet-labelov-vo-formulari.zip (16kB, staženo 20x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09