Form Input dengan Tombol Simpan (VBA) untuk rental kendaraan

Form Input dengan Tombol Simpan untuk rental kendaraan

Tema: Pencatat Rental Mobil dan MotorFitur: OtomasiTingkat: MenengahDengan makro VBA

0 kali dilihat

Pengguna mengisi form di sel input lalu menekan tombol Simpan untuk menambah baris baru ke lembar Data. Harga dan kategori diambil otomatis dari Master.

Form Input dengan Tombol Simpan (VBA) untuk rental kendaraan: pratinjau workbook

Info proyek

TemaPencatat Rental Mobil dan Motor
FiturOtomasi · Menengah
PerangkatExcel
Harga (satu harga)Rp 625.000

Fungsi yang dipakai

VBA
Worksheet
VLOOKUP
MsgBox
Form Control

Input data lewat form yang rapi tanpa mengubah tabel langsung.

Berkas proyek yang bisa Anda unduh

Berkas proyek aslinya tersedia. Bukan sekadar gambar di atas: Anda mendapat berkas kerja dengan semua rumus terpasang. Berkas bisa diunduh setelah pembayaran, dan tautan unduhnya kami kirim lewat WhatsApp atau email.

ZIP: workbook .xlsx + modul makro VBA (.zip)

Isi berkas

Berkas Excel (.xlsx) lengkap dengan lembar Data, Master, Rekap, dan Dashboard
Rumus yang sudah terpasang dan siap diganti dengan data Anda
Lembar Panduan berisi langkah pakai, penjelasan rumus, dan tips
Modul makro VBA terpisah (Modul_Makro.bas) untuk diimpor lewat Alt+F11, dibungkus dalam satu berkas ZIP

Berkas proyek: Berkas proyek asli (bukan hanya gambar) tersedia dan dapat diunduh setelah pembayaran lunas; kami kirim tautan unduhnya lewat WhatsApp atau email
Pembayaran: Satu harga per proyek, dibayar penuh di muka; berkas dikirim setelah pembayaran diterima
Pajak: Harga belum termasuk PPN 11%
Penyesuaian: Penyesuaian ke data atau format khusus Anda dapat dipesan terpisah lewat WhatsApp

Rumus di dalam berkas

Sel	Rumus	Keterangan
K3	`=IFERROR(VLOOKUP(J3,Master!A:C,2,FALSE),0)`	Pratinjau harga dari item terpilih.
K4	`=J4*K3`	Pratinjau total sebelum disimpan.
K5	`=IFERROR(VLOOKUP(J3,Master!A:C,3,FALSE),"")`	Pratinjau kategori item.

Langkah memakai

1Form input ada di Dashboard J2 sampai J5: tanggal, item, qty, status.
2Tekan Alt+F11, File, Import File, pilih modul .bas yang disertakan.
3Di Dashboard, menu Developer, Insert, Button, pilih makro SimpanData.
4Simpan berkas sebagai .xlsm.
5Isi form lalu klik Simpan, baris baru muncul di tabel Data.

Kode makro VBA

Modul makro dikirim sebagai berkas Modul_Makro.bas terpisah di dalam ZIP. Impor lewat Alt+F11. Cuplikan singkatnya:

Tampilkan kode

Sub SimpanData()
    Dim wf As Worksheet, ws As Worksheet, wm As Worksheet, r As Long, hrg As Variant, kat As Variant
    Set wf = ThisWorkbook.Sheets("Dashboard")
    Set ws = ThisWorkbook.Sheets("Data")
    Set wm = ThisWorkbook.Sheets("Master")
    If Trim(wf.Range("J3").Value) = "" Or Val(wf.Range("J4").Value) <= 0 Then
        MsgBox "Isi item dan qty dengan benar.", vbExclamation
        Exit Sub
    End If
    hrg = Application.VLookup(wf.Range("J3").Value, wm.Range("A:C"), 2, False)
    kat = Application.VLookup(wf.Range("J3").Value, wm.Range("A:C"), 3, False)
    If IsError(hrg) Then MsgBox "Item tidak ada di Master.", vbCritical: Exit Sub
    r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    ws.Cells(r, 1).Value = wf.Range("J2").Value
    ws.Cells(r, 2).Value = wf.Range("J3").Value
    ws.Cells(r, 3).Value = kat
    ws.Cells(r, 4).Value = wf.Range("J4").Value
    ws.Cells(r, 5).Value = hrg
    ws.Cells(r, 6).Value = wf.Range("J5").Value
    ws.Cells(r, 7).Formula = "=D" & r & "*E" & r
    MsgBox "Data tersimpan di baris " & r, vbInformation
End Sub

Isi contoh

Kolom pada lembar Data:

Kendaraan
Kategori
Lama Sewa (Hari)
Tarif per Hari
Status
Tanggal Sewa

Item pada lembar Master

Kendaraan	Tarif per Hari
Toyota Avanza per Hari	400.000
Toyota Innova Reborn per Hari	650.000
Honda Brio per Hari	350.000
Daihatsu Xenia per Hari	380.000
Honda Vario per Hari	100.000
Yamaha NMAX per Hari	150.000
Honda Beat per Hari	80.000
Toyota Hiace per Hari	1.000.000
Sewa Sopir per Hari	250.000
Denda Keterlambatan per Jam	50.000

Dashboard: Dasbor Rental Kendaraan

Total Pendapatan Sewa
Jumlah Transaksi
Armada Paling Laris
Pendapatan dari Denda

Tips

Catat kondisi kendaraan sebelum dan sesudah sewa
Simpan salinan identitas penyewa dengan aman
Atur jadwal servis agar armada tidak mogok

Data contoh bersifat sintetis.

Harga dan pemesanan

Rp 625.000

Satu harga untuk seluruh berkas proyek, belum termasuk PPN 11%

Pesan berkas via WhatsApp

Pertanyaan umum

Apakah saya mendapat berkas aslinya?

Ya. Gambar di atas hanya pratinjau. Setelah pembayaran, kami mengirim tautan unduh berkas proyek yang asli (ZIP berisi workbook .xlsx dan modul makro) lewat WhatsApp atau email.

Apakah data di dalam berkas itu data asli?

Bukan. Data contoh bersifat sintetis dan hanya memperlihatkan cara kerja rumusnya. Ganti dengan data Anda sendiri, rumusnya tetap bekerja.

Bisakah disesuaikan dengan data saya?

Bisa, sebagai pesanan terpisah. Kirim pesan lewat WhatsApp berisi gambaran singkat kolom data Anda dan hasil yang Anda inginkan.

Proyek serupa

Lihat semua

SebelumnyaLogika IF IFS SWITCH Bertingkat untuk meal plan dan kalori

BerikutnyaRekap Otomatis SUMIFS dan COUNTIFS untuk arisan dan tabungan

Data contoh bersifat sintetis. Excel adalah merek dagang Microsoft Corporation.

Kembali ke portofolio Excel

Memuat

Form Input dengan Tombol Simpan (VBA) untuk rental kendaraan