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

• #30196 sztanozs veterán Pá #30173

  Új Válasz 2016-01-19 12:53:41 #30196

  Ú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

  

  sztanozs

  veterán

  válasz Pá #30173 üzenetére

  Ha sokat dolgozol cellákkal, akkor célszerű, ha nem közvetlenül Sheet.Cell vagy Sheet.Range-et piszkálod, hanem kimásolod az adatokat egy tömbbe, dolgozol rajtuk és a végén (ha változtattás rajta) visszamásolod.
  Ezzel nagyságrendekkel gyorsíthatók a cella hozzáférést igénylő makrók (fél óra helyett akár fél perc alatt is lefut, tapasztalatból).

  Pl.
  'értékek másolása cellákból tömbbe
  'tömb címzés (1 to max_sor, 1 to max_oszlop)
  Dim ertekek As Variant
  ertekek = Sheet1.UsedRange.Value2
  
  Dim sor As Long, oszlop As Long
  For sor = 1 To UBound(ertekek, 1)
  For oszlop = 1 To UBound(ertekek, 2)
  'művelet az összes értéken
  
  Next
  Next
  
  'visszaírás az eredeti területre
  Sheet1.UsedRange.Value2 = ertekek

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