Een rapport maken van Excel-bladen met VBA

Met Visual Basic for Application (VBA) kunt u VBA-procedures ontwikkelen in de Excel Visual Basic Editor (VBE). Het is een gebruiksvriendelijke ontwikkelomgeving. In de VBE ontwikkelde VBA-procedures zullen onderdeel uitmaken van het werkboek. U kunt een VBA-toepassing ontwikkelen om automatisch rapporten in Excel te genereren. U moet de macro inschakelen voordat u met VBE kunt programmeren.

Stap 1

Klik op "Start", "Alle programma's" en "Microsoft Excel" om de Excel-interface te openen. Klik op het lint "Ontwikkelaar" en vervolgens op de knop "Macrobeveiliging". Vink "Alle macro's met melding uitschakelen" aan en klik op "Opslaan". Nu heb je macro's ingesteld in je Excel.

Stap 2

Druk tegelijkertijd op "Alt" en "F11" om VBE te starten. Dubbelklik op "Blad1" in uw rechterdeelvenster in uw VBE om het codevenster te openen. Selecteer "Werkblad" in de vervolgkeuzelijsten in het codevenster.

Voer de volgende code in het codevenster in:

Sub PrintReport()

Dim Paginanummer

Dim ActiveSh als werkblad

Dim ShNameBekijken als string

Stel ActiveSh=ActiveSheet in

Voor elke cel in bereik (bereik ("b3"), bereik ("b3"). Einde (xlDown))

Sh_view=ActiveCell.Offset (0, 1).Waarde

Page_number= ActiveCell.Offset (0, 1).Waarde

Selecteer Case Cell.Value

Zaak 1

Bladen (ShNameView).Selecteer

Geval 2

Toepassing. Ga naar referentie:=ShNameView

Einde Selecteren

ActiveWindow.SeletedSheets.Afdrukexemplaren:=1

De volgende

De lus in de code leidt tot een afdruk voor elke cel in kolom B vanaf B2. De code drukt alleen pagina's in de huidige werkmap af.