Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → sto je najbrze for next , for each ili match


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


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

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

zxz (20.01.2017 13:26):
Predmet: Re: sto je najbrze for next , for each ili match
Hehe znas ti sto i jedan djavo.

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

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 28 am.