Kreasi fungsi custom office excel 2007

Untuk memudahkan penggunaan office excel 2007,Kita dapat menambahkan Fungsi kustom sendiri yang sesuai dengan kebutuhan kita, seperti macro, dan lainya dengan menggunakan bahasa pemrograman Visual Basic for Applications (VBA).

Ada dua cara yang Bisa kita Gunakan. Pertama, menggunakan prosedur Function ( ingat bukan prosedur sub fungsi ). Artinya, memulai dengan Function dan diakhiri dengan End Function bukan End Sub.Yang kedua, dengan melakukan perhitungan fungsi pada kustom. Mari kita bahas bagaimana membuat dan menggunakan fungsi kustom/Add ins pada Office excel 2007.

Untuk lebih mudahnya dalam pembahasan,anggap saja kita punya perusahaan yang menawarkan diskon kuantitas 10 persen pada penjualan produk,dan menyediakan pesanan lebih dari 100 unit. Untuk cara mudah menghitung diskon kita harus menambahkan fungsi/Add ins.
Pada gambar di bawah ini menunjukkan formulir pemesanan yang berisi daftar setiap item, jumlah, harga, diskon (jika ada), dan harga berikut Jumlah Total keseluruhannya.

Gambar 1

Untuk membuat fungsi Custom/Add ins DISKON dalam lembaran kerja, ikuti langkahnya sebagai berikut:

1.Tekan Alt + F11 maka akan keluar tampilan Visual Basic Editor, dan kemudian klik Insert - Module. Sebuah modul baru akan muncul, seperti yang ditunjukkan pada Gambar 2 di bawah ini:

Gambar 2

Pada Gambar 1 kolom F, kita ingin menghitung diskon untuk setiap item yang dipesan.

2.Pada modul baru, ketikkan kode berikut.

Function Discount(quantity, price)
If quantity >=100 Then
Discount = quantity * price * 0.1
Else
Discount = 0
End If
Discount = Application.Round(Discount, 2)
End Function

Untuk membuat kode lebih mudah dibaca, gunakan tombol Tab untuk indentasi baris. (Indentasi ini terdapat dua opsi pilihan, Kode akan dijalankan dengan atau tanpa indentasi..) Setelah mengetik garis indentasi, Visual Basic Editor ( VBA ) akan mengasumsikan baris yang sama pada indentasi berikutnya. Untuk bergerak ke kiri satu karakter tab, tekan Shift + Tab.

Cara menggunakannya

Sampai disini kita sudah mempunyai fungsi baru untuk menghitung DISKON. Tekan Alt + F11 untuk beralih ke worksheet yang ditunjukkan pada Gambar 1. Pilih sel F9, dan ketikkan berikut ini:
= DISKON (C9, D9)
Excel menghitung diskon 10 persen pada 200 unit di Rp. 47,50 per unit dan kembali Rp. 950,00.

Pada baris pertama kode fungsi Diskon menunjukkan bahwa fungsi DISKON membutuhkan dua argumen, kuantitas dan harga. Ketika memanggil fungsi dalam shel worksheet, harus memasukkan dua argumen. dengan rumus = DISKON (C9, D9), C9 adalah rumus argumen kuantitas, dan D9 adalah argumen harga. Sekarang kita sudah dapat menyalin rumus DISKON pada F10: F15 untuk mendapatkan lembar kerja yang ditunjukkan pada Gambar 3.

Gambar 3

Mari kita mempertimbangkan bagaimana menafsirkan Excel prosedur ini berfungsi. Ketika menekan Enter, Excel akan mencari fungsi DISKON dari nama dalam lembar kerja menjadi prosedur Module1. Nama argumen dalam tanda kurung adalah kuantitas dan harga yang berbasis pada perhitungan nilai-nilai Diskon.

Gambar 3 Lembar kerja ini menunjukkan hasil dari Add ins DISKON

Code tersebut membahas argumen kuantitas dan menentukan apakah jumlah item yang terjual lebih besar dari atau sama dengan 100:

If quantity >= 100 Then

Discount = quantity * price * 0.1

Else

Discount = 0

End If

Jika jumlah item yang terjual lebih besar atau sama dengan 100, VBA mengeksekusi pernyataan berikut, yang mengalikan kuantitas oleh nilai nilai harga dan kemudian mengalikan hasilnya dengan 0,1:
Discount = quantity * price * 0.1

Hasilnya disimpan sebagai variabel Diskon. Sebuah pernyataan VBA yang menyimpan nilai dalam variabel disebut pernyataan penugasan, karena mengevaluasi ekspresi pada sisi kanan tanda sama dan memberikan hasilnya ke nama variabel di sebelah kiri. Karena Diskon variabel memiliki nama yang sama sebagai prosedur fungsi, nilai yang disimpan dalam variabel dikembalikan ke rumus worksheet yang disebut fungsi DISKON.

Jika kuantitas kurang dari 100, VBA mengeksekusi pernyataan berikut:

Discount = 0

Berikut adalah nilai yang diberikan ke variabel Diskon untuk dua tempat desimal:

Discount = Application.Round(Discount, 2)

VBA tidak memiliki fungsi ROUND, Oleh karena itu, untuk menggunakan ROUND dalam pernyataan ini, haru membuka VBA untuk mencari ROUND METHOD (fungsi) di objek Aplikasi (Excel). dengan menambahkan Aplikasi kata sebelum Putaran kata. Gunakan sintaks ini setiap kali perlu untuk mengakses fungsi Excel dari modul VBA.


Memahami Aturan Fungsi Kustom/Add ins

Sebuah fungsi kustom harus dimulai dengan pernyataan Function dan diakhiri dengan pernyataan End Function. Selain nama fungsi, pernyataan Fungsi biasanya menentukan lebih dari satu argumen. Pada Excel Office 2007 sudah terdapat built-in fungsi-RAND, jika User tidak menggunakan argumen.

Prosedur fungsi ini mencakup satu atau lebih pernyataan VBA yang membuat keputusan dan melakukan perhitungan dengan menggunakan argumen melalui fungsi. pada suatu tempat dalam prosedur fungsi, harus menyertakan pernyataan yang memberikan nilai ke sebuah variabel dengan nama yang sama dengan fungsi. Nilai ini dikembalikan ke rumus yang memanggil fungsi tadi.

Menggunakan Kata kunci VBA di Fungsi Kustom/Addins

Jumlah kata kunci VBA dapat di gunakan dalam fungsi kustom,dan lebih kecil dari jumlah yang dapat di gunakan pada macro. Fungsi kustom tidak diizinkan untuk melakukan apa pun selain mengembalikan nilai ke dalam worksheet . Misalnya, fungsi kustom tidak dapat mengubah ukuran jendela; mengedit formula dalam sel, atau mengubah font, warna, atau pilihan pola untuk teks dalam shel.

Tindakan satu prosedur fungsi selain dari melakukan perhitungan adalah menampilkan kotak dialog. disini dapat menggunakan pernyataan Input Box dalam fungsi kustom sebagai sarana untuk mendapatkan masukan dari pengguna yang me non fungsikannya. Anda dapat menggunakan pernyataan MsgBox sebagai sarana untuk menyampaikan informasi kepada pengguna.

Mendokumentasikan Macro dan Fungsi Kustom/Add ins

Bahkan macro sederhana dan fungsi kustom bisa sulit untuk dibaca. Anda dapat membuat mereka lebih mudah untuk di pahami dengan mengetik teks penjelasan dalam bentuk komentar. tambahkan komentar apostrof dengan teks yang berisikan penjelasannya. Sebagai contoh, Gambar 4 menunjukkan fungsi DISKON dengan komentar. Menambahkan komentar seperti ini membuat lebih mudah bagi orang lain dan untuk menjaga kode VBA seiring berjalannya waktu. Jika suatu saat perlu membuat perubahan ke kode . akan memiliki waktu lebih mudah untuk memahami apa yang kita lakukan pada awalnya.

Gambar 4

Membuat Fungsi Kustom/Add ins Anywhere

Untuk menggunakan fungsi kustom, harus di dahului dengan nama fungsi dan nama workbook pada fungsi itu berada. Sebagai contoh, jika Anda memanggil fungsi DISKON di buku kerja Personal.xlsb dan akan memanggil fungsi dari buku kerja yang lain, kita harus mengetikkan = personal.xlsb diskon (!).

Kita dapat menyelamatkan data jika terjadi kesalahan dalam pengetikkan dengan beberapa penekanan tombol, dengan memilih fungsi kustom yang sudah di buat melalui kotak dialog Insert Function. Fungsi kustom akan muncul dengan kategori User Definned (Ditetapkan Pengguna ):

Gambar 5

Sebuah cara mudah untuk membuat fungsi Custom tersedia di setiap saat ,adalah dengan menyimpannya dalam buku kerja yang terpisah, kemudian menyimpan workbook sebagai add-in. Berikut adalah cara untuk melakukannya:

1.Setelah kita menciptakan fungsi yang di butuhkan, klik Tombol Microsoft Office, dan klik Save As.
2.Dalam kotak dialog Save As, buka Save As Type - drop-down, dan pilih Excel Add-In. Simpan lembar kerja di
bawah nama- sebagai MyFunctions-dalam folder Addins. (accept the default location.)
3.Setelah menyimpan lembar kerja, klik Tombol Microsoft Office, dan klik Opsi Excel.
4.Pada kotak dialog Opsi Excel, klik Add-Ins kategori.
5.Dalam Mengelola daftar drop-down, pilih Excel Add-Ins. Kemudian klik tombol Go.
6.Pada kotak dialog Add-Ins, pilih kotak cek di sebelah nama yang digunakan untuk menyimpan lembar kerja,seperti yang ditunjukkan di bawah ini.

Gambar 6

Setelah mengikuti langkah-langkah tersebut, fungsi kustom akan tersedia setiap kali menjalankan Excel. Jika ingin menambahkan fungsi ke Folder, tekan Alt + F11 untuk kembali ke Visual Basic Editor. Seperti Gambar 5 yang menunjukkan Proyek Visual Basic Editor .Di bawah judul VBAProject,akan terlihat modul bernama setelah kita melakukan add-in file. (add-in akan memiliki ekstensi xlam..)

Gambar 7

Gambar 5 Jika Anda menyimpan fungsi kustom Anda sebagai add-in, kode untuk fungsi-fungsi yang tersedia dalam modul dan Visual Basic Editor.

Semoga bermanfaat

Di tulis Oleh :

---

Translate to : by

---

postingan ini berkategori TIP / TRIK dengan judul Kreasi fungsi custom office excel 2007 . Jangan lupa menyertakan URL http://joyodrono-cahmabung.blogspot.com/2012/01/kreasi-fungsi-custom-office-excel-2007.html . Jika ingin memposting ulang . Terima kasih!