Membuat Nota Penjualan Dengan VBA Excel

Download Project File

Pada tutorial kali ini kita akan belajar membuat Nota penjualan dengan bantuan ChatGPT dengan ketikkan perintah di chatGPT sebagai berikut:

buatkan script VBA excel untuk membuat nota dari transaksi penjualan

Hasilnya akan terlihat sebagai berikut:

Berikut adalah contoh skrip VBA Excel untuk membuat nota dari transaksi penjualan. Skrip ini akan mengambil data transaksi dari sheet "Transaksi" dan membuat nota di sheet "Nota".

1. Persiapan:

   • Pastikan data transaksi disimpan di sheet "Transaksi" dengan format berikut:
     • Kolom A: Tanggal
     • Kolom B: Nomor Transaksi
     • Kolom C: Nama Barang
     • Kolom D: Jumlah
     • Kolom E: Harga Satuan

2. Buat Sheet "Nota":

   • Buat sheet baru bernama "Nota" yang akan digunakan untuk mencetak nota penjualan.

3. Skrip VBA:

Sub BuatNota()
    Dim wsTransaksi As Worksheet
    Dim wsNota As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim notaRow As Long
    Dim nomorTransaksi As String
    
    ' Set worksheets
    Set wsTransaksi = ThisWorkbook.Sheets("Transaksi")
    Set wsNota = ThisWorkbook.Sheets("Nota")
    
    ' Clear previous data on Nota sheet
    wsNota.Cells.Clear
    
    ' Set headers for Nota sheet
    wsNota.Range("A1").Value = "NOTA PENJUALAN"
    wsNota.Range("A3").Value = "Nomor Transaksi:"
    wsNota.Range("A4").Value = "Tanggal"
    wsNota.Range("B4").Value = "Nama Barang"
    wsNota.Range("C4").Value = "Jumlah"
    wsNota.Range("D4").Value = "Harga Satuan"
    wsNota.Range("E4").Value = "Total Harga"
    
    ' Get the last row with data on Transaksi sheet
    lastRow = wsTransaksi.Cells(wsTransaksi.Rows.Count, "A").End(xlUp).Row
    
    ' Initialize notaRow for Nota sheet
    notaRow = 5
    
    ' Iterate through each row in Transaksi sheet
    For i = 2 To lastRow
        ' Check if it's the first entry or a new transaction
        If i = 2 Or wsTransaksi.Cells(i, 2).Value <> wsTransaksi.Cells(i - 1, 2).Value Then
            ' Print the Nomor Transaksi
            nomorTransaksi = wsTransaksi.Cells(i, 2).Value
            wsNota.Range("B3").Value = nomorTransaksi
        End If
        
        ' Copy transaction data to Nota sheet
        wsNota.Cells(notaRow, 1).Value = wsTransaksi.Cells(i, 1).Value
        wsNota.Cells(notaRow, 2).Value = wsTransaksi.Cells(i, 3).Value
        wsNota.Cells(notaRow, 3).Value = wsTransaksi.Cells(i, 4).Value
        wsNota.Cells(notaRow, 4).Value = wsTransaksi.Cells(i, 5).Value
        wsNota.Cells(notaRow, 5).Value = wsTransaksi.Cells(i, 4).Value * wsTransaksi.Cells(i, 5).Value
        
        ' Move to the next row on Nota sheet
        notaRow = notaRow + 1
    Next i
    
    ' Format the Nota sheet
    wsNota.Columns("A:E").AutoFit
    wsNota.Range("A1").Font.Bold = True
    wsNota.Range("A3:E4").Font.Bold = True
    wsNota.Range("A1").Font.Size = 14
    wsNota.Range("A3:E4").Font.Size = 12
End Sub

4. Cara Menggunakan:
   • Buka Excel dan tekan Alt + F11 untuk membuka Editor VBA.
   • Klik kanan pada "VBAProject (NamaWorkbookAnda)" di jendela Project Explorer, pilih Insert > Module.
   • Salin dan tempel kode VBA di atas ke modul yang baru dibuat.
   • Tutup Editor VBA dan kembali ke Excel.
   • Untuk menjalankan makro, tekan Alt + F8, pilih BuatNota, lalu klik Run.

Skrip ini akan membuat nota penjualan berdasarkan data yang ada di sheet "Transaksi" dan menampilkannya di sheet "Nota". Anda dapat menyesuaikan format dan layout sesuai dengan kebutuhan.