Új hozzászólás Aktív témák

• #29717 sztanozs veterán cs_dy #29716

  Új Válasz 2015-12-04 16:14:20 #29717

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz cs_dy #29716 üzenetére

  Mi ez a kígyó kód? Hibák:
  1) használj kód beillesztést
  2) miért nem FOR cilkust használsz
  3) miért kell hátul tesztelni (igazából nem is hátul, hanem ciklusban, ha elöl is tesztelsz
  4) mindent letesztelsz mindennel. Vsz az a probléma, hogy az utolsó tesztelés nem ad vissza semmit, mivel a j. (jé-edik) mezőbe rakod a megjegyzést, nem az i.(í-edik) mezőbe.
  5) Dim i, j As Integer - ez csak a j változót deklarálja Integerre, i az Variant lesz.

  Sub Makró_hasonlító()
  Dim i, j
  For i = 2 To 833
  Do
  For j = 2 To 833
  If (Cells(i, 1).Value = Cells(j, 6).Value) And (Cells(i, 2).Value = Cells(j, 7).Value) Then
  Range("I" & i).Value = "Van egyezés"
  Exit Do
  End If
  Next
  Loop While False
  Range("I" & i).Value = "Nincs egyezés"
  Next
  End Sub

Új hozzászólás Aktív témák