Prikazi cijelu temu 27.05.2012 23:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function Saberi(Polja As Range)
  2. Dim Skupina As Range
  3. Dim Polje As Object
  4. Dim Vrijednost
  5. Dim Zbir As Double
  6. Dim Celija As String
  7.  
  8. Set Skupina = Polja
  9. Saberi = 0
  10. For Each Polje In Skupina.Cells
  11.  
  12. Vrijednost = Polje
  13. If IsNumeric(Polje) Then
  14. Zbir = Zbir + Vrijednost
  15. Else
  16. Celija = Polje.Address
  17. MsgBox Celija & " Nije numericko"
  18. GoTo Kraj
  19. End If
  20. Next
  21. Saberi = Zbir
  22. Exit Function
  23. Kraj:
  24. Saberi = Celija
  25. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.