Prikazi cijelu temu 28.05.2015 00:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: pomoc oko vloocap funkcije
Evo ti procedura.
Ovo sve kopiraj u neki modul.
Procedura racuna samo iz sitova koje si naveo nazive i to od januara do decembra ali se moze izmijeniti.
U situ u kojemzelis da ti racuna moras imati sifre svih osoba.
Procedura se poziva tako sto u red (u neko polje na kraju tablice) u kome imas u a polju sifru osobe za koju zelis da sracuna napises:
=Saberi(A5:A39)
a5 je prvo polje a a39 poslednje na spisku.
Mozes to selektoovati i misem.
Pritisnes enter i dobit ces sabrano.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Function Saberi(Rng As Range)
  4. Dim Sit As Worksheet
  5. Dim ImeSita As String, ImeCelije As String
  6. Dim Poz As Integer, Sifra As Integer
  7. Dim Red As Range
  8. Dim Vrijednost As Integer
  9. Dim AktivniRed As Integer
  10.  
  11. AktivniRed = ActiveCell.Row
  12. Const siti = "JanuaryFebruaryMarchAprilMayJuneJuly AugustSeptemberOctoberNovemberDecemberJanuary"
  13. Set Red = ActiveSheet.Cells(AktivniRed, 1)
  14. Sifra = Red
  15.     For Each Sit In Worksheets
  16.     ImeSita = Sit.Name
  17.     Poz = InStr(1, siti, ImeSita, vbBinaryCompare)
  18.     If Poz > 0 Then
  19.     Vrijednost = Vrijednost + Nadji_Vrijednost(ImeSita, Rng, Sifra)
  20.     End If
  21.     Next Sit
  22.     Saberi = Vrijednost
  23. End Function
  24.  
  25.  
  26. Function Nadji_Vrijednost(ImeS As String, Rn As Range, Sifra As Integer) As Integer
  27. Dim Sit As Worksheet
  28. Dim Red As Range, RedB As Integer
  29. Dim CEL As Range, R As Range
  30. Dim a
  31.  
  32. a = Rn.Address
  33. Set Sit = Worksheets(ImeS)
  34. Sit.Activate
  35. Set R = Sit.Range(a)
  36. For Each Red In R.Rows
  37. If Red = Sifra Then
  38. RedB = Red.Cells.Row
  39. Set CEL = Sit.Cells(RedB, 34)
  40. Nadji_Vrijednost = CEL.Cells
  41. End If
  42. Next Red
  43. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 06.06.2015 12:04 od strane zxz.