Form Input dengan Tombol Simpan (VBA) untuk cicilan KPR

Form Input dengan Tombol Simpan untuk cicilan KPR

Tema: Simulasi dan Pencatat Cicilan KPRFitur: 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 cicilan KPR: pratinjau workbook

Info proyek

TemaSimulasi dan Pencatat Cicilan KPR
FiturOtomasi · Menengah
PerangkatExcel
Harga (satu harga)Rp 525.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:

Komponen KPR
Kategori
Jumlah Bulan
Nominal
Status
Tanggal

Item pada lembar Master

Komponen KPR	Nominal
Cicilan Pokok Bulanan	2.100.000
Bunga Bulanan	1.450.000
Uang Muka DP	75.000.000
Biaya Provisi Bank	3.500.000
Biaya Notaris	6.000.000
BPHTB	9.000.000
Asuransi Jiwa KPR	2.500.000
Asuransi Kebakaran	900.000
Pelunasan Sebagian	10.000.000
Denda Keterlambatan	150.000

Dashboard: Dasbor Cicilan KPR

Total Cicilan Dibayar
Total Bunga
Sisa Pokok
Bulan Tersisa

Tips

Masukkan tenor dan suku bunga dari akad kredit
Catat setiap pembayaran agar sisa pokok akurat
Simulasikan pelunasan sebagian untuk menghemat bunga

Data contoh bersifat sintetis.

Harga dan pemesanan

Rp 525.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

SebelumnyaNomor Urut dan ID Otomatis (VBA) untuk rental kendaraan

BerikutnyaPencarian INDEX MATCH Dua Kriteria untuk laporan penjualan

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

Kembali ke portofolio Excel

Memuat

Form Input dengan Tombol Simpan (VBA) untuk cicilan KPR