Avko 19.01.2017 18:32
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

zxz 19.01.2017 21:16
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.

Avko 20.01.2017 09:01
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

zxz 20.01.2017 13:26
Predmet:Re: sto je najbrze for next , for each ili match

Hehe znas ti sto i jedan djavo.

dex 20.01.2017 17:13
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

Avko 20.01.2017 17:23
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