- broj_1=0001
- broj_2=02
- With Application.WorksheetFunction
- rezultat = .Index(Range(Cells(1, 1), Cells(6, 3)), _
- .Match(broj_1, Range(Cells(1, 1), Cells(6, 1)), 0) + _
- .Match(broj_2, Range(Cells(1, 2), Cells(6, 2)), 0) - 1)
- End With
Avko | 02.08.2018 13:54 | ||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Predmet:kako koristiti vise kriterija u vba excel nevjerojatno, izgubo 10 dana a nisam rijesio problem
htio bi za criterij [A] = 0001 i kriterij [B] = 02 da mi izbaci rezultat = empty, a recimo za criterij [A] = 0002 i kriterij [B] = 02 da mi izbaci rezultat = KA probao sljedece: PreuzmiIzvorni kôd (Text):
PreuzmiIzvorni kôd (Text):
jeli zna netko? |
zxz | 03.08.2018 00:03 |
---|---|
Predmet:Re: kako koristiti vise kriterija u vba excel PreuzmiIzvorni kôd (Visual Basic):
|
Avko | 03.08.2018 13:07 |
---|---|
Predmet:Re: kako koristiti vise kriterija u vba excel hvala na trudu evo u meduvremnu pronasao nesto na internetu malo sam preuredio i neke stvari izbacio : koristimo ovako : PreuzmiIzvorni kôd (Text):
|
zxz | 03.08.2018 15:58 |
---|---|
Predmet:Re: kako koristiti vise kriterija u vba excel Cekaj sad te ne razumijem a ne razumijem ni tvoju proceduru. Pitanje je bilo. Citat: htio bi za criterij [A] = 0001 i kriterij [B] = 02 da mi izbaci rezultat = empty, a recimo za Moras pojasniti kako radi ja ne vidim da moze ovo uraditi ili zakaci primjer. Mozda ja nisdam dobro razumio. |
Avko | 05.08.2018 07:24 |
---|---|
Predmet:Re: kako koristiti vise kriterija u vba excel trebam muju ekonomistu |
|
Prilozi: traziZanimanje.rar (Velicina datoteke:12.11 KB) |
zxz | 05.08.2018 11:39 |
---|---|
Predmet:Re: kako koristiti vise kriterija u vba excel Ako je to tako onda bi procedura mogla izgledati ovako. PreuzmiIzvorni kôd (Visual Basic):
Znaci da trazi u dvije kolone natpise koji se poklapaju sa ime i prezime |
Avko | 06.08.2018 13:43 |
---|---|
Predmet:Re: kako koristiti vise kriterija u vba excel namucio se. neke celije nisu string neke celije koje usporedujem su long ili single ona prije funkcija pretrazuje cijelu tablu rangiranu sa rng dok ova usporeduje samo 1 kolonu i 2 kolonu shvatio poantu , a to je suziti pretragu na dvije kolone koje trebam. vrijeme pretrage smanjo sa 64,63 sec na 18,77 sec na pocetku sam htio staviti u VBA index(match ) funkciju ali se na kraju svelo na obicnu for-next petlju Function trazi(Col1_Fnd As Long, Col2_Fnd As Long, zadnjiRed As Long, kolona As Single) As Boolean trazi = False'stavlja na default Dim I As Integer For I = 1 To zadnjiRed If Col1_Fnd = Cells(I, kolona).Value And Col2_Fnd = Cells(I, kolona + 1).Value Then trazi = True 'ako je nasao stavlja na true Exit Function 'izlazi iz funkcije End If Next I 'ako nije nasao ostaje na default tj false Exit Function End Function hvala |