Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #40970 Lasersailing senior tag JagdPanther #40957
    Új Válasz #40970
    Ú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

    Lasersailing

    senior tag

    válasz JagdPanther #40957 üzenetére

    Szia,

    Én (amikor már 100%-ban biztos vagyok abban, hogy a makró megbízhatóan működik), akkor az alábbiak segítségével szoktam felgyorsítani a makró futtatását:
    Excel képletek frissítésének kikapcsolása:
    Application.Calculation = xlManual
    majd később visszakapcsolása:
    Application.Calculation = xlCalculationAutomatic

    (Értelemszerűen amíg ki van kapcsolva, addig nem kalkulálja újra a képleteket)

    Ill. ha sokáig dolgozik magában, azaz mindegy a képernyő tartalma:
    Application.ScreenUpdating = False
    Majd visszakapcsolni:
    Application.ScreenUpdating = True

    Itt persze azért kell figyelni, mert ha közben megáll a makró, akkor kijelzőn nem fogsz látni semmit, szóval ezt csak akkor, ha nagyon sokáig fut a makró (nagyon sokat gyorsít rajta) és már tutira nem fog lefagyni...

  • #40959 Fferi50 Topikgazda JagdPanther #40957
    Új Válasz #40959
    Ú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 JagdPanther #40957 üzenetére

    Szia!

    Mivel nincsenek számítások benne, igazából majdnem mindegy hány sor van... persze minél több a sor, annál tovább tart a beszúrás és a törlés, de nem észrevehető pár százas nagyságrendben szerintem.
    Viszont egyszerűsíthető a dolog, ha az 5. sortól kezdve táblázattá alakítod az egészet (kijelölöd, beszúrás - táblázat fejléccel), mivel a táblázatba beszúrás automatikusan felveszi a táblázat szabályait (formázás, validáció), tehát azzal nem kell foglalkozni. Elég csak az új értékeket beírni.
    Gyorsít még a dolgon, ha a Select utasításokat elhagyod, a cellákra a címükkel közvetlenül tudsz hivatkozni.
    Pl.
    Sheets("Bevitel").Range("H6").Value = Date

    (igen, a makrórögzítő a selectet is rögzíti meg a sorgördítést is... ezeket szépen ki kell gyomlálni.)

    Üdv.

  • #40958 Delila_1 veterán JagdPanther #40957
    Új Válasz #40958
    Ú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

    Delila_1

    veterán

    válasz JagdPanther #40957 üzenetére

    Nem lassít majd a sok sor, mert mindig a 6. sorba viszed be az új adatokat.
    Azért egy kicsit egyszerűsítettem a makrókon.

    Sub Ma()
    Sheets("Bevitel").Select
    Rows(6).EntireRow.Insert Shift:=xlDown
    Range("B6") = Date

    Range("E6").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Adat!$F$2:$F$8"

    Range("F6").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Adat!$L$2:$L$3"

    Range("C7:I7").Copy
    Range("C6:I6").PasteSpecial xlPasteFormats

    Range("J7").Copy
    Range("J6").PasteSpecial Paste:=xlPasteAll

    Range("C6").Select
    End Sub

    Sub Megse()
    Rows(6).Delete Shift:=xlUp
    End Sub

    Sub Hibakiadva()
    Cells(6, "H") = Date
    End Sub

    Sub Hibaelvegezve()
    Cells(6, "I") = Date
    End Sub

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