Keresés

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

  • 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

Hirdetés