Predmet:Sum Malo dugacije
Ova procedura sabira vrijednosti odabranih celija i ujedno provjerava dali je u svakoj celiji upisana numericka vrijednost.
PreuzmiIzvorni kôd (Visual Basic):Function Saberi(Region As Range)
'********************************************
'Sabiranje celija sa provjerom dali je u
' celiji num,ericka vrijedost
'********************************************
Dim Celija As Range
Dim Suma As Double
Dim Vrijednost As Double
Dim Vrs As String
For Each Celija In Region.Cells
Vrs = Celija.Value
Vrijednost = Celija.Value
If Len(Vrs) = Len(Format$(Vrijednost)) Then
Suma = Suma + Vrijednost
Else
MsgBox "Vrijednost u polju" & vbCr _
& Celija.Address & vbCr _
& "Nije numericka"
Celija.Select
Exit Function
End If
Next Celija
Saberi = Suma
End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.