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 Comments

  • wahyu says:

    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

  • wahyu says:

    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 *