Menciptakan fungsi buatan sendiri di Macro Microsoft Excel

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.