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)
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 :
- Buka jendela macro editor dengan menekan tombol ALT+F11
- Pada Project browser klik kanan ThisWorksheet klik insert kemudian pilih Module
- 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
Function nama_fungsi(parameter_1,parameter_2,parameter_n)
nama_fungsi=formula
End Function
- Tutup jendela macro editor dan kembali ke lembar kerja excel, jika terdapat kotak dialog seperti tampak pada gambar dibawah klik tombol No
- Simpan file excel dengan memilih filetype nya Excel 97-2003 workbook (*.xls) atau Excel Macro-enabled workbook (*.xlsm)
- Tutup file
- Buka kembali, dan aktifkan macro dengan cara menglik tombol option pada section security option diatas formula bar
- Pilih enabled this content klik ok
- Saatnya menguji apakah fungsi berjalan atau tidak
- 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.
- Pada cell D6 hitung luas
persegi panjang, panggil fungi luas_persegi()
=luas_segitiga(B3;C3) tekan enter maka hasil perhitungan akan ditampilkan
- 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)
|
Tidak ada komentar:
Posting Komentar