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

Share

6 comments for “Contoh membuat fungsi dalam VBA Excel

  1. wahyu
    March 22, 2009 at 5:04 am
    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
    • aurino
      March 27, 2009 at 4:26 am
      saya coba bantu mas wahyu … tapi yang namanya forecasting kan banyak … bagaimana kalau mas wahyu mengirimkan sampel datanya dulu ke aurinodjamaris@gmail.com
  2. wahyu
    March 22, 2009 at 5:05 am
    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
  3. bunga
    April 10, 2010 at 10:05 am
    Permisi pak, plzzzz minta tolong. contohin algoritma programnya yang di atas yang ada judul algoritma, deklarasi/kamus, algoritma/deskripsi. msh bingung cara bikin algoritma program.

    Makasih banyak.

  4. KOJAX
    September 14, 2010 at 10:30 pm
    PAK, CARA BUAT APLIKASI EXCEL MEMAKAI USERFORM/VBA GIMANA CARANYA…?? MISALNYA KITA MAU BUAT RANGKAIAN FORM YANG MIRIP DENGAN FORM YG DIBUAT DGN VISUAL BASIC 6.0…..TANPA HARUS BUKA WORKSHEET ECXEL DULU…..MAKASIH PAK
  5. muslim
    March 5, 2012 at 7:12 am
    mas saya ingin belajar membuat antar muka(inter face) di excel yang bagus beserta link-linknya tapi tidakfaham samasekali.gimana kalau saya dikirimi program yang sudah jadike email saya. saya sudah cari diinternet tapi pasti di password. trim sebelumnya

Leave a Reply