Predmet:Sabiranje Kolona ili redova
Cesto puta imate potrebu sabrati neke kolone ili redove u exelu.
Dobro imate za to proceduru SUM medjutim ima tu jedan proble ako imate mnogo polja.
Naime ako u nekom polju unesete neki nenumericki znak a to se desi pa to polje bude vidjeno kao strin naredba sum ce ga jednostavno ignorisati a vi cete dobiti netacan zbir i necete biti nicim upozoreni.
Ova procedura radi upravo to.
Prilikom sabiranja polja upozorava vas ako neko polje nije numericko.
Trebate samo ovu proceduru staviti u neki modul i pozivati je umjesto procedure sum.
PreuzmiIzvorni kôd (Visual Basic):Function Saberi(Polja As Range)
Dim Skupina As Range
Dim Polje As Object
Dim Vrijednost
Dim Zbir As Double
Dim Celija As String
Set Skupina = Polja
Saberi = 0
For Each Polje In Skupina.Cells
Vrijednost = Polje
If IsNumeric(Polje) Then
Zbir = Zbir + Vrijednost
Else
Celija = Polje.Address
MsgBox Celija & " Nije numericko"
GoTo Kraj
End If
Next
Saberi = Zbir
Exit Function
Kraj:
Saberi = Celija
End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.