Jak vytvořit sestavu z tabulek v Excelu pomocí VBA

Pomocí Visual Basic for Applications (VBA) můžete v editoru Visual Basic (VBE) v Excelu vytvářet makra, která jsou uložena přímo v sešitu. Tím získáte možnost automaticky generovat a tisknout sestavy přímo v Excelu. Než začnete programovat, musíte povolit makra.

Krok 1 – Povolení maker

Otevřete Excel (Start → Všechny programy → Microsoft Excel). Na pásu karet zvolte Developer a klikněte na Macro Security. Vyberte možnost Disable all macros with notification a potvrďte kliknutím na OK. Tím jste povolili práci s makry.

Krok 2 – Otevření VBE

Stiskněte současně Alt + F11 a otevře se Visual Basic Editor. V pravém podokně dvojklikněte na Sheet1 a v okně kódu v rozbalovacím seznamu vyberte Worksheet.

Příklad kódu

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

Tento smyčkový kód projde buňky ve sloupci B od B3 až po poslední vyplněnou buňku a pro každou buňku vytiskne příslušný list. Kód pracuje pouze s listy v aktuálním sešitu.

Co budete potřebovat

• Microsoft Excel s povoleným vývojářským páskem
• Základní znalost VBA