Aktív témák

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