Belajaroffice.com- Pada artikel sebelumnya admin sudah memberikan contoh latihan Activex Controls VBA Excel yaitu Membuat Simulasi Kredit Pinjaman yang didalamnya kita sematkan komponen Spin button. Pada kesempatan ini admin akan memberikan contoh latihan lagi yaitu membuat Simulasi Kredit Motor dengan menyematkan spin button dan option button ActiveX Controls.
Untuk tampilannya seperti gambar dibawah ini :
Buatah tabel yaitu sebagai berikut :
- Harga Motor OTR untuk menginput berapa harga jual dari sepeda motor.
- Uang muka untuk menginput besarnya DP atau uang muka dari pembelian speda motor. Misalnya mini 20 %
- Lama kreditnya untuk menginput berapa lama (bulan) angsuran sepeda motor diambil, pada lama kredit tersebut kita tambahakan spin button untuk mengatur dengan cara geser.
- Multifinance yaitu jasa kredit yang akan kita ambil misalnya A finance dan B finance denggan memiliki ketentuan dari bunga yang berbeda. Kita gunakan option button Activex.
- Suku Bunga pada contoh ini kita buat perbulan. Suku bunga dibuat muncul otomatis ketika kita pilih option button diatas, dengan ketentuan yang bisa kita atur pada codding vbanya.
- Sisa angsuran ini didapat dari harga motor OTR dikurangi dengan Uang muka.
- Cicilan Bulanan untuk menghasilkan berapa besarnya cicilan motor yang harus dibayar perbulan kepada penyedia jasa kredit yang diambil.
- Total untuk menghasilkan besarnya total seluruh pembayaran cicilan bulanan ditambah dengan Uang muka.
Selanjutnya kita tambahkan komponen dari ActiveX Controls :
- Spin button (satu buah)
- Option button (dua buah)
Selanjutnya kita buat rumus-rumusnya :
- Sisa angsuran, pada cell E19 ketikan rumusnya
=E6-E8 - Cicilan bulanan, pada cell E20 ketikan rumusnya
=(E19+(E19*E18*E10))/E10
Penjelasan cicilan perbulan didapat dari sisa cicilan ditambah + bunga dibagi dengan lama angsuran. - Total, pada cell E22 ketikan rumusnya
=E8+(E20*E10)
Penjelasannya total pembayaran didapat dari Uang muka ditambah (cicilan perbulan dikali dengan lama angsuran)
Selanjutnya kita masuk ke coding untuk komponen ActiveX Controls :
- Spin button (untuk lama kredit)
Caranya : Pastikan dalam kondisi Desing Mode, klik kanan pada spin butoon >>> View Code
Private Sub ScrollBar1_Change()
Range(“E10”).Value = ScrollBar1.Value
ScrollBar1.Max = 35
ScrollBar1.Min = 11
ScrollBar1.SmallChange = 6
End Sub
Penjelasan : Range(“E10”) untuk menampilkan hasilnya yaitu pada cell E10, Max nilai maximal, min nilai minimal dan smallchenge perubahan nilanya ketika scroll bar digeser.
- Option button 1 (untuk A finance)
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range(“E18”).Value = 2 / 100
End If
End Sub
Penjelasan : Jika option button1 dipilih maka cell E18 bunga perbulan akan tampil 2/100 atau 2% sobat bisa sesuaikan bunganya sesuai kebutuhan.
- Option button 2 (untuk B Finance)
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Range(“E18”).Value = 2.2 / 100
End If
End Sub
Penjelasan : Sementara Jika option button2 dipilih maka cell E18 bunga perbulan akan tampil 2.2/100 atau 2.2% sobat bisa sesuaikan bunganya sesuai kebutuhan.
Selanjutnya sobat bisa juga tambahkan tabel cicilan seperti gambar dibawah ini, untuk bisa membandingkannya secara langsung.
Demikian latihan dari penerapan ActiveX Control dalam Pembuatan Simulasi Kredit Motor, sobat-sobat bisa kembangkan lagi sesuai kebutuhan.
Untuk file excel yang sudah jadi lengkap dengan tabelnya silahkan download pada link dibawah ini sebagai bahan latihan.
Latihan : Membuat Simulasi Kredit Motor ActiveX Control Excel Vba
Terimakasih semoga bermanfaat.
wah ini mantap tingkat lanjut banget