[es] - Kako nadopuniti code

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.

Profil

^{15.10.2008. u 21:18 - pre 189 meseci}

Imam jedan code i zelio bih postaviti jedan uvijet prije izvodjenja samog koda koji ce vrsiti provjeru da li je potrebno da se funkcija izvrsi do kraja ili ako uvijet nije ispunjen da se funkcija ne izvrsi.

Code je:

Function PojamD(Trazi As String, raspon As Range) As String
'funkcija za datum
Dim mjesto As Range
Application.Volatile
For Each mjesto In raspon
If mjesto.Value Like "*" & Trazi & "*" Then
PojamD = mjesto.Value
End If
Next
If PojamD = "" Then PojamD = ""
End Function

Ova funkcija trazi datume za odredjenu godinu i razvrstava ih u tabelu po mjesecima za tu godinu. Treba mi recimo ako je u celiji A1="" da funkcija prestane sa trazenjem a ako je u celiji A1=1 da se funkcija nastavi do kraja. I tako dalje za svaki sljedeci redak tj. A2="" - funkcija ne pretraziva raspon , A3=1 - funkcija se odvija do kraja itd. Evo jedan primjer da me lakse skuzite

MMisic

Prikačeni fajlovi

Primjer_funkcija.xls - 113k

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Kako nadopuniti code

^{16.10.2008. u 16:48 - pre 188 meseci}

Ovaj kod ti ne valja i pre nego što bih ga gledao mogu da kažem.

Pročitaj u HELP-u šta su funkcije i kada se koriste, a kada procedure (Sub procedures).. Možda ti je sintaksa ispravna, nisam ni proveravao, ali loše si ovo postavio pa nema svrhe bilo šta dalje na ovu temu (jer nemam vremena sada za pisanje lekcije).

guglaj

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!

Odgovor na temu

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.

Profil

Re: Kako nadopuniti code

^{16.10.2008. u 18:14 - pre 188 meseci}

3okc kaže:
Ovaj kod ti ne valja i pre nego što bih ga gledao mogu da kažem?

Gospodine 3okc da ste pogledali code vidjeli bi da radi ono sto se njega ocekuje. A nemozete samo tako blatiti nesto sto niste ni provjerili.

3okc kaže:
Nemam vremena sada za pisanje lekcije

Nitko od Vas nije ni trazio da pisete lekcije. Kada bi svi znali sve, ovaj forum ne bi ni postojao. Ako sam postavio pitanje a vi nemate vremena za davanje lekcija - nije mi jasno zasto ostali clanovi foruma moraju to znati. Nemate vremena - OK. Ali onda nemojte pisati o tome kako nemate vremena i ponizavati clanove koji postave neko pitanje na koje vi ne zelite ili ne znate odgovarati.

Pitanje sam postavio za clanove koji nesto znaju i zele da pomognu a oni koji nemaju vremena ne moraju ni odgovarati na postavljeno pitanje.

Jos jednom HVALA

MMisic

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.167.*

Sajt: www.gowi.rs

+109 Profil

Re: Kako nadopuniti code

^{16.10.2008. u 21:30 - pre 188 meseci}

Gledao sam tvoj primer ali u njemu nisam našao poziv funkcije koju navodiš, tako da nisam razumeo kako se koristi.

U vezi odgovara 3okc i meni se prvi mah učinilo da ovo nema veze sa funkcijom jer si ti napisao:

Citat:

funkcija trazi datume za odredjenu godinu i razvrstava ih u tabelu po mjesecima za tu godinu

jer funkcija vraća vrednost a ne "razvrstava", ali iz koda vidim da ipak jeste funkcija, samo ne znam kako je koristiš.

Nevezano za pitanje, ako razumem o čemu se radi u svakom slučaju pokušaću da ti odgovorim, iz mojeg iskustva rekao bih da ti organizacija podataka nije dobra. Moguće je problem rešiti različito, ali sa dobrom organizacijom u Excelu rešenje je često nadohvat ruke, a sa neodgovarajućom živa muka.

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

Odgovor na temu

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.

Profil

Re: Kako nadopuniti code

^{16.10.2008. u 23:06 - pre 188 meseci}

Treba obratiti pozornost na kolonu „A1“ u kojoj se mijenja godina zatim na adresu „BA9“ i adrese AZ11 BA11 i BB11 – kada je A1=2009 i

adrese BX11, BY11 i BZ11 kada je A1=2008.

Saljem Vam jos jedan primjer u kojem sam naveo sto tocno zelim. U sebi nema nikakvog koda samo opis "stvarne situacije"

MMisic

Prikačeni fajlovi

Primjer_funkcija_2.rar - 16.94k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.static.panet.co.yu.

Sajt: www.gowi.rs

+109 Profil

Re: Kako nadopuniti code

^{17.10.2008. u 08:23 - pre 188 meseci}

Možda nisam razumeo, ali čini mi se da jednostavno možeš da pozoveš svoju funkciju unutar IF funkcije:
=IF(A1="1",POJAMD(...),"")

Naravno, istu stvar možeš da ubaciš unutar koda. Npr dodaš još jedan parametra funkciji u koji prenosiš adresu ćelije u kojoj je uslov

Code:

Function PojamD(Trazi As String, raspon As Range, uslov As Range) As String
'funkcija za datum
Dim mjesto As Range

Application.Volatile
PojamD = ""
If uslov.Value <> 1 Then GoTo Kraj  ' Dodatak

For Each mjesto In raspon
   If mjesto.Value Like "*" & Trazi & "*" Then
       PojamD = mjesto.Value
   End If
Next

Kraj:
End Function

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

Odgovor na temu

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.

Profil

Re: Kako nadopuniti code

^{17.10.2008. u 10:07 - pre 188 meseci}

=IF(A1="1",POJAMD(...),"")

Ovom IF funkcijom nista ne dobivam jer opet imam isti problem. SPOROST FUNKCIJE.
Code koji si prikacio cu da pogledam pa se javim kasnije

HVALA

MMisic

Odgovor na temu

mmisic
Mario Mišić
Bosna i Hercegovina

Član broj: 33212
Poruke: 29
*.tel.net.ba.

Profil

Re: Kako nadopuniti code

^{17.10.2008. u 16:13 - pre 188 meseci}

Jpeca HVALA najljepsa

Ovaj tvoj code rjesava moje probleme. Otvaranje programa se ubrzalo toliko da se program vise ne otvara 15-ak minuta nego se to napravi za 3-4 minute. I to je previse ali s tim mogu ziviti.

Palo mi je na pamet da u radnoj knjizi iskljucim automatski izracun svih formula i da naredbu "calculate" dodam za sve obracune koje vrsim putem VBA tako da kad pokrenem obracun da mi excel tek onda preracuna sve formule koje su mi bitne za taj izvjestaj

MMisic

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.167.*

Sajt: www.gowi.rs

+109 Profil

Re: Kako nadopuniti code

^{17.10.2008. u 19:21 - pre 188 meseci}

Ako je reč o sporosti da li si probao da ukineš Application.Volatile red iz funkcije? Nisam siguran da ti je to neophodno.

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

Odgovor na temu