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

• #5817 ulrik19 tag Cuci3 #5808

  Új Válasz 2009-12-11 00:10:27 #5817

  Ú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

  

  ulrik19

  tag

  válasz Cuci3 #5808 üzenetére

  Így van, ahogy Delila írta, meg kell fordítani a gondolatot. Ugyanis a next automatikusan megtörténik, amint a ciklusmag végére ér a folyamat. Vagyis, ha az elágazásod arról szól, hogy mikor nem egyezik meg a sheet neve a vizsgálandóval, akkor ha egyeznek, nem történik semmi a cikluson belül.

  For Each lap In Workbooks(valtozo).Worksheets
  If lap.Name <> el Then
  ... ide jön amit végeztetni akarsz ...
  End If
  Next

• #5810 Fire/SOUL/CD félisten Cuci3 #5808

  Új Válasz 2009-12-10 16:17:02 #5810

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Cuci3 #5808 üzenetére

  Hali!

  Sajnos a Pascal vagy C/CPP-ban megszokott Continue utasítás itt nem létezik, helyette a Goto utasítást kell bevetni.
  (az Exit For/Exit Do egyenértékű a Break Pascal vagy C/CPP utasítással, az Exit For kilép a For ciklusból, míg az Exit Do, a Do-Loop ciklust szakítja meg.)

  Példaprogi

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  j = 0
  For i = 1 To ThisWorkbook.Worksheets.Count
  If ThisWorkbook.Worksheets(i).Name = "Munka5" Then GoTo label001
  j = j + 1
  label001:
  Next
  MsgBox (j)
  End Sub

  Fire.

• #5809 Delila_1 veterán Cuci3 #5808

  Új Válasz 2009-12-10 16:12:27 #5809

  Ú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

  

  Delila_1

  veterán

  válasz Cuci3 #5808 üzenetére

  If egyezik then exit for

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