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

• #23488 m.zmrzlina senior tag bteebi #23487

  Új Válasz 2014-09-29 12:23:33 #23488

  Ú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

  

  m.zmrzlina

  senior tag

  válasz bteebi #23487 üzenetére

  Négy irány:

  Sub fornext_bjfl() 'balról jobbra fentről le
  For i = 1 To 10
  For j = 1 To 5
  Cells(i, j).Select
  Next
  Next
  End Sub
  
  Sub fornext_jblf() 'jobbról balra lentről fel
  For i = 10 To 1 Step -1
  For j = 5 To 1 Step -1
  Cells(i, j).Select
  Next
  Next
  End Sub
  
  Sub fornext_jbfl_() 'jobbról balra fentről le
  For i = 1 To 10
  For j = 5 To 1 Step -1
  Cells(i, j).Select
  Next
  Next
  End Sub
  
  Sub fornext_bjlf() 'balról jobbra lentről fel
  For i = 10 To 1 Step -1
  For j = 1 To 5
  Cells(i, j).Select
  Next
  Next
  End Sub

  Remélem nem írtam el.

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