Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → pomoc oko vloocap funkcije


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


zxz (06.06.2015 21:55):
Predmet: Re: pomoc oko vloocap funkcije
Svaka cast.
Hvala na napomeni.

Avko (06.06.2015 12:53):
Predmet: Re: pomoc oko vloocap funkcije
ja te to nisam pitao vec Dan79, a ja sam proucavao pa to primjetio da nedostaje.
Meni to ne treba ali moze biti od koristi

zxz (06.06.2015 12:07):
Predmet: Re: pomoc oko vloocap funkcije
Uf zaboravio sam kopirati dva reda koda treba jos:
Next Red
End Function
Popravio sam proceduru pa mozes ponovo skinuti.

Znaci na tvome umjesto en if treba End Function

Avko (06.06.2015 07:58):
Predmet: Re: pomoc oko vloocap funkcije
u funkciji jeli treba dodaati End If i Next Red

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Nadji_Vrijednost(ImeS As String, Rn As Range, Sifra As Integer) As Integer
  2. Dim Sit As Worksheet
  3. Dim Red As Range, RedB As Integer
  4. Dim CEL As Range, R As Range
  5. Dim a
  6.  
  7. a = Rn.Address
  8. Set Sit = Worksheets(ImeS)
  9. Sit.Activate
  10. Set R = Sit.Range(a)
  11. For Each Red In R.Rows
  12.         If Red = Sifra Then
  13.                 RedB = Red.Cells.Row
  14.                 Set CEL = Sit.Cells(RedB, 34)
  15.                 Nadji_Vrijednost = CEL.Cells
  16.        End If 'jeli treba ovo
  17. Next Red' i jeli treba ovo
  18. End If

zxz (28.05.2015 00:14):
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

Dan79 (27.05.2015 23:36):
Predmet: Re: pomoc oko vloocap funkcije
hvala na macro sutra cu vidjeiti jel ok :O)

dex (27.05.2015 21:53):
Predmet: Re: pomoc oko vloocap funkcije
Pritisni dugme prebroj.
radi dok ne naleti na prazno polje u koloni B, znaci rupe moras da popunis ili obrises

Dan79 (27.05.2015 20:51):
Predmet: Re: pomoc oko vloocap funkcije
to je dobro ,ali ne ono sto trebam.
nisu ljudi svi uvjek na istoj poziciji pa mi to nije uredu.
znaci iva moze biti na poziciji A5 ili ns nekom drugom sheetu A15

zxz (27.05.2015 20:19):
Predmet: Re: pomoc oko vloocap funkcije
=(December!AH6+November!AH6+October!AH6+September!
AH6+August!AH6+July!AH6+May!AH6+April!AH6+March!AH
6+February!AH6+January!AH6)

Samo moras ispraviti ime sita juli.
Nije dobro napisano.
Ovo je za prvi red.
Za ostale samo kpiras.

Dan79 (27.05.2015 13:43):
Predmet: Re: pomoc oko vloocap funkcije
ispričavam se upravu si
eto primjera :
želim da u tablici januar 2015 dobijem zbroj svih total dana kroz godinu ako se nalaze na prijasnjim listovima.

jesam dobio da mi računa kroz mjesesce,ali nisu svi ljudi uvijek na istoj pozicijji.
tu funkciju neznam napisati Disappointed

pmiroslav (27.05.2015 12:20):
Predmet: Re: pomoc oko vloocap funkcije
Sa ovakovim pitanjem nikada nećeÅ¡ dobiti odgovor. Iz ovoga nije jasno Å¡to želiÅ¡ napraviti. Napravi primjer i stavi ga na post.

Dan79 (26.05.2015 20:16):
Predmet: pomoc oko vloocap funkcije
imam tablicu za G.O (godišnji odmor)
napravio sam da mi racuna po mjesecu ali kao mogu dobiti da mi zbroji sve sheet zapeo sam Disappointed

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 10 am.