Avatar billede blazer Nybegynder
26. marts 2012 - 16:43 Der er 3 kommentarer og
1 løsning

VBA Langsomt - HJÆLP

Hejsa.

Jeg har et program, som skal skjule udvalgte linier før arket udskrives.

Problemet er, at når jeg har udskrevet arket eller "Vis udskrift" een gang, bliver skjule-proceduren herefter utrolig langsom.

Jeg kan naturligvis afhjælpe problemet, ved at gemme dokumentet, lukke det og herefter åbne det påny, hvorefter proceduren foregår i en acceptabel hastighed. Men det er ikke særlig professionelt....

PS. Jeg vil lige gøre opmærksom på, at < Application.ScreenOpdating = False > er en del af proceduren.

Håber en eller anden kan hjælpe mig.


Kode Eksempel:

Sub UdskrivTilretTilbud()
Dim iRække As Integer
Dim i As Integer

    LåsOpArkHest ("Side2")
   
    Rows("1:1000").EntireRow.Hidden = False
   
    iRække = 12
   
    Application.ScreenUpdating = False
       
    For i = iRække To 270
            If Cells(i, 10) = 0 And Cells(i, 11) = "" Or Cells(i, 10) = "" And Cells(i, 11) = "" Then
            Rows(i).EntireRow.Hidden = True
        End If
         
    Next
   
    Application.ScreenUpdating = True
    LåsArkHus ("Side2")
End Sub

Sub VisAlleLinierHesteberegning()
    LåsOpArkHest ("Side5-6")
    Rows("1:1000").EntireRow.Hidden = False
    LåsArkHest ("Side5-6")
End Sub
Sub LåsOpUdskrivHesteberegning()
    LåsOpArkHest ("Side5-6")
End Sub
Sub VisAlleLinierTilbud()
    LåsOpArkHest ("Side2")
    Rows("1:1000").EntireRow.Hidden = False
    LåsArkHest ("Side2")
End Sub

Håber i Kan hjælpe mig! Tak :-)
Avatar billede store-morten Ekspert
26. marts 2012 - 19:52 #1
Prøv at tilføje:

Application.ScreenUpdating = False

ActiveSheet.DisplayPageBreaks = False
       
    For i = iRække To 270 '..........
Avatar billede blazer Nybegynder
27. marts 2012 - 08:37 #2
Det prøver vi lige. Jeg vender tilbage efter test.
Avatar billede blazer Nybegynder
28. marts 2012 - 10:54 #3
STORE-MORTEN. Du er i sandheden SSTOR!! DET VIRKER !

SMID svar :-))
Avatar billede store-morten Ekspert
28. marts 2012 - 16:39 #4
Det er store ord, mange tak.

Og velbekomme, her er et 'Svar'
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester