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
Function Sucet()
Dim i as byte
For i=1 to 25
Sucet = Sucet + Val(Controls("PRZ" & i).Caption)
Next i
End Functioncitovat