Cara menggunakan Function Procedure VBA Excel #09
Setelah memahami bagaimana membuat function procedure pada VBA Excel, tentunya kita juga harus tahu bagaimana Tutorial menjalankan, memangggil atau mengeksekusi prosedur fungsi yang telah dibentuk.
Sebelumnya kita juga sudah mempelajari 9 Tutorial menjalankan sub procedure, apakah untuk function procedure Tutorialnya juga sama?
Sayangnya Cara untuk menggunakan function procedure sedikit terbatas. Secara umum anda mampu menggunakan 3 alternatif Cara berikut untuk menjalankan atau memanggil sebuah function procedure:
- Memanggil funtion procedure dari procedure lain.
- Menjalankan function procedure dari Immediate Window.
- Menggunakan function procedure sebagai rumus excel.
Pada seri panduan Excel VBA Dasar kali ini kita akan membahas ketiga Tutorial tersebut.
Sebelum melanjutkan pembahasan perihal Cara menggunakan prosedur fungsi pada VBA Excel ini, silahkan anda buat dulu sebuah standart module gres kemudian buatlah sebuah function procedure seakan-akan berikut pada modul tersebut.
Function DISKON(jumlah As Long, harga As Currency, Optional persen As Double = 0.05)
'Deklarasi variabel jmlDiskon
Dim jmlDiskon As Currency
'Menghitung jumlah diskon
jmlDiskon = jumlah * harga * persen
'Assign return value diskon kepada fungsi DISKON
DISKON = jmlDiskon
End Function
Anggap saja UDF atau custom function di atas dipakai untuk menghitung diskon penjualan barang dengan menggunakan 3 parameter atau argumen:
- jumlah: menunjukkan jumlah barang yang terjual.
- harga: memperlihatkan harga satuan barang yang dijual.
- persen: menunjukkan besaran diskon yang mana nilai defaultnya ialah 0,05 atau 5%.
Umumnya untuk mendapatkan diskon ada kriteria tertentu yang harus terpenuhi, namun supaya lebih sederhana diskon penjulana disini kita hitung tanpa kriteria apapun.
Jika sudah dibuat mari kita lanjutkan pada pembahasan Tutorial menggunakan function procedure tersebut.
Cara Memanggil Function Procedure Dari Procedure Yang Lainnya
Cara pertama yang mampu kita gunakan untuk memanggil atau menjalankan function procedure adalah dengan memanggilnya dari procedure lain.
Cara yang umum digunakan adalah dengan sajianliskan baris aba-aba yang berisi nama fungsi beserta nilai-nilai argumennya. contohnya berikut ini:
Sub munculkanDiskon()
MsgBox DISKON(10, 1500, 0.25)
End Sub
Jika anda menjalankan mekanismee diatas karenanya ialah kotak pesan berikut:
Angka 3750 pada kotak pesan tersebut didapatkan dari hasil kalkulasi oleh fungsi DISKON (10*1500*25%).
Cara lain adalah dengan menggunakan Application.Run method seolah-olah berikut ini:
Sub tampilkanDiskon()
MsgBox Application.Run("DISKON", 10, 1500, 0.25)
End Sub
Prosedure di atas akan menghasilkan kotak pesan yang sama seolah-olah sebelumnya.
Cara Menjalankan Function Procedure Dari Immediate Window
Cara lain untuk menjalankan sebuah function procedure adalah dengan memanggilnya dari Immediate Window. Sebelum mampu menggunakannya tentunya anda harus menampilkan dulu Immediate Window yang sudah kita bahas pada seri sebelumnya.
Metode ini biasanya dipakai untuk melaksanakan debug instruksi VBA, dengan kata lain untuk mengusut atau menguji apakah isyarat VBA yang kita buat sudah sesuai keinginan atau ada error tertentu.
Cara yang biasa digunakan adalah dengan memakai printah "Print" lalu diikuti nama fungsi dan argumennya lalu tekan Enter seakan-akan berikut ini:
Anda juga mampu menggantikan perintah "Print" dengan tanda tanya (?) seolah-olah ini:
Nah, simpel bukan?
Cara menggunakan Function Procedure Sebagai Rumus Excel
Pada pembahasan ihwal function procedure, disebutkan bahwa function procedure juga lazim disebut sebagai Custom function dan juga sebagai User Defined Funtion (UDF).
Hal ini lebih di sebabkan lantaran function procedure mampu kita perlakukan layaknya fungsi bawaan excel semisal fungsi SUM, AVERAGE, VLOOKUP, dan lain sebagainya.
Jadi kita juga mampu menggunakan function procedure sebagai sebuah rumus excel bahkan mampu juga dipakai pada conditional formatting.
Cara menggunakannya juga seolah-olah saat anda memakai fungsi default excel, yaitu dengan mengetikkan tanda sama dengan (=) kemudian diikuti dengan nama fungsi, lengkap dengan argumen-argumentnya.
Berikut acuannya:
=DISKON(10; 1500; 0,25)
Cara di atas berlaku jikalau function procedure yang anda buat anda gunakan pada file yang sama.
Fungsi DISKON diatas, kalau anda gunakan untuk file yang lain akan menghasilkan error #NAME? seakan-akan ini:
Jika bermaksud memakainya pada workbook yang berbeda maka ikut sertakan juga nama file yang menyimpan function procedure DISKON seperti ini.
='Kelas Excel-Latihan VBA 6.xlsm'!DISKON(10; 1500; 0,25)
Cara seakan-akan diatas berlaku jikalau file "Kelas Excel-Latihan VBA 6.xlsm" dalam kondisi open(terbuka).
Jika tidak ingin memakai nama file anda dapat juga menetapkan acuan pada file/workbook excel yang menyimpan fungsi DISKON tersebut yang bisa anda atur pada Menu Tools VBE.
Masih ada pertanyaan? Silahkan sampaikan pada kolom komentar yang tersedia.
Komentar
Posting Komentar