Създаване на отчет в Excel с помощта на VBA

Въведение

С Visual Basic for Applications (VBA) можете да автоматизирате създаването на отчети директно в Excel. VBA‑скриптовете се пишат във Visual Basic Editor (VBE) – удобна среда, интегрирана в работната книга. Преди да започнете, е необходимо да разрешите макросите в Excel.

Необходими стъпки

Стъпка 1 – Активиране на макроси

Отворете Excel (Старт → Всички програми → Microsoft Excel). Отидете в раздела Разработчик и натиснете Macro Security. Изберете опцията Disable all macros with notification и запазете настройките. По този начин Excel ще позволява изпълнението на макроси, след като бъдете предупредени.

Стъпка 2 – Отваряне на VBE и създаване на процедура

Натиснете Alt+F11, за да стартирате Visual Basic Editor. В дясната част на прозореца ще видите листовете на текущата работна книга – двойно кликнете върху Sheet1, за да отворите прозореца за код.

От падащото меню в горната част на прозореца изберете Worksheet. В полето за код въведете следната процедура:

Sub PrintReport()
    Dim PageNumber 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
        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 Cell
End Sub

Този код обхожда всички клетки в колона B, започвайки от B3, и печата листа, чийто име е посочено в съседната колона (C). Печатът се извършва само за листове в текущата работна книга.

Необходими инструменти

• Microsoft Excel с включени макроси
• Основни познания по VBA