Referensi: http://office.microsoft.com/en-au/excel-help/creating-custom-functions-HA001111701.aspx
1. Harus insert module
2. Copy code berikut ke jendela Book1 - Module1(Code)
Function tambah(a, b)
c = a + b
MsgBox (c)
End Function
Fungsi diatas menambahkan argumen a dan argumen b kedalam c dan menampilkan hasilnya di jendela msgbox.
Fungsi buatan sendiri harus dimulai dengan kalimat Function dan diakhiri dengan kalimat End Function.
Komponen fungsi: nama fungsi (dalam hal ini aloha) dan argumen-argumen (dalam hal ini a dan b) dan procedure.
1. Nama fungsi = bebas / terserah; lebih baik beri nama yang mencerminkan nilai yang dikandungnya.
2. Argumen-argumen = bisa tidak ada argumen, bisa sampai 29 argumen maksimum dengan menambahkan koma-koma diantaranya.
3. Procedure
Fungsi buatan sendiri berbeda dengan macro dan berbeda dengan Excel's built-in function. Contoh Excel's built-in function: RAND(), NOW().
3. Kembali ke jendela kotak-kotak excel dengan menekan tombol alt + F11 dan pada salah satu sel ketik "=aloha(A1;A2)" (tanpa tanda petik)
Beberapa contoh lainnya:
1.
Function Discount(quantity, price)
If quantity >= 100 Then
Discount = quantity * price * 0.1
Else
Discount = 0
End If
Discount = Application.Round(Discount, 2)
End Function
Fungsi diatas pada dasarnya mengerjakan apabila jumlah barang yang dibeli (kuantitas barang)
lebih besar dari 100 barang maka mendapatkan diskon sebesar 0.1. Sebaliknya, jika jumlah
barang yang dibeli dibawah 100 tidak ada diskon / potongan harga.