Aktív témák

• #27 lapa veterán Digiti Dotto #6

  2005-05-04 20:21:24 #27

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

  

  lapa

  veterán

  válasz Digiti Dotto #6 üzenetére

  huh ez megizzasztott. persze a vb helpben a harminezredik ''see also'' alatt bújt el ez: ''referring to multiple ranges''.
  
  az alábbi mutyi kijelöli minden második sorban az első 10 oszlopot a 29. sorig...
  
  

  Option Explicit
  
  Dim sor As Long, egysor, soksor As Range
  
  Sub markol()
  'itt egy kezdő értéket dobunk soksorra, hogy az első ciklusban is megegye
      Set soksor = Range(Cells(1, 1), Cells(1, 10))
  'itt cikázunk egyet minden 2. soron, de már csak 3-tól kezdünk
  For sor = 3 To 30 Step 2
      'megadjuk a következő elemét az újnónak
      Set egysor = Range(Cells(sor, 1), Cells(sor, 10))
      'hozzáadjuk az eddigiekhez vagyis saját magához
      Set soksor = Union(soksor, egysor)
  Next sor
      'jól kijelöljük az összegyűjtött tematikát
      soksor.Select
  End Sub
  

  
  
  mosmán ezt is tudjuk...
  
  [Szerkesztve]

Aktív témák