Kaip sukurti „Excel“ lapų ataskaitą naudojant VBA

Naudodami Visual Basic for Applications (VBA) galite kurti procedūras Excel Visual Basic redaktoriuje (VBE). Tai paprasta ir intuityvi kūrimo aplinka, o sukurtos VBA procedūros tampa darbo knygos dalimi. Taip galite automatizuoti ataskaitų generavimą Excel programoje. Prieš pradėdami programuoti, turite įjungti makrokomandas.

1 žingsnis – Įjungti makrokomandas

Atidarykite „Microsoft Excel“ (Start → All Programs → Microsoft Excel). Įrankių juostoje pasirinkite skirtuką Developer, tada spustelėkite Macro Security. Pažymėkite Disable all macros with notification ir patvirtinkite paspausdami OK. Makrokomandos dabar yra įjungtos.

2 žingsnis – Atverti VBA redaktorių

Paspauskite Alt+F11 kartu, kad atidarytumėte VBE. Dešinėje projekte lange du kartus spustelėkite Sheet1, kad atsidarytų kodo langas. Iš Object išskleidžiamojo meniu pasirinkite Worksheet.

VBA kodas, generuojantis spausdinimo ataskaitą

Sub PrintReport()
    Dim Page_number As Long
    Dim ActiveSh As Worksheet
    Dim ShNameView As String
    
    Set ActiveSh = ActiveSheet
    
    For Each Cell In Range(Range("B3"), Range("B3").End(xlDown))
        ShNameView = ActiveCell.Offset(0, 1).Value
        Page_number = 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 Cell
End Sub

Ši kilpa peržiūri visus langelius stulpelyje B nuo B3 iki paskutinio užpildyto langelio ir spausdina atitinkamus darbalapius. Spausdinimas vyksta tik dabartinėje darbo knygoje.

Reikalingi įrankiai

• Microsoft Excel su įjungtomis makrokomandomis
• VBA programavimo žinios