Cara Membuat Perhitungan Matematika dengan Button di VBA Excel 2016

Cara Membuat Perhitungan Matematika dengan Button di VBA Excel 2016

Pada pertemuan kali saya akan membagikan sebuah tips bagaiamana Cara Membuat Perhitungan Matematika dengan Button di VBA Excel 2016. Sebelumnya saya sudah membuat sebuah artikel yang berhungan dengan VBA ini yaitu cara memasukan sebuah teks di worksheet dengan menggunakan tombol perintah atau button.

Dimana pada tutorial kali ini kita akan membuat program sederhana yang menghitung EMI (Jumlah Pinjaman). EMI adalah singkatan dari Equated Monthly Instalment. Ini adalah jumlah bulanan yang Anda bayar ketika Anda mendapatkan pinjaman. Gambar berikut menunjukkan rumus untuk menghitung EMI.

P=(r(1+r)  n)/((1+r)n-1)

Dimana :

P= Jumlah pinjaman

R= bunga pertahun

N=Jumlah cicilan

Rumus tersebut memang sangat rumit untuk dapat ditulis dalam excel. Namun hal ini bisa diatasi dengan program Excel. Anda dapat menggunakan fungsi PMT untuk menghitung matematis diatas dengan rumus fungsi sebagai berikut

Rumus Fungsi PMT adalah sebagai berikut:

=PMT(rate,nper,pv)

Dimana diketahui sebagai berikut :

"rate" ini adalah tarif bulanan. Ini adalah tingkat bunga dibagi dengan jumlah pembayaran per tahun

"nper" itu adalah jumlah total pembayaran. Merupakan jangka waktu pinjaman dikalikan dengan jumlah pembayaran per tahun

"pv". Nilai sekarang. Ini adalah jumlah pinjaman yang sebenarnya

Sekarang kita praktekan bagaimana cara mengaplikasikan rumus diatas dengan VBA Excel dengan tabel seperti dibawah ini:

Tabel Perhitungan EMI

Cara Membuat Perhitungan Matematika dengan Button di VBA Excel 2016

1. Buka excel
2. Klik Developer
3. Klik Insert Control 
4. Pilih Buton pada Form Control
5. Klik di area worksheet, pilih NEW maka jendela VBA akan terbuka
6. Pada jendela kode Button1 isikan kode berikut

Dim monthly_rate As Single, loan_amount As Double, number_of_periods As Single, emi As Double

monthly_rate = Range("B6").Value / Range("B5").Value

loan_amount = Range("B3").Value

number_of_periods = Range("B4").Value * Range("B5").Value

emi = WorksheetFunction.Pmt(monthly_rate, number_of_periods, -loan_amount)

Range("B7").Value = emi

Keterangan :

“Dim bulanan_rate As Single” Dim adalah kata kunci yang digunakan untuk mendefinisikan variabel di VBA, 

bulanan_rate adalah nama variabel,

 Single adalah tipe data yang berarti variabel akan menerima nomor.

“monthly_rate = Range(“B6”).Value / Range(“B5″).Value” Range adalah fungsi yang digunakan untuk mengakses sel excel dari VBA, Range(“B6”).Value mengacu pada nilai di B6

“WorksheetFunction.Pmt(…)” WorksheetFunction adalah fungsi yang digunakan untuk mengakses semua fungsi di excel

Setelah Anda memasukan kode pada Button1 kemudian simpan dan tutup jendela kode

Cara menggunakan :

Kembali ke Worksheet Anda, kemudian arahkan Mouse pada button sehingga mouse berbentuk icon tangan dan klik maka hasil perhitungan akan terlihat pada Gambar dibawah ini :

Tabel Hasil EMI

Demikianlah tips dari saya tentang Cara Membuat Perhitungan Matematika dengan Button di VBA Excel 2016 semoga bermanfaat buat kita semua dan dapat menambah wawasan Anda di dunia Excel.

Related Post: Matematika VBA Excel