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

• #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.

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