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

Dan79	26.05.2015 21: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

pmiroslav	27.05.2015 13: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	27.05.2015 14: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
Prilozi: godisnji.odmori.tablica.ZA.2015-16 test.rar (Velicina datoteke:38.71 KB)

Dan79

27.05.2015 14: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

Prilozi:
godisnji.odmori.tablica.ZA.2015-16 test.rar (Velicina datoteke:38.71 KB)

zxz	27.05.2015 21: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 21: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

dex	27.05.2015 22: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
Prilozi: godisnjiDex.zip (Velicina datoteke:76.35 KB)

Dan79	28.05.2015 00:36
Predmet:Re: pomoc oko vloocap funkcije hvala na macro sutra cu vidjeiti jel ok :O)

zxz	28.05.2015 01: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): Option Explicit Function Saberi(Rng As Range) Dim Sit As Worksheet Dim ImeSita As String, ImeCelije As String Dim Poz As Integer, Sifra As Integer Dim Red As Range Dim Vrijednost As Integer Dim AktivniRed As Integer AktivniRed = ActiveCell.Row Const siti = "JanuaryFebruaryMarchAprilMayJuneJuly AugustSeptemberOctoberNovemberDecemberJanuary" Set Red = ActiveSheet.Cells(AktivniRed, 1) Sifra = Red For Each Sit In Worksheets ImeSita = Sit.Name Poz = InStr(1, siti, ImeSita, vbBinaryCompare) If Poz > 0 Then Vrijednost = Vrijednost + Nadji_Vrijednost(ImeSita, Rng, Sifra) End If Next Sit Saberi = Vrijednost End Function Function Nadji_Vrijednost(ImeS As String, Rn As Range, Sifra As Integer) As Integer Dim Sit As Worksheet Dim Red As Range, RedB As Integer Dim CEL As Range, R As Range Dim a a = Rn.Address Set Sit = Worksheets(ImeS) Sit.Activate Set R = Sit.Range(a) For Each Red In R.Rows If Red = Sifra Then RedB = Red.Cells.Row Set CEL = Sit.Cells(RedB, 34) Nadji_Vrijednost = CEL.Cells End If Next Red End Function

zxz

28.05.2015 01: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):

Option Explicit
Function Saberi(Rng As Range)
Dim Sit As Worksheet
Dim ImeSita As String, ImeCelije As String
Dim Poz As Integer, Sifra As Integer
Dim Red As Range
Dim Vrijednost As Integer
Dim AktivniRed As Integer
AktivniRed = ActiveCell.Row
Const siti = "JanuaryFebruaryMarchAprilMayJuneJuly AugustSeptemberOctoberNovemberDecemberJanuary"
Set Red = ActiveSheet.Cells(AktivniRed, 1)
Sifra = Red
For Each Sit In Worksheets
ImeSita = Sit.Name
Poz = InStr(1, siti, ImeSita, vbBinaryCompare)
If Poz > 0 Then
Vrijednost = Vrijednost + Nadji_Vrijednost(ImeSita, Rng, Sifra)
End If
Next Sit
Saberi = Vrijednost
End Function
Function Nadji_Vrijednost(ImeS As String, Rn As Range, Sifra As Integer) As Integer
Dim Sit As Worksheet
Dim Red As Range, RedB As Integer
Dim CEL As Range, R As Range
Dim a
a = Rn.Address
Set Sit = Worksheets(ImeS)
Sit.Activate
Set R = Sit.Range(a)
For Each Red In R.Rows
If Red = Sifra Then
RedB = Red.Cells.Row
Set CEL = Sit.Cells(RedB, 34)
Nadji_Vrijednost = CEL.Cells
End If
Next Red
End Function