Sådan oprettes en rapport fra Excel-ark med VBA

Ved hjælp af Visual Basic for Application (VBA) kan du udvikle VBA-procedurer i Excel Visual Basic Editor (VBE). Det er et brugervenligt udviklingsmiljø. VBA-procedurer udviklet i VBE vil være en del af projektmappen. Du kan udvikle et VBA-program til automatisk at generere rapporter i Excel. Du skal aktivere makroen, før du kan programmere med VBE.

Trin 1

Klik på "Start", "Alle programmer" og "Microsoft Excel" for at åbne Excel-grænsefladen. Klik på båndet "Udvikler" og derefter på knappen "Makrosikkerhed". Marker "Deaktiver alle makroer med underretning", og klik på "Gem". Nu har du oprettet makroer i din Excel.

Trin 2

Tryk samtidigt på "Alt" og "F11" for at starte VBE. Dobbeltklik på "Ark1" i din højre rude i din VBE for at åbne kodevinduet. Vælg "Arbejdsark" i rullemenuerne i kodevinduet.

Indtast følgende kode i kodevinduet:

Sub PrintReport ()

Dæmp sidetal

Dæmp ActiveSh som regneark

Dim ShNameVis som streng

Indstil ActiveSh = ActiveSheet

For hver celle inden for rækkevidde (rækkevidde ("b3"), rækkevidde ("b3"). Afslut (xlDown))

Sh_view = ActiveCell.Offset (0, 1). Værdi

Sidetal = ActiveCell.Offset (0, 1). Værdi

Vælg Case Cell.Value

Sag 1

Ark (ShNameView) .Vælg

Sag 2

Ansøgning. Gå til reference: = ShNameView

Afslut Vælg

ActiveWindow.SeletedSheets.Printout Kopier: = 1

Næste

Sløjfen i koden fører til en udskrift for hver celle i kolonne B startende fra B2. Koden udskriver kun sider i den aktuelle projektmappe.