Membuat Laporan Excel Automatik Menggunakan VBA

Membuat Laporan Excel Automatik Menggunakan VBA

Visual Basic for Applications (VBA) membolehkan anda menulis prosedur di dalam Editor Visual Basic Excel (VBE). Dengan mengaktifkan makro, anda dapat membangunkan aplikasi yang secara automatik menghasilkan dan mencetak laporan.

Langkah 1: Aktifkan Makro

1. Buka Excel, pilih Developer pada ribbon. Jika tab ini tidak muncul, aktifkannya melalui File > Options > Customize Ribbon dan pilih Developer.
2. Klik Macro Security dan pilih Disable all macros with notification. Klik OK.
Makro kini boleh dijalankan selepas anda mengizinkan peringatan.

Langkah 2: Buka VBE dan Tulis Kod

1. Tekan Alt + F11 untuk membuka VBE.
2. Di panel sebelah kanan, pilih Sheet1 dan klik dua kali untuk membuka jendela kod.
3. Pilih Worksheet pada dropdown di atas jendela kod.
4. Masukkan kod berikut:

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 = Cell.Offset(0, 1).Value
        PageNumber = Cell.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

Penjelasan ringkas:

• Loop membaca sel dalam lajur B bermula dari B3 hingga sel terakhir.
• Nilai sel digunakan untuk menentukan lembaran mana yang akan dipaparkan atau diprint.
• Setiap lembaran dipaparkan satu salinan.

Items yang Diperlukan

• Microsoft Excel dengan akses ke tab Developer.
• Pengetahuan asas VBA.

Dengan langkah di atas, anda dapat menghasilkan laporan automatik yang mencetak lembaran berdasarkan data dalam kolum B.