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]
• #9 Thyb senior tag Digiti Dotto #6

  2005-02-08 13:25:39 #9

  Ö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

  

  Thyb

  senior tag

  válasz Digiti Dotto #6 üzenetére

  Na hi, nem gondoltam, hogy 1 ilyen Script igy meg tud még szorongatni, de nem találtam semmi help-et benne. Összeállitottam, 1 makrót, itt neked kell meghatározni, hogy hanyadik sorig menjen a kijelölés, ha van változód akkor az beiktatható. A Num1 megadásánál pedig azt tudod meghatározni, hogy hanyadik sorban kezdje a kijelölélst.
  Sub Macro1()
  '
  ' Macro1 Macro
  ' Macro recorded 2/7/2005 by tibor_kiss
  
  Dim num As Integer
  num1 = 1 'első sor lesz az első kijelölt
  
  Dim myrows$
  myrows$ = CStr(num1) & '':'' & CStr(num1)
  Do While num1 < 20 'a 20-ik sorig fog kijelölni
  myrows$ = myrows$ & '','' & CStr(num1) & '':'' & CStr(num1)
  num1 = num1 + 2
  Loop
  range(myrows$).Select
  End Sub
  - sok szerencsét, remélem használható lesz

Aktív témák