Springen naar inhoud


- - - - -

Hoe Het Totaal Aantal Rijen Tellen In Meerder Afdrukbereiken Op 1 Blad


  • Log in a.u.b. om te beantwoorden
Geen reacties in dit onderwerp

#1 DVW

DVW

    Starting Developer

  • Leden
  • 9 berichten
    Laatst bezocht 12 jun 2018 16:02

Geplaatst op 30 mei 2018 - 12:34

Hallo,

Ik heb een excel sheet waarop meerder afdrukbereiken staan (deze worden telkens op een andere pagina geprint).

Ik zou graag het totaal aantal rijen (en kolommen) tellen van dit afdrukbereik. Ik wil namelijk alle gekleurde cellen bij het printen geen kleur geven en na het printen de kleur terug zetten.
Echter lukt mij dit niet.
Als er maar 1 afdrukbereik is per sheet dan lukt dit wel met de volgende code:
Visual Basic Code:
AantalRijen = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Rows.Count
Deze code werkt echter niet indien er meerdere afdrukbereiken zijn op 1 sheet.

Ik gebruik volgende code voor het wijzigen van de kleur:
Visual Basic Code:
Dim ArrayPrint() As Integer
ReDim ArrayPrint(AantalRijen, AantalKolommen)

For i = 1 To AantalRijen
For j = 1 To AantalKolommen
ArrayPrint(i, j) = Cells(i, j).Interior.ColorIndex
Cells(i, j).Interior.ColorIndex = xlNone
Next j
Next i

Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True

For i = 1 To AantalRijen
For j = 1 To AantalKolommen
Cells(i, j).Interior.ColorIndex = ArrayPrint(i, j)
Next j
Next i

Voorlopig gebruik ik de volgende code:
Visual Basic Code:
AantalRijen = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Row
Met dit lukt het wel, maar hier gaat hij dus alle cellen overlopen waar er iets in staat, dus ook deze die buiten het afdrukbereik vallen. Het uitvoeren van de code zal dus iets langer duren. Op zich valt dit wel mee voor 1 sheet, maar ik zit met een bestand met 50+ sheets en dan kan het wel iets langer duren. En ik wil het ook gewoon mooi en correct programmeren :)

Iemand een idee hoe dit wel kan (eventueel via workaround)?

Alvast bedankt!




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)