Skapa rapporter från Excel-ark med VBA

Med Visual Basic for Applications (VBA) kan du skriva och köra egna skript direkt i Excel. Dessa VBA‑procedurer lagras i arbetsboken och kan användas för att automatiskt generera rapporter, exportera data eller anpassa arbetsflöden. Innan du börjar programmering måste du dock aktivera makron.

Steg 1 – Aktivera makron

Klicka på Start → Alla program → Microsoft Excel för att öppna Excel. Gå till fliken Utvecklare (Developer) och välj Makrosäkerhet. Markera "Inaktivera alla makron med avisering" och tryck Spara. Makron är nu aktiverade och du kan börja skapa VBA‑kod.

Steg 2 – Öppna Visual Basic‑redigeraren

Tryck Alt + F11 för att starta Visual Basic‑redigeraren (VBE). I projektfönstret (vanligtvis till vänster) dubbelklicka på Sheet1 för att öppna kodfönstret. I kodfönstret väljer du Worksheet i rullgardinsmenyn så att du kan lägga till händelse‑procedurer för bladet.

Steg 3 – Skriv skriptet

Infoga följande kod i kodfönstret:

Sub PrintReport()
    Dim pageNumber As Long
    Dim activeSh As Worksheet
    Dim viewSheetName As String

    Set activeSh = ActiveSheet

    For Each cell In Range("B3", Range("B3").End(xlDown))
        viewSheetName = cell.Offset(0, 1).Value
        pageNumber = cell.Offset(0, 1).Value

        Select Case cell.Value
            Case 1
                Sheets(viewSheetName).Select
            Case 2
                Application.Goto Reference:=viewSheetName
        End Select

        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next
End Sub

Denna loop går igenom varje cell i kolumn B från B3 nedåt. För varje cell hämtar skriptet ett värde i kolumn C som bestämmer vilken vy eller sida som ska skrivas ut. Om värdet i kolumn B är 1 väljs bladet, om det är 2 navigeras till referensen. Sedan skrivs det valda bladet ut en gång. Skriptet skriver bara ut sidor som finns i den aktuella arbetsboken.

Vad du behöver

• Excel med aktiverade makron
• Grundläggande kunskap i VBA‑syntax

När du har sparat makrot kan du köra det genom att gå till Utvecklare → Makron, välja PrintReport och klicka på Kör. Du har nu ett automatiserat system för att generera rapporter direkt från dina Excel‑ark.