Centar za edukaciju-BiH


Stranice (1):1

#1 19.01.2017 18:32
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:sto je najbrze for next , for each ili match
sto bi vi koristili u svojem VBA kodu
treba naci string "jabuka" u koloni A

PreuzmiIzvorni kôd (Visual Basic):
  1. Sub test()
  2.     Dim traziString As String
  3.     Dim zadnjiRed As Long
  4.     Dim nadeniRed As Long
  5.      
  6.     traziString = "jabuka" 'string koji se trazi
  7.    zadnjiRed = Cells(Rows.Count, "A").End(xlUp).Row 'trazi zadnji red u koloni A
  8.    
  9.     'FOR EACH
  10.    For Each cell In Range("A1:A" & zadnjiRed) 'pocinje od A1
  11.        If cell.Value = traziString Then
  12.             nadeniRed = cell.Row
  13.         End If
  14.     Next cell
  15.      
  16.     MsgBox nadeniRed
  17.     nadeniRed = 0'resetiram na nulu
  18.    
  19.     'FOR NEXT
  20.    For f = 1 To zadnjiRed
  21.         If Cells(f, 1) = traziString Then
  22.             nadeniRed = f
  23.         End If
  24.     Next f
  25.     MsgBox nadeniRed
  26.     nadeniRed = 0'resetiram na nulu
  27.    
  28.     'MATCH
  29.    On Error Resume Next
  30.     nadeniRed = Application.WorksheetFunction.Match(traziString, Range("A1:A" & zadnjiRed), 0)
  31.     On Error GoTo 0
  32.     If nadeniRed > 0 Then
  33.         MsgBox nadeniRed
  34.     End If
  35. End Sub

zivot je moja domovina.
↑  ↓

#2 19.01.2017 21:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: sto je najbrze for next , for each ili match
Neznam koja je brza ali sigurno ce brze raditi ako kad ispis uslov te upises zadnji red dodas i kod:
exit for.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 20.01.2017 09:01
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: sto je najbrze for next , for each ili match
aha, zato mi se cinila ona for-next nekako duze da radi. Kada je trazeni string bio na pocetku ove dvije druge su ga brze nasle i zavrsile, a u slucaju da je trazeni pojam bio na kraju onda je brzina priblizna. Vidis to se nisam sjetio.
Znaci ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. 'FOR NEXT
  2.    For f = 1 To zadnjiRed
  3.         If Cells(f, 1) = traziString Then
  4.             nadeniRed = f
  5.             Exit for
  6.         End If
  7.     Next f

zivot je moja domovina.
↑  ↓

#4 20.01.2017 13:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: sto je najbrze for next , for each ili match
Hehe znas ti sto i jedan djavo.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 20.01.2017 17:13
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: sto je najbrze for next , for each ili match
Ovo

Exit for

Moze da ubacis i u For each petlju, isto ce brze raditi
↑  ↓

#6 20.01.2017 17:23
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: sto je najbrze for next , for each ili match
Citiraj dexxxl:
Ovo

Exit for

Moze da ubacis i u For each petlju, isto ce brze raditi

pa da, djeluje logicno, exit for za svaku petlju koja pocinje sa for bez obzira dali je to for each ili for f=1 to

dobro društvance , zahvaljujem
zivot je moja domovina.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 16 pm.