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

• #50962 Fferi50 Topikgazda föccer #50961

  Új Válasz 2023-05-09 17:40:30 #50962

  Ú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

  

  Fferi50

  Topikgazda

  válasz föccer #50961 üzenetére

  Szia!
  Csak ötletek:
  Az automatikus számolás kikapcsolása:
  Application.Calculation=xlCalculationManual
  Visszakapcsolás a végén:
  Application.Calculation=xlCalculationAutomatic
  Képernyő frissítés kikapcsolása:
  Application.ScreenUpdating=False
  Visszakapcsolás:
  Application.ScreenUpdating=True
  A StatusBar frissítéshez be kell tenni egy DoEvents utasítást, mielőtt módosítod a szövegét.
  Esetleg szűrő bekapcsolással elrejteni azokat a sorokat, amelyeket nem kell másolni, majd a látható cellákat másolni.
  A leggyorsabb egyébként szerintem a tartomány begyűjtése egy tömbbe, majd a tömb kiírása a célterületre. (Pl. Dim a() As Variant: a=Range("A1 : C4").Value : kapsz egy 3x4-es tömböt, ezek értékeit írhatod be a célcellába - tehát egyenként vizsgálható, hogy ki kell-e írni vagy sem.) Mivel a tömb a memóriában van, a vizsgálat is nagyon gyors. A legtöbb időt a kiírás igényli, de ez sem kibírhatatlan.
  Esetleg megmutatnád a másoló makródat, hátha abból is lehet ötletet kapni.
  Üdv.

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