summere verdi i label(index)

[Svendsen]

Hvordan summere man verdiene i x-antall indekserte labler?

 

noen annen måte enn lblLabel(1).caption + lblLabel(2).caption osv

 

 

danke

[MagneH]

Hvis det er mange, kan du bruke for/next og summere opp med indeks. Jeg vet ikke om noen annen enklere måte.

[Rep]

Tror det ikke er noe enklere måte enn det MagneH nevner.

 

Code:

Dim i As Long, Svar As Double For i = 0 To (lblLabel.Count - 1) If IsNumeric(lblLabel(i).Caption) Then Svar = (Svar + CDbl(lblLabel(i).Caption)) End If Next Form1.Caption = Svar