[Excel] funkcija za trazenje poslednje vrednosti u koloni

[Excel] funkcija za trazenje poslednje vrednosti u koloni 20.08.2007. u 12:47 · pre 233 meseca #1

potrebna mi je ovakva funkcijakoja vraca poslednju vrednost koja u koloni a ispod te vrednosti su prazne celije

probao sam da napravim ali nece da radi, cak i pri startovanju blokira program, verovatno je loop los

Code:

Function stanje(cell As Range)
Do
If IsEmpty(cell.Offset(1, 0)) = False Then
cell = cell.Offset(1, 0)
End If
Loop Until IsEmpty(cell.Offset(1, 0)) = True
stanje = cell.Value
End Function

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 20.08.2007. u 19:51 · pre 233 meseca #2

1) Pogrešio si u deklaraciji funkcije; nisi naveo tip koji f-ja vraća.

2) Pogrešio si u deklaraciji objektne promenljive cell; budući objekat, postavljanje vrednosti se vrši naredbom SET.

Izmenjena, f-ja bi mogla da izgleda ovako:

Code:

Function stanje(cell As Range) As String

    Do
        If IsEmpty(cell.Offset(1, 0)) = False _
            Then Set cell = cell.Offset(1, 0)
    Loop Until IsEmpty(cell.Offset(1, 0)) = True
    stanje = cell.Address
End Function

Izmenio sam ti poslednji red tako da se vraća ADRESA (umesto vrednosti), tako da će ti trebati kombinacija sa f-jom INDIRECT na mestu gde ovo računaš; ovako nekako:

Code:

=INDIRECT(stanje(D8))

To, za slučaj da ti se javljaju mešano brojevi sa tekstom pa da ne dolazi do konverzije.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 20.08.2007. u 23:05 · pre 233 meseca #3

hvala puno
izgleda da je roblem bio samo u set comandi

Code:

Function stanje(cell As Range)
Do
If IsEmpty(cell.Offset(1, 0)) = False Then
Set cell = cell.Offset(1, 0)
End If
Loop Until IsEmpty(cell.Offset(1, 0)) = True
stanje = cell.Value
End Function

ovakav cod radi savrseno...
dok ovaj ne radi

Code:

Function stanje(cell As Range) as string
Do
If IsEmpty(cell.Offset(1, 0)) = False Then
Set cell = cell.Offset(1, 0)
End If
Loop Until IsEmpty(cell.Offset(1, 0)) = True
stanje = cell.adress
End Function

u kombinaciji sa indirect(stanje(r1)) vraca #value

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 23.08.2007. u 07:43 · pre 233 meseca #4

funkcija mi dobro radi,ali imam problem sto ne azurira podatke kada ih promenim automatski, nego stalno je ponovo kucam a to je ko da nemam funkciju nego sve radim rucno... da li neko zna sta da dodam u kod da bi automatski azurirala podatke???
hvala.

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 23.08.2007. u 09:47 · pre 233 meseca #5

Pretpostavljam da je problem sa ažuriranjem je posledica toga što kao argument funkcije zadaješ samo prvu ćeliju kolone. Funkcija će se u tom slučaju pokrenuti kad ažuriraš tu ćeliju, a neće ukoliko ažuriraš ostale ćelije u koloni - jer Excel nije svestan zavisnosti unutar koda, nego samo parametara koje se u funkciji prenose.
Rešenje je da kao parametar preneseš celu kolonu, pa onda u kodu da od cele kolone izdvojiš prvu ćeliju i dalje je kod isti

Code:

Function stanje(rng As Range) As String
Dim cell As Range
Set cell = rng.Resize(1, 1)
Do
  If IsEmpty(cell.Offset(1, 0)) = False Then
     Set cell = cell.Offset(1, 0)
  End If
Loop Until IsEmpty(cell.Offset(1, 0)) = True
stanje = cell.Value
End Function

Funkciju sada pozivaš sa npr. stanje(A:A) - za poslednju popunjenu ćeliju u koloni A.

Optimalnije rešenje je bez ekplicitnog korišćenja petlje, nego koristeći postojeću metodu End opsega koja određuje poslednju popunjenu ćeliju opsegu u zadatom pravcu.

Code:

Function stanje1(rng As Range) As Variant
stanje1 = rng.Resize(1, 1).End(xlDown).Value
End Function

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 23.08.2007. u 10:46 · pre 233 meseca #6

Citat:

anakin14ovakav cod radi savrseno...

Znači, našao si mu manu. Sve to o čemu pišeš primetio sam i kod mene dok sam testirao f-ju; zaista, iz nekog razloga neće da očita vrednost, čak ni posle F9, nego svaki put moraš da ulaziš u ćeliju.

Vidiš, varijanta sa vraćanjem adrese nema tih problema. (Za sve postoji lakši i teži način pa tako i za učenje.)

Sad sam primetio i Pecin post, nisam probao sa izmenom prosleđene vrednosti ali f-ja (mora da) radi nezavisno od toga da li je to baš prva ćelija; može biti bilo koja u koloni, brojanje počinje od nje. Vidiš, moglo bi se doraditi tako da možeš bez problema proslediti i opsege a da ne dođe do greške, tako što bi se uzimao argument ActvieCell objekta Range koji se prosleđuje.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 23.08.2007. u 11:18 · pre 233 meseca #7

Dakle, pošto sam sad video i Pecin post malo da dodam još koju.

1) U primeru koji si naveo sa korišćenjem čitave kolone, početna vrednost je "prva ćelija kolone", tj prvi red što, možda jeste često ali ne mora da važi. U slučaju kada jeste tako, radi, ali čim umetneš prazne redove iznad zaglavlja tabele dobićeš grešku, tj neželjen rezultat.

2) Al' ga zakomplikova sa onom petljom, izlazak s vrha isto radi pos'o:

Code:
Do While IsEmpty(cell.Offset(1, 0)) = False
Set cell = cell.Offset(1, 0)
Loop

3) Kao što već rekoh, f-ja može da vrati adresu i tada INDIRECT očitava vrednost. Ovo radi.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 30.08.2007. u 08:58 · pre 233 meseca #8

hvala na svim predlozima, ali u nijednom slucaju fukcija ne azurura na vreme, al;i nema veze napravio sam prost makro koji ponovo ukucava funkciju u polje i to je to@ :) .

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 26.01.2014. u 08:42 · pre 155 meseci #9

Potrebna mi je pomoc oko neke tabele... Probao sam sa nekoliko IF funkcija, ali nesto nije dobro pa ne dobijem trazeni rezultat...
Potrebno je da u koloni V12 pise rezultat V11-U12. Pri tom, ako je U12 prazno, nece pisati nista (taj deo sam resio), ALI, osim toga, sledece sto treba da ispituje jeste da li ima podatke u V11, ako nema da uzme podatak iz V10(umesto iz V11), ako nema ni tu onda iz V9(umesto V10 odnosno V11). U koloni V su vrednosti neke za dane u nedelji, pa hocu ako je vikend da ne pise nista, ako je radni dan da ima vrednosti... Nadam se da ste razumeli i da mi neko moze pomoci.
Hvala

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 26.01.2014. u 10:41 · pre 155 meseci #10

Citat:

anakin14:
hvala na svim predlozima, ali u nijednom slucaju fukcija ne azurura na vreme

Da bi se vrednost osvežavala na svaku izmenu, dodaj ovaj red:

Code:
Application.Volatile

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 26.01.2014. u 10:48 · pre 155 meseci #11

Citat:

vladeling:
...Potrebno je da u koloni V12 pise rezultat V11-U12. Pri tom, ako je U12 prazno, nece pisati nista (taj deo sam resio), ALI, osim toga, sledece sto treba da ispituje jeste da li ima podatke u V11, ako nema da uzme podatak iz V10(umesto iz V11), ako nema ni tu..

Mislim da se to jednostavnije kaže 'poslednje-upisana' vrednost.

Iz nejasnog pitanja čini se da imaš dve kolone i da tražiš poslednju vrednost iz U-kolone a ne iz V kao što sam podvukao.

Ili možda računaš razliku dve poslednje upisane vrednosti, po jedna iz obe kolone?

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 26.01.2014. u 12:33 · pre 155 meseci #12

Ok, prihvatam da je delimicno nejasno pitanje, pa da pojasnim...

U celiji V12 treba da racuna V11-U12, u celiji V13 treba da racuna V12-U13... Pri tome, ako je celija U u tom redu prazna, automatski i rezultat ostaje prazan:
=IF(U12="";"";V11-U12)
Medjutim, posto je kolona V podaci neki za svaki dan u mesecu, pa obzirom da se subotom i nedeljom ne radi, tada se i ne upisuju podaci... Hocu da mi, ako postoji celija U12 upise rezultat u V12 koji je jednak razlici poslednje upisane celije u koloni V pre V12, i celije U12.
Eto, nadam se da sam sada jasniji bio

Hvala na pomoci.

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 26.01.2014. u 13:01 · pre 155 meseci #13

Probaj sa ovim:

Code:
=IF(U12="";"";V11-LOOKUP(2;1/U10:U12;U10:U12))

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] funkcija za trazenje poslednje vrednosti u koloni 27.01.2014. u 17:30 · pre 155 meseci #14

@3okc

Hvala na pomoci, nije mi bas tako trebalo, trebalo mi je da trazim poslednje upisanu celiju u koloni V(po vertikali), ali uz tvoju formulu sam dosao do onog sto mi je bilo potrebno.
Jos jednom hvala!
Pozdrav.

P.S. Sad vidim da si i ti isto bio napisao, samo si zamenio kolone, umesto V stavio U...Uglavnom, ovo je trazena formula(stavio vise celija da trazi, zbog drzavnih praznika, ako se ne radi tada... ):

Code:
=IF(U19="";"";U19+LOOKUP(2;1/AA14:AA18;AA14:AA18))

Forum kao aplikacija na telefonu

Srodne teme