zxz 02.09.2011 18:04
Predmet:Altenativa za Autosum u exelu

Atosum najcesce koristena procedura.
Dali je dovoljno sigurna?
Ukoliko imate veliki broj celija iz kojih zelite napraviti autosum odnosno zbir (sumu) zna se desiti da neku celiju i ne sabere zbog pogresno unesenog unosa a da vam to i ne javi nekim upozorenjem.
Napravio sam proceduru koja se zove Suma i koja kontrolise unos u svakoj celiji i ako je u nekoj uneseno nesto drugo sem broja izbacuje upizorenje.
Kako koristiti?
Otvoriti Vb u dokumentu.
Otvoriti novi modul na nivou dokumenta i u njega kopirati kod ispod.
Procedura isto radi kao i sum sem sto ima naziv suma.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Suma(R)
  2. Dim Celija As Object
  3. Dim Duz(1 To 2)  As Integer
  4. Dim FormatCelije As String
  5. Dim a
  6. Dim BrA As Double
  7. Dim StrA As String
  8. Dim S As Double
  9.  
  10.  
  11. For Each Celija In R.Cells
  12. a = Celija()
  13. If IsNumeric(a) = False Then
  14. MsgBox "Neispravan unos u celiji:" & Celija.Address
  15. GoTo Kraj
  16. End If
  17. BrA = a
  18. StrA = a
  19. Duz(1) = Len(Format$(BrA))
  20. Duz(2) = Len(StrA)
  21. If Duz(1) <> Duz(2) Then
  22. MsgBox "Nevalja format u celiji:" & Celija.Address
  23. GoTo Kraj
  24. End If
  25. S = S + Celija()
  26. Next Celija
  27. Suma = Application.WorksheetFunction.Sum(R)
  28. 'Suma = S
  29. Exit Function
  30. Kraj:
  31. Suma = "Greška"
  32. End Function

zxz 02.09.2011 18:06
Predmet:Re: Altenativa za Autosum u exelu

Procedura se moze doraditi pa dan naprimjer na osnovu boje neke celiije preskace te celije odnosno ne zbaraja ih u sumu ili pak na osnovu nekih drugih parametara celije zavisno od potrebe.