Prikazi cijelu temu 19.01.2017 19:32
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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.