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.