Untuk membuat nota penjualan otomatis di Excel, Anda dapat mengikuti langkah-langkah berikut, berikut ini adalah contoh kode VBA (Visual Basic for Applications) yang dapat digunakan untuk membuat form nota otomatis dalam format Excel:
1. Buka Excel dan tekan Alt+F11 untuk membuka Editor VBA.
2. Di dalam Editor VBA, klik kanan pada "ThisWorkbook" di panel proyek dan pilih "Insert" -> "Module".
3. Tempelkan kode berikut di dalam modul:
```vba
Option Explicit
Sub BuatNotaOtomatis()
Dim wb As Workbook
Dim ws As Worksheet
Dim lastRow As Long
' Membuat workbook baru
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
' Judul kolom
ws.Range("A1") = "No"
ws.Range("B1") = "Nama Barang"
ws.Range("C1") = "Jumlah"
ws.Range("D1") = "Harga"
ws.Range("E1") = "Total"
' Input data nota
lastRow = 2 ' Dimulai dari baris 2
Do
Dim no As String
Dim namaBarang As String
Dim jumlah As Double
Dim harga As Double
Dim total As Double
' Input data
no = InputBox("Masukkan nomor barang:")
If no = "" Then Exit Do ' Jika input kosong, keluar dari loop
namaBarang = InputBox("Masukkan nama barang:")
If namaBarang = "" Then Exit Do ' Jika input kosong, keluar dari loop
jumlah = CDbl(InputBox("Masukkan jumlah barang:"))
If jumlah = 0 Then Exit Do ' Jika input kosong, keluar dari loop
harga = CDbl(InputBox("Masukkan harga barang:"))
If harga = 0 Then Exit Do ' Jika input kosong, keluar dari loop
' Menghitung total
total = jumlah * harga
' Menyimpan data ke dalam sheet
ws.Cells(lastRow, 1) = no
ws.Cells(lastRow, 2) = namaBarang
ws.Cells(lastRow, 3) = jumlah
ws.Cells(lastRow, 4) = harga
ws.Cells(lastRow, 5) = total
lastRow = lastRow + 1
Loop
' Menyimpan workbook
Dim fileSavePath As String
fileSavePath = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx")
If fileSavePath <> "False" Then
wb.SaveAs fileSavePath
End If
' Menutup workbook
wb.Close SaveChanges:=False
Set wb = Nothing
MsgBox "Nota telah dibuat dan disimpan."
End Sub
```
4. Setelah memasukkan kode di atas, Anda dapat menutup Editor VBA dan kembali ke lembar kerja Excel.
5. Untuk menjalankan kode, tekan Alt+F8 untuk membuka dialog "Macro". Pilih "BuatNotaOtomatis" dan klik "Run".
6. Anda akan diminta untuk memasukkan nomor barang, nama barang, jumlah, dan harga. Masukkan nilai-nilai ini untuk setiap barang yang ingin Anda tambahkan ke nota. Jika Anda ingin menghentikan pembuatan nota, cukup biarkan input kosong.
7. Setelah selesai memasukkan data, Anda akan diminta untuk menyimpan file Excel yang berisi file vba
Komentar
Posting Komentar