Pengertian Macro Excel Macro adalah sebuah fasilitas yang

Pengertian Macro Excel Macro adalah sebuah fasilitas yang ada pada Microsoft Excel yang dapat digunakan untuk merekam segala tindakan dan perintah yang dilakukan oleh program Excel. Macro juga bisa diartikan sebagai sederetan fungsi dan perintah program yang disimpan dalam menu Visual Basic. Artinya Visual Basic disini digunakan sebagai alat bantu dalam proses perekaman.

Membuat Fungsi sendiridengan VBA Excel Pada BAB ini akan membahas bagaimana cara membuat fungsi yang dibuat sendiri (user define function) pada Excel menggunakan. VBA. Hal iniberguna bila kita hendak membutuhkan sebuah fungsi yang tidak disediakan oleh Microsoft Excel. Pada bahasan kali ini, kami akan membuat fungsi yang akan merubah angka menjadi kata-kata pada Excel 2007.

MEMBUAT BERKAS YANG MEMILIKI MACRO PADA EXCEL 2007 Karena menggunakan Excel 2007 maka berkas Excel yang kita buat haruslah menggunakan extensi “. xslm”. Sekarang mari kita membuat sebuah berkas baru Excel, berkas tersebut masih dalam format “. xslx”.

Buka berkas tersebut, kemudian simpan sebagai fungsi sendiri. xlms

Maka kita telah membuat sebuah berkas Excel 2007 yang dapat menggunakan macro(macro enabled). Lalu kita atur keamanan dan privasi Excel kita pada Macro Settingsdan Trusted Location (lokasi terpercaya tempat kita menyimpan berkas-berkas excel ber-macro), sehingga macro yang telah kita buat dapat bekerja. Kedua pengaturan tersebut terdapat pada Excel Option-Trust Center-Trust_Center Settings.

Pada pengaturan Macro, pilih “Disabled All Macro Except Digitally Signed Macros” (pilihan ke 3) atau “Enabled All Macro” (pilihan ke 4), penulis menyarankan pilihan ke-4 bagi pemula. Kemudian kita atur juga lokasi folder yang terpercaya (Trusted Location), di komputer penulis terletak di “E: VBA”. Jangan lupa untuk mencentang pilihan “Subfolder of this location also trusted” agar subfolder dari folder ini juga dipercaya.

Setelah proses yang diatas kita pilih oke untuk melanjutkan proses selanjutnya, jendela akan muncul seperti gambar di bawah ini :

MEMBUAT FUNGSI MERUBAH ANGKA KE KATA UNTUK ANGKA TUNGGAL Untuk membuat fungsi sendiri, maka kita perlu membuat prosedur fungsi (function procedure) VBA pada module di Visual Basic Editor.

• • • Sekarang kita telah membuat sebuah fungsi bernama “angka_ke_kata” yang akan menghasilkan sebuah kata (tipe data string) dengan argumen sebuah angka (tipe datadouble). Tipe data string diperuntukkan untuk teks, sedangkan tipe data doublediperuntukkan untuk bilangan asli dan pecahan. Function angka_ke_kata(angka As Double) As String Dalam fungsi ini pertama kita akan menyiapkan array yang berisi teks yang berassosiasi dengan bilangan yang dimaksud. Array itu kita beri nama “kata_angka”, berukuran 10, yang beranggotakan kata untuk bilangan dari nol sampai sembilan. Dim kata_angka(10) As String kata_angka(0) = "nol" kata_angka(1) = "satu" kata_angka(2) = "dua" kata_angka(3) = "tiga" kata_angka(4) = "empat" kata_angka(5) = "lima" kata_angka(6) = "enam" kata_angka(7) = "tujuh" kata_angka(8) = "delapan" kata_angka(9) = "sembilan“ • Seperti gambar di bawah ini : • •

• Berdasarkan array ini kita sudah dapat membuat sebuah fungsi yang merubah angka tunggal menjadi kata. Kita cukup menambahkan kode VBA yang mengembalikan kata yang sesuai dengan argumen “angka” ketika fungsi “kata_ke_angka” dipanggil. • angka_ke_kata = kata_angka(angka)

Sekarang kita kembali ke “sheet 1” pada workbook Excel untuk mencoba fungsi yang telah dibuat. Isikan angka pada sel “A 1” kemudian pada sel “A 2” masukkan fungsi excel “angka_ke_kata”. Fungsi ini terletak pada pilihan fungsi “user defined”.

MEMBUAT FUNGSI MERUBAH ANGKA KE KATA UNTUK ANGKA LEBIH DARI 9 Sejauh ini kita telah membuat sebuah fungsi yang merubah angka ke kata. Tapi fugnsi ini bekerja hanya untuk angka-angka tunggal (dari nol sampai Sembilan). Lebih dari itu maka fugnsi init akan menghasilkan kesalahan, sebagai contoh kita tuliskan nilai 10 atau 200 di sel “A 1”. seperti gambar di bawah ini :

• • Selanjutnya kita akan melengkapi kode-kode di fungsi yang telah kita buat, sehingga dapat merubah angka lebih dari 9 menjadi kata. Algoritma nya sebenarnya cukup mudah, fungsi yang kita buat pertamaakan menghitung panjang angka yang akan diubah. Setelah itu fungsi tersebut akan merubah tiap anggota angka menggunakan array “kata_angka” seperti bahaasan sebelumnya, kemudian menggabungkan hasil-hasilnya. Sehingga hasil yang akan didapat nanti adalah berupa gabungan kata-kata, atau lebih tepatnya disebut kalimat. Dalam Visual Basic dikenal fungsi “Len(pernyataan)” yang berguna untuk mengetahui panjang sebuah teks (kata atau kalimat). Karena angka yang kita ubah berupa bilangan bukan teks, maka kita perlu merubah angka tersebut menjadi teks dengan fungsi “Cstr(pernyataan)”. Bilangan dalam format data double yang telah dikonversi menjadi format data string akan kita simpan dalam variabel “angka_dlm_teks”. Sedangkan panjangnya kita taruh dalam variabel “panjang_angka”. angka_dlm_teks = CStr(angka) panjang_angka = Len(angka_dlm_teks)

Ini adalah tampilankoding dalam VBA pada Microsoft Excel

Hasil Output :