Contoh membuat fungsi dalam VBA Excel

VBA code untuk mencari luas area lingkaran adalah sebagai berikut:

 

Option Explicit ‘Agar programmer medeklarasikan seluruh variables.

 

‘ Dibuat pada 19/04/06 oleh Aurino Djamaris.

‘ Memakai diameter lingkaran sebagai input dan luas lingkaran sebagai output.

‘ Karena VBA tidak memiliki fungsi Pi, maka Application.pi() dipakai untuk menggunakan Fungsi Excel.

‘ Rumus luas lingkaran adalah ¼ * ? * Diameter ^2

 

Function Luas_Lingkaran (Diameter as Double) as Double

Luas_Lingkaran = 0.25 * Application.Pi() * Diameter ^2

End Function

 

Contoh Fungsi Diskon pembelian berdasarkan jumlah pembelian:

Option Explicit

Function Diskon(JumlahBeli)

‘ Fungsi ini dibuat untuk mendemonstrasikan Case dan Message Box.

‘ Catatan penggunaan titik dua (:) sbg pemisah perintah (statement).


Select Case JumlahBeli

Case 0 To 24: Diskon = 0.1 ‘ Penggunaan beberapa statement dalam 1 baris

Case 25 To 40: Diskon = 0.15 ‘ dipisahkan dengan titik dua ( : )

Case 50 To 74: Diskon = 0.2

Case Is >= 75: Diskon = 0.25

End Select

MsgBox “Diskon= ” & Diskon ‘ Sambung label dan nilai hasi perhitungan

‘ Catatan: Nilai ini tidak akan tampil di sel sampai user menjawab/mengklik message box.

End Function

3 thoughts on “Contoh membuat fungsi dalam VBA Excel

  1. Pak maaf saya mohon bantuannya, saya kesulitan untuk foreasting, udah saya coba dengan tutorialnya tetapi selalu error rumusnya…mohon bantuannya pak aurino trimakasih ( klo bisa disertai contoh kasus ya pak ) ke email saya saja…trimakasih

  2. Pak maaf saya mohon bantuannya, saya kesulitan untuk foreasting, udah saya coba dengan tutorialnya tetapi selalu error rumusnya…mohon bantuannya pak aurino trimakasih ( klo bisa disertai contoh kasus ya pak ) ke email saya saja

Leave a Reply

Your email address will not be published. Required fields are marked *