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

• #6747 Delila_1 veterán WildBoarTeam #6741

  Új Válasz 2010-04-01 16:34:45 #6747

  Ú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 WildBoarTeam #6741 üzenetére

  A visszafelé haladó ciklusnál meg kell adni azt, hogy csökkenjen a ciklusváltozó értéke.
  Ez most független az előbbi feladatodtól:

  for i=20 to 5 step-1

  A lépésszámot növekvőnél is megdhatod, ha pl. minden 5. sorban kell valamit végrehajtanod:

  for sor=2 to 80 step 5

  Csökkenőnél: for sor=80 to 2 step-5

• #6743 Fire/SOUL/CD félisten WildBoarTeam #6741

  Új Válasz 2010-04-01 13:07:25 #6743

  Ú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 WildBoarTeam #6741 üzenetére

  Hali!

  Akkor összefoglalom, adott egy munkafüzet benne 9 darab FIX munkalappal az elején(ezek indexe 1-től 9-ig van). Ezek állandóak, nem törlődnek. Ezen felül létrehozol különböző számú munkalapot, amik nyilván a 10-es indextől kezdődnek. Az a feladat, hogy a 9 FIX munkalapon felül az összes munkalap törlése kerüljön, számától, nevétől függetlenül.

  Ha ez a szitu, akkor csak egy minimális változtatás a korábbi kódon és kész

  Private Sub CommandButton1_Click()
  start_sheets = 10
  Sheets(start_sheets).Select
  Application.DisplayAlerts = False
  For i = start_sheets To Sheets.Count
  ActiveSheet.Delete
  Next i
  Application.DisplayAlerts = True
  End Sub

  Fire.

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