Cara Membuat Fungsi Sendiri Di Ms. Excel 2003

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, jika terdapat kotak dialog seperti tampak pada gambar dibawah klik tombol No
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)