Prikazi cijelu temu 01.02.2018 17:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function Saberi(Region As Range)
  2. '********************************************
  3. 'Sabiranje celija sa provjerom dali je u
  4. ' celiji num,ericka vrijedost
  5. '********************************************
  6. Dim Celija As Range
  7. Dim Suma As Double
  8. Dim Vrijednost As Double
  9. Dim Vrs As String
  10.  
  11. For Each Celija In Region.Cells
  12. Vrs = Celija.Value
  13. Vrijednost = Celija.Value
  14. If Len(Vrs) = Len(Format$(Vrijednost)) Then
  15. Suma = Suma + Vrijednost
  16. Else
  17. MsgBox "Vrijednost u polju" & vbCr _
  18. & Celija.Address & vbCr _
  19. & "Nije numericka"
  20. Celija.Select
  21. Exit Function
  22. End If
  23. Next Celija
  24. Saberi = Suma
  25. End Function

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