Cum se generează un raport din foile Excel cu VBA

Crearea unui raport automat din foile Excel cu VBA

Visual Basic for Applications (VBA) îți permite să dezvolți proceduri în Editorul Visual Basic (VBE) din Excel. Acest mediu de dezvoltare este intuitiv și toate codurile scrise devin parte integrantă a fișierului Excel.

Pasul 1 – Activarea macro-urilor

1. Deschide Excel.
2. Accesează Developer (Fereastră ➜ Afișare Fisier ➜ Fereastră de lucru). Dacă fila nu apare, activeaz-o din File ➜ Options ➜ Customize Ribbon.
3. În fila Developer, apasă Macro Security.
4. Selectează Disable all macros with notification și apasă OK. Acum macro-urile pot fi activat când încerci să rulezi un cod.

Pasul 2 – Accesarea VBE și scrierea codului

1. În Excel, apasă simultan Alt + F11 pentru a deschide VBE.
2. În panoul din dreapta, dublu-click pe Sheet1 (sau pe fila care conține datele). Se va deschide fereastra de cod.
3. În fila de sus a ferestrei de cod, schimbă opțiunea Worksheet din meniul derulant.

Adaugă următorul cod pentru a imprima raportul:

Sub PrintReport()
    Dim PageNumber As Long
    Dim ActiveSh As Worksheet
    Dim ShNameView As String

    Set ActiveSh = ActiveSheet
    For Each Cell In Range("B3", Range("B3").End(xlDown))
        ShNameView = ActiveCell.Offset(0, 1).Value
        PageNumber = ActiveCell.Offset(0, 1).Value
        Select Case Cell.Value
            Case 1
                Sheets(ShNameView).Select
            Case 2
                Application.Goto Reference:=ShNameView
        End Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next
End Sub

Codul iterează prin fiecare celulă din coloana B, începând de la B3, și imprima paginile aferente. Se pot personaliza condițiile în blocul Select Case pentru a adapta comportamentul raportului.

Elemente necesare

• Excel cu acces la fila Developer.
• Permisiune de a rula macro-uri (setată la pasul 1).
• Cunoștințe de bază de VBA.