Bosna i Hercegovina



#1 19.01.2017-18:32
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,796


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

DownloadIzvorni kod (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

Newton laže! Lake padaju brže!
↑  ↓

#2 19.01.2017-21:16
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,507


Subject: 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.
Pozdrav
↑  ↓

#3 20.01.2017-09:01
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,796


Subject: 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:
DownloadIzvorni kod (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

Newton laže! Lake padaju brže!
↑  ↓

#4 20.01.2017-13:26
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,507


Subject: Re: sto je najbrze for next , for each ili match
Hehe znas ti sto i jedan djavo.
Pozdrav
↑  ↓

#5 20.01.2017-17:13
dex Offline
Super Moderator
Registrovan/a od: 23.02.2012-19:59
Komentari: 558


Subject: 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 Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,796


Subject: Re: sto je najbrze for next , for each ili match
Citat od 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
Newton laže! Lake padaju brže!
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 14.12.2017-01:11.