Hur man gör en rapport från Excel-ark med VBA

Med Visual Basic for Application (VBA) kan du utveckla VBA-procedurer i Excel Visual Basic Editor (VBE). Det är en lättanvänd utvecklingsmiljö. VBA-procedurer som utvecklats i VBE kommer att vara en del av arbetsboken. Du kan utveckla ett VBA-program för att automatiskt generera rapporter i Excel. Du måste aktivera makroen innan du kan programmera med VBE.

Steg 1

Klicka på "Start", "Alla program" och "Microsoft Excel" för att öppna Excel-gränssnittet. Klicka på menyn "Utvecklare" och sedan på "Makrosäkerhet" -knappen. Markera "Inaktivera alla makron med avisering" och klicka på "Spara". Nu har du konfigurerat makron i din Excel.

Steg 2

Tryck på "Alt" och "F11" samtidigt för att starta VBE. Dubbelklicka på "Sheet1" i din högra ruta i din VBE för att öppna kodfönstret. Välj "Kalkylblad" i rullgardinsmenyn i kodfönstret.

Ange följande kod i kodfönstret:

Sub PrintReport ()

Dim sidnummer

Dimma ActiveSh som kalkylblad

Dim ShNameView As String

Ställ in ActiveSh = ActiveSheet

För varje cell inom räckvidd (Range ("b3"), Range ("b3"). End (xlDown))

Sh_view = ActiveCell.Offset (0, 1) .Värde

Sidnummer = ActiveCell.Offset (0, 1) .Värde

Välj Case Cell.Value

Fall 1

Ark (ShNameView). Välj

Fall 2

Ansökan. Gå till referens: = ShNameView

Slutval

ActiveWindow.SeletedSheets.Printout-kopior: = 1

Nästa

Slingan i koden leder till en utskrift för varje cell i kolumn B med början från B2. Koden skrivs bara ut sidor i den aktuella arbetsboken.