Contoh membuat fungsi dalam VBA Excel

February 28, 2009 at 1:56 pm 3 comments

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

Entry filed under: VBA. Tags: .

Entrepreneurial Youth (E-Youth) 2009 ”Seminar dan Workshop” File sharing

3 Comments Add your own

  • 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

    Reply
  • 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

    Reply

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 94,725 hits

Twitter Updates

Iklan


%d bloggers like this: