Excel Seitenumbrüche per VBA

Sehe ich Raum für Verbesserung in ein paar stellen in Ihrem code:

1. Nicht auf die Eigenschaften zugreifen, werden nur langsam umgesetzt, wie usedrange.Zeilen.zählen mehr als einmal(besonders innerhalb einer Schleife), es sei denn, Sie denken, dass Sie möglicherweise änderungen. Stattdessen speichern Sie in einer Variablen.
2. Nicht tun text-Vergleiche, wenn Sie es vermeiden können (Ex: .Value = ""), verwenden Sie stattdessen die LenB-Funktion zu überprüfen, für die leere, es wird schneller ausgeführt, als es nur zu Lesen, die Länge der string-header anstelle der Einleitung in ein byte-durch-byte-string-Vergleich. (Könnten Sie genießen diese zum Lesen.)
3. Nicht verwenden "Aktivieren" oder "Select" zu verschieben, um die ActiveCell, nur Zugriff auf das Angebot direkt.
4. Bei Schleifen, die Struktur der Schleife ausführen müssen (so wenig tests wie möglich. Wenn die Schleife muss immer einmal ausgeführt, und dann wollen Sie einen post-test-Schleife.
5. Stellen Sie sicher, dass die Excel-Schnittstelle gesperrt, da das ausführen von Veranstaltungen und Bildschirm-Update usw, verlangsamen kann Ihr code unten viel. (Vor allem Ereignisse.)
6. Schließlich bemerkte ich, dass Sie Annahmen über den Fall der "Site-ID", es sei denn, es gibt keine Möglichkeit könnte es sein, cased sonst, es ist am besten zu tun, eine groß-und Kleinschreibung-Vergleich. Wenn Sie wissen, für eine Tatsache, dass es Gehäuse, die Art und Weise kann man natürlich entfernen, die Anrufe zu LCase$, die ich Hinzugefügt.

Ich umgestaltet werden, die original code geben Sie ein Beispiel für einige dieser Ideen. Ohne zu wissen, Ihre Daten-layout, ist es schwer sicher zu sein, ob dieser code ist 100% gültig, so würde ich überprüfen es für die Logik-Fehler. Aber es sollte Ihnen den Einstieg.

Public Sub PageBreak(ByRef wstWorksheet As Excel.Worksheet, ByVal pctProgress As ProgressCtl.ProgressContro)
        Const lngColSiteID_c As Long = 2&
        Const lngColSiteIDSecondary_c As Long = 1&
        Const lngOffset_c As Long = 1&
        Dim breaksMoved As Boolean
        Dim lngRowBtm As Long
        Dim lngRow As Long
        Dim p As Excel.HPageBreak
        Dim i As Integer
        Dim passes As Long
        Dim lngHBrksUprBnd As Long
        LockInterface True
        ' Marks that no rows/columns are to be repeated on each page
        wstWorksheet.Activate
        wstWorksheet.PageSetup.PrintTitleRows = vbNullString
        wstWorksheet.PageSetup.PrintTitleColumns = vbNullString


        'If this isn't performed beforehand, then the HPageBreaks object isn't available
        '***Not true:)***

        'ActiveWindow.View = xlPageBreakPreview

        'Defaults the print area to be the entire sheet
        wstWorksheet.DisplayPageBreaks = False
        wstWorksheet.PageSetup.PrintArea = vbNullString

        ' add breaks after each site
        lngRowBtm = wstWorksheet.UsedRange.Rows.Count
        For lngRow = 4& To lngRowBtm
            'LCase is to make comparison case insensitive.
            If LCase$(wstWorksheet.Cells(lngRow, lngColSiteID_c).value) = "site id" Then
                wstWorksheet.Cells(lngRow, lngColSiteID_c).PageBreak = xlPageBreakManual
            End If
            pctProgress.ProgressText = ("Row " & CStr(lngRow)) & (" of " & CStr(lngRowBtm))
        Next

        lngHBrksUprBnd = wstWorksheet.HPageBreaks.Count - lngOffset_c
        Do  'Using post test.
            passes = passes + lngOffset_c
            breaksMoved = False
            For i = 1 To lngHBrksUprBnd
                Set p = wstWorksheet.HPageBreaks.Item(i)
                'Move the intended break point up to the first blank section
                lngRow = p.Location.Row - lngOffset_c
                For lngRow = p.Location.Row - lngOffset_c To 1& Step -1&
                    'Checking the LenB is faster than a string check.
                    If LenB(wstWorksheet.Cells(lngRow, lngColSiteIDSecondary_c).Formula) = 0& Then
                        lngRow = lngRow - lngOffset_c
                        If LCase$(wstWorksheet.Cells(lngRow, lngColSiteIDSecondary_c).value) = "site id" Then
                            breaksMoved = True
                            wstWorksheet.HPageBreaks.Add wstWorksheet.Cells(lngRow, lngColSiteIDSecondary_c)
                        End If
                        Exit For
                    End If
                Next
                pctProgress.ProgressText = "Set break point " & (CStr(passes) & "." & CStr(i))
            Next
        Loop While breaksMoved
        LockInterface False
    End Sub

    Private Sub LockInterface(ByVal interfaceOff As Boolean)
        With Excel.Application
            If interfaceOff Then
                .ScreenUpdating = False
                .EnableEvents = False
                .Cursor = xlWait
                .StatusBar = "Working..."
            Else
                .ScreenUpdating = True
                .EnableEvents = True
                .Cursor = xlDefault
                .StatusBar = False
            End If
        End With
    End Sub

InformationsquelleAutor Oorang

Ich warf einen kurzen Blick auf den code und mein Erster Gedanke ist, dass diese Zeile:

pctProgress.ProgressText = "Einstellung Seitenumbruch" & CStr(i) & "" & CStr(shtDeliveryVariance.HPageBreaks.Count)

kann eine Ursache für einige der Verzögerungen. Die Lage dieser code bedeutet, dass das system zu gehen und neu berechnen .Count-Wert, da kommt es am Anfang der Schleife in deinem code, aber diese Neuberechnung geschieht nicht im original.

Andere Gedanken:

Je nach Tabelle Größe, raus gehen und nachmessen kann dieser Wert Verlangsamung Dinge nach unten. Warum nicht einfach manuell erhöhen eine Pausen zählen tracking-variable, wenn Sie tatsächlich die Ergänzung des neuen zu brechen, anstatt das system zu gehen und zu zählen, oder loszuwerden, die zählen in der Schleife (da bist du nicht die Anzeige aktualisiert wird sowieso während dieses Prozesses) und setzen die Zählung der Seite bricht in seinen eigenen code-segment, läuft durch die Inhalte am Ende die ganze Formatierung, wenn eine endgültige Zahl der Seitenumbrüche kann leicht bestimmt werden mit einem einzigen Aufruf?

InformationsquelleAutor Ron McMahon