Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

#1 26.05.2015 21:16
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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
↑  ↓

#2 27.05.2015 13:20
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

#3 27.05.2015 14:43
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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

Prilozi:
Informacije o tipu datoteke za:rar  godisnji.odmori.tablica.ZA.2015-16 test.rar
Preuzimanja:370
Velicina datoteke:38.71 KB

Ovaj post je ureden 1 puta. Posljednja izmjena 27.05.2015 16:08 od strane Dan79. ↑  ↓

#4 27.05.2015 21:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 27.05.2015 21:51
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


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
↑  ↓

#6 27.05.2015 22:53
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:637


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

Prilozi:
Informacije o tipu datoteke za:zip  godisnjiDex.zip
Preuzimanja:371
Velicina datoteke:76.35 KB

↑  ↓

#7 28.05.2015 00:36
Dan79 Van mreze
Clan
Registrovan od:02.03.2015
Postovi:83


Predmet:Re: pomoc oko vloocap funkcije
hvala na macro sutra cu vidjeiti jel ok :O)
↑  ↓

#8 28.05.2015 01:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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 kd (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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 06.06.2015 13:04 od strane zxz. ↑  ↓

#9 06.06.2015 08:58
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: pomoc oko vloocap funkcije
u funkciji jeli treba dodaati End If i Next Red

PreuzmiIzvorni kd (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
zivot je moja domovina.
↑  ↓

#10 06.06.2015 13:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 1: 26 pm.