Membuat Rumus Excel dengan Macro

Hampir sebagian besar fungsi
terdapat dalam excel seperti fungsi
logika (if), fungsi lookup, fungsi
trigonometri, fungsi tanggal dan
fungsi lainnya. Namun ternyata
kadang kita memiliki rumus sendiri
yang tidak terdapat dalam excel.
Sebagai contoh untuk menghitung
luas segitiga atau luas persegi
panjang atau juga mengkonversi
suhu dari celcius ke kelvin.
Rumusan-rumusan diatas bisa kita
buat dengan formula matematika
biasa, namun bisa pula kita buat
fungsi sendiri sebagai contoh, ketika
kita akan membuat menghitung luas
segitiga cara biasa adalah membuat
formula sebagai berikut :
Luas Segitiga = 1/2 x alas x tinggi
maka formula di excel
=0.5*10*5
Ada cara lain yaitu dengan membuat
fungsi matematika untuk
menghitung luas, sehingga untuk
menghitungluas kita menggunakan
fungsi sebagai berikut (misal)
=luas_segitiga(alas;tinggi)
maka fungsi nya :
=luas_segitiga(10;5)
Nah pada contoh kasus kali ini kita
akan membuat fungsi sendiri, dalam
contoh kali ini kita akan membuat
fungsi untuk
menghitung :
luas segitiga, dengan fungsi
luas_segitiga(alas;tinggi)
luas persegi panjang, dengan fungsi
luas_persegipanjang(panjang;tinggi)
konversi suhu celcius ke kelvin
dengan fungsi celcius_ke_kelvin
(celcius)
Pembuatan fungsi sendiri (User
Defined Function) dilakukan dengan
menggunkan bahasa pemrogaman
Visual Basic Appliaction dalam hal
ini Macro untuk excel. Adapun
langkah-langkahnya adalah :
1. Buka jendela macro editor dengan
menekan tombol ALT+F11
2. Pada Project browser klik kanan
ThisWorksheet klik insert kemudian
pilih Module
3. pada jendela module ketik fungsi
fungsi seperti tampak pada gambar
berikut
dari tiga contoh diatas maka format
penulisan nya adalah :
Function nama_fungsi
(parameter_1,parameter_2,parameter_n)
nama_fungsi=formula
End Function
4. Tutup jendela macro editor dan
kembali ke lembar kerja excel
5. Simpan file excel dengan memilih
filetype nya Excel 97-2003 workbook
(*.xls) atau Excel Macro-enabled
workbook (*.xlsm)
6. Tutup file
7. Buka kembali, dan aktifkan macro
dengan cara menglik tombol option
pada section security option diatas
formula bar
8. Pilih enabled this content klik ok
9. Saatnya menguji apakah fungsi
berjalan atau tidak
10. Buatlah table data seperti gambar
dibawah ini, pada Cell D3 untuk
luas segitiga panggil fungsi sbb :
=luas_segitiga(B3;C3) tekan enter
maka hasil perhitungan akan
ditampilkan.
11. Pada cell D6 hitung luas persegi
panjang, panggil fungi luas_persegi()
=luas_segitiga(B3;C3) tekan enter
maka hasil perhitungan akan
ditampilkan
12. Dan untuk menghitung konversi dari
celcius ke kelvin gunakan fungsi
celcius_ke_kelvin()
misal untuk meng-konversi cell B9 ke
kelvin
=celcius_ke_kelvin(B9)