![Mengubah Angka Menjadi Teks Terbilang [UDF]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRSI6YeqRBmvo3vAZTyz1IYp-9Xga7W0uuRNJZGTwQ2cm6eTrKi2beCs30XUcxyIGFFn0kkrYCpT7P0dNvvnvdBmt5GCCS4sP0DTZ9aNlB96S2q50_J_Xm4BP8lZxH1rmIhbcXp90rRU0/s72-c/kwitansi-teks-terbilang.PNG)
New Post
Rss
Showing posts with label Excel VBA. Show all posts
Showing posts with label Excel VBA. Show all posts
April 21, 2019
March 10, 2017
Memainkan Audio di Excel
Dengan fitur conditional formatting dari Excel, kita bisa secara visual segera mengetahui bahwa suatu kondisi telah tercapai. Contohnya pada pada artikel “Memantau tanggal kadaluarsa” atau "Membuat TTS di Excel", secara visual kita langsung bisa mengetahui bahwa suatu produk sudah memasuki tanggal kadaluarsanya atau belum. Selain secara visual, ada kalanya juga kita menginginkan suatu penanda atau pengingat yang berupa suara. Sayangnya, belum ada function di Excel yang secara langsung bisa memainkan suara. Untuk itu kita membutuhkan bantuan macro untuk bisa memainkan file audio.May 18, 2016
Kalender Abadi (Dilengkapi Hari Libur Dinamis)
Fitur utama dari kalender abadi ini yaitu adanya penandaan hari libur nasional secara otomatis. Tingkat kesulitan terutama terletak pada penandaan hari libur islam yang memang selalu berubah (bergeser maju) setiap tahun dalam kalender masehi. Di excel sendiri ada fitur untuk mengkonversi tanggal hijriah ke masehi, bukan dengan menggunakan formula melainkan memanipulasi format cell. Tapi saya belum menemukan adanya formula yang secara khusus bisa mengubah tanggal masehi ke hijriah. Dan itu artinya saya harus membuat tabel besar yang berisi hari-hari libur islam sepanjang tahun. Selain membuat ukuran file menjadi besar, penggunaan tabel ini akan membuat kalender menjadi terbatas beberapa tahun saja, sesuai jumlah tahun yang ada di tabel. Karena itu saya mencoba memanfaatkan VBA. Setelah searching saya menemukan function VBA untuk mengkonversi tanggal masehi ke hijriah.September 6, 2015
![Memberi Jarak Antar Karakter [UDF]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIByudj0pxUoZqNaao00J1lGh1TzUsb1V0xAP-JjKZjT0KFlIxy5wDnLcCgvTGh1XmrrXqE_8xf31pru1Uf9Y3VKh_pJ6XSX1N12h0hqOxG7rFzx5O8YIuv3KZxIAh-_R_PHys_JgqRF4/s72-c/memberi-jarak-antar-karakter.PNG)
Memberi Jarak Antar Karakter [UDF]
Lihat contohnya pada gambar di bawah.Cell A1 berisi teks biasa yang diketikkan secara manual. Sedangkan pada cell A2 didapat dari penggunaan UDF (User-Defined Function) yang saya beri nama RENGGANG. Fungsi dari function RENGGANG ini yaitu untuk memberi jarak spasi antar setiap karakter. Function ini memiliki 2 argumen, yang pertama yaitu teks yang akan direnggangkan, dan yang kedua yaitu jarak spasi yang ingin disisipkan antar setiap karakter. Strukturnya seperti ini =RENGGANG(Teks, [Jarak]). Argumen Teks wajib diisi, bisa diisi dengan teks yang ditulis diantara tanda petik, atau reference ke cell lain. Pada contoh gambar di atas, argumen Teks berupa reference ke cell A1. Sedangkan argumen Jarak sifatnya optional, artinya boleh dikosongi. Jika argumen kedua dikosongi, maka jarak yang akan disisipkan di setiap karakter hanya sebanyak 1 spasi.
July 10, 2015
Mengubah Warna Cell dengan Macro
Contoh kasus
Di file ExcelPix (Use Your Illusion), saya membuat ExcelPix cover album ketiga Guns N' Roses yaitu "Use Your Illusion I". Di album keempat GNR, cover album menampilkan gambar yang sama tapi hanya berbeda scheme warna. Dengan cara manual kita bisa mengubah warna pada cell dengan memilih menuHome > Fill Color dan memilih Theme Color yang disediakan atau tentukan warna sendiri.June 23, 2015
Filter Data dengan Metode 'Search'
Pada tabel data yang sudah di-filter, menyaring data dengan metode search bisa dilakukan secara manual dengan cara meng-klik tanda segitiga di sebelah kanan header dan memasukkan kata kuncinya di kotak 'Search'. Sebagai contoh, saya gunakan tabel yang berisi daftar judul artikel di blog ini. Di tabel ini ada 4 header, yaitu NO, JUDUL, LABEL dan URL. Pertama blok bagian header, dan pilih menu
Data > Filter. Di setiap header akan muncul tanda segitiga di sebelah kanannya.June 10, 2015
Menyaring Data Berdasarkan Beberapa Kriteria
Menyaring data pada tabel dengan satu atau lebih kriteria bisa dilakukan secara semi manual dengan menggunakan menu "Advanced Filter" (di Office 2010 terletak di tab menu Data). Kali ini saya akan sharing bagaimana menghimpun data pada tabel yang sudah ada berdasarkan satu/lebih kriteria pada tabel baru dengan menggunakan VBA. Supaya lebih mudah, langsung ke contoh saja, saya punya data tentang frekuensi gempa di pulau-pulau besar di Indonesia yang saya dapat dari BPS. Dengan sedikit modifikasi saya ubah susunan tabelnya supaya bisa diterapkan filter.
June 8, 2015
Tebak Angka 2
Permainan ini saya peroleh dari sebuah buku yang pernah saya baca di sebuah toko buku, dulu jaman saya masih esempe. Seperti judulnya, tujuan permainan ini yaitu menebak angka yang dipikirkan oleh lawan main. Angka tersebut harus berada di range antara 5 sampai 60.Pertama, suruh lawan main kamu untuk memikirkan angka dari 5 sampai 60, lalu minta teman kamu untuk mengingatnya. Kemudian minta teman kamu untuk membagi angka tersebut dengan 3, dan tanyakan berapa sisanya (sisa dari pembagian, bukan hasil pembagian). Misal, jika teman kamu memikirkan angka 10, berarti jika dibagi dengan 3 maka hasilnya adalah 3 dengan sisanya adalah 1. Jika teman kamu memikirkan angka 59, maka jika dibagi dengan 3 maka hasilnya adalah 19 (3 x 19 = 57) dan sisanya adalah 2 (59 – 57 = 2). O ya…minta teman kamu untuk menyebutkan sisanya saja, hasilnya tidak perlu disebutkan. Setelah kamu mengetahui sisanya, diam-diam kamu kalikan angka sisa tadi dengan 40, lalu ingat-ingat angka tersebut (lawan main tidak perlu tahu). Misal, jika sisa pembagian tadi adalah 2, maka kalikan 2 dengan 40, jadinya 80. Ingat-ingat angka 80 ini, karena ini merupakan penunjuk jalan.
June 3, 2015
Tebak Angka
Di permainan ini, kamu akan akan diminta untuk memikirkan sebuah angka sembarang, mau satuan, puluhan, ratusan atau ribuan juga boleh. Tapi biar nggak kerepotan pilih saja angka kecil dari 1 sampai 100, karena nantinya kamu akan diminta menjumlahkan/mengurangi angka tersebut dengan angka lain yang diacak. Di akhir permainan, program akan menebak angka terakhir yang kamu dapat, bukan angka yang kamu pikirkan di awal, tapi angka terakhir yang didapat setelah beberapa kali penjumlahan/pengurangan. Klik link "MULAI" untuk memulai.
May 16, 2015
UDF untuk Operasi Penjumlahan dan Pengurangan Waktu pada Excel
Ketika saya memasukkan angka 0830 (yang menginterpretasikan waktu jam 08:30) cell A1 pada excel, lalu di cell B2 saya ingin tahu berapa waktu akhir jika waktu 0830 saya tambahkan dengan 45 menit. Hasil yang saya (dan mungkin semua orang) harapkan waktu akhirnya akan menjadi 0915. Tetapi jika kita memasukkan formula "=A1+45" maka hasilnya akan menjadi 0875 (atau 875 tergantung format cell-nya). Nah, bagaimana caranya supaya hasilnya bisa seperti yang diharapkan. Saya tidak tahu apakah excel punya formula yang mengakomodasi operasi penjumlahan/pengurangan jam dan menit. Tapi saya coba buatkan UDF (User Defined Function) untuk mengakomodasi keperluan tersebut. Salin dan tempel kode berikut ke dalam module VBA.May 10, 2015
Kamus Warna
Program ini saya buat setelah membaca ebook "Excel 2010 Power Programming with VBA" buah pikiran dari John Walkenbach. Di ebook tersebut cuma dipameri hasil jadinya tanpa ada skrip lengkapnya (kecuali kalau ebooknya dapat beli, baru dapat bonus CD yang berisi skrip lengkap). Program ini fungsinya untuk meng-generate kode warna. Kode warna yang tersedia yaitu RGB, Hexadecimal, Decimal, HSL, CMYK. Program ini juga bisa dipakai untuk meng-konversi kode RGB dari warna tertentu menjadi kode lainnya.
Subscribe to:
Posts (Atom)