MS Excel

Téma: SUM - proměnná

Zaslal/a Ernesto 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ěď >

elninoslov(21.3.2017 9:16)#035648

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 Functioncitovat

Ernesto(21.3.2017 9:37)#035649

Crazy!

sucet = sucet + val.....

Co je to za fígl?citovat

elninoslov(21.3.2017 9:43)#035650

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

eXPERTUS(21.3.2017 9:49)#035651

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

elninoslov(21.3.2017 12:23)#035652

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

Příloha: zip

35652_sucet-labelov-vo-formulari.zip (16kB, staženo 20x)

citovat

Uživatelské menu

Nejste přihlášen(a)

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.