Bosna i Hercegovina


switch Lista naslova:

#16 01.02.2018-17:58
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,722


Subject: Sum Malo dugacije
Ova procedura sabira vrijednosti odabranih celija i ujedno provjerava dali je u svakoj celiji upisana numericka vrijednost.
DownloadIzvorni kod (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

Pozdrav
↑  ↓

Stranice (2): 1, 2


All times are GMT +01:00. Current time: 19.07.2018-00:35.