September 13, 2016

CARA MEMBUAT BUTTON UNIK UNTUK USERFORM VBA MACRO EXCEL

By excellerates Excel 0 Comments

Assalamulaikum Warohmatullahi Wabarokatuh

Sodara2 sekaliYan para pembatja jang boediman … disamping Fungsi atau Rumus yang sangat lengkap untuk membuat suatu Formula … Microsoft Excel juga telah dilengkapi dengan fitur macro menggunakan bahasa VBA (Visual Basic for Application) … fitur ini sangat bermanfaat untuk membuat Program / Aplikasi yang dapat membantu menyelesaikan pekerjaan2 yang berhubungan dengan olah data dalam lebar kerja / Spreadsheet … dalam suatu Program / Aplikasi keberadaan Userform tentu sangat diperlukan untuk berbagai tujuan seperti Entri / Input Data, Form Login , Pengaturan Aplikasi dan kegunaan lainnya untuk mempermudah interaksi User dengan Aplikasi … dalam pembuatan Userform ToolBox VBA juga sudah menyediakan berbagai macam kontrol standar yang masing2 mempunyai karakteristik kegunaan yang berbeda-beda

Selain kontrol2 standar seperti TextBox, Label, ListBox, ComboBox, CommandButton dan kawan2nya … kita juga dapat menambahkan kontrol2 Custom dengan kegunaan yang lebih spesifik …. yang akan membuat UserForm yang dibuat menjadi lebih interaktif … penampilan UserForm pun menjadi lebih ciamik 😎 … namun kontrol2 tersebut kadang menimbulkan masalah pada saat digunakan pada komputer berbeda … sehingga aplikasi yang sudah berjalan lancar pada saat kita bikin ternyata Error pada saat dibuka di komputer laEn 👿

Untuk menghindari masalah kompatibilitas tersebut saya lebih memilih menggunakan kontrol2 yang standar saja … apalagi untuk aplikasi2 yang saya share di blog ini tentu pada saat sOdara2 sekalian download dan gunakan pada komputer masing2 tentu akan sangat variatif baik versi Windows maupun Microsoft Officenya …. memang penggunaan kontrol2 standar akan membuat tampilan UserForm jadi membosankan dan kurang cantik … hal tersebut yang akan menjadi topik Problemma de Excellente kali ini … yaitu bagaimana cara membuat tampilan UserForm menjadi lebih cantik meskipun hanya menggunakan kontrol2 standar saja 💡

Dengan sedikit kreatifitas sebenarnya kontrol2 standar juga bisa dibikin lebih cantik dan unik … sebagai contoh saya akan berbagi cara membuat tombol / button unik untuk digunakan pada sebuah UserForm VBA Excel … untuk membuat sebuah Tombol / Button biasanya digunakan kontrol CommandButton … namun untuk bikin tombol kali ini saya memilih pakai kontrol Image yang dikombinasikan dengan trik “memainkan” event UserForm_MouseMove dan gambar latar / background UserForm (Picture Properties) … okeeeh langsung aja dimulaEi langkah2nya 😉

➡ Bikin gambar latar UserForm dan Tombol

Gambar Background UserForm digunakan untuk menampilkan tombol pada kondisi Nonaktif … silahkan sOdara bikin gambar dengan aplikasi yang sOdara kuasai … saya bikin gambarnya pakai Excel dan Microsoft Paint bawaan Windows saja 💡

desain dalam sheet Excel tersebut saya ambil Screenshoot dengan tombol “Print Screen” dan saya crop menggunakan Microsoft Paint … setelah dimutilasi gambar hasil Screenshoot tersebut akan menjadi 4 gambar :

Gambar background userform

gambar latar menampilkan tombol2 pada posisi Nonaktif / Off .… terlihat 3 tombol dengan warna yang kurang kontras sehingga penampakan tombol menjadi samar

2. Gambar Tombol1

3. Gambar Tombol2

4. Gambar Tombol3

Gambar 3 tombol diatas akan diLoad pada kontrol Image yang akan menampilkan masing2 tombol pada kondisi Aktif /On … warna terlihat lebih kontras dan penampakan gambar lebih jelas

➡ Bikin Userform

Belom tahu cara bikin UserForm ?????? klik disini untuk mengetahui caranya …. untuk memasukkan gambar yang sudah dibikin sebagai Background UserForm atur properties yang berkaitan dengan Picture seperti gambar berikut ini

jangan lupa sesuaikan ukuran Userform agar pas dengan ukuran gambar sehingga penampakan Userform akan seperti berikut ini

seperti yang sOdara lihat pada gambar … background UserForm sudah terisi gambar dengan 3 tombol yang masih pada kondisi nonaktif … sebenarnya tombol2 tersebut hanya merupakan tombol “palsu” 🙄 … karena tombol sebenarnya ada pada kontrol Imagenya

➡ Tambahkan 3 kontrol Image

Cara menambahkan kontrol ke UserForm kalO sOdara belOm tahu silahkan klik disini … untuk memasukkan gambar tombol ke masing2 kontrol Image caranya sama seperti cara memasukkan gambar Background diatas yaitu dengan mengatur Properties Picture

sesuaikan juga ukurannya agar pas dengan mengatur Properties Height dan Width

setelah itu atur juga posisi masing2 kontrol Image yang akan menampilkan tombol pada posisi aktif tersebut TEPAT PADA GAMBAR TOMBOL PADA KONDISI NONAKTIF yang ada pada gambar Background UserForm …. caranya dengan mengatur Properties Top dan Left

atur juga beberapa Properties lainya untuk tiga kontrol Image tersebut sebagai berikut :

Visible = False
BorderStyle = 0
BackSTyle = 0

Sehingga penampakan UserForm akan sperti gambar berikut

Image1 untuk Tombol 1 warna Biru
Image2 untuk Tombol 2 warna Orange
Image3 untuk Tombol 3 warna Hijau

➡ Tambahkan 2 kontrol TextBox

Dua kontrol TextBox ini digunakan hanya untuk membantu mendapatkan koordinat yang tepat untuk masing2 tombol (kontrol Image)… kalO sOdara2 sekaliYan memilih tidak membuatnya ndak papah … karena TextBox ini nantinya jugak akan dihapus … sOdara boleh pakai perkiraan saja untuk menentukan koordinat masing2 kontrol Image

TextBox1 untuk menampung nilai koordinat sumbu x (sumbu vertikal) warna kuning
TextBox2 untuk menampung nilai koordinat sumbu y (sumbu horizontal) warna pink

➡ Tentukan koordinat masing2 Tombol

Masing2 tombol akan mempunyai 2 koordinat X (horizontal) dan 2 koordinat Y(vertical) … karena 3 tombol tersebut berada sejajar secara horizontal maka koordinat Y ketiga tombol tersebut akan sama … untuk menentukan koordinat seperti yang sudah saya sampaikan sebelumnya bisa dengan dua cara : perkiraan dan menggunakan bantuan TextBox

Cara menentukan koordinat masing2 tombol dengan perkiraan akan lebih praktis tapi mungkin kurang presisi … Jika sOdara memilih menggunakan perkiraan bisa menggunakan panduan berikut :

Y1 (atas) = nilai Properties Top dari kontrol Image
Y2 (bawah) = Y1 + nilai Properties Height dari kontrol Image
Catatan : semua kontrol Image mempunyai koordinat Y1 dan Y2 yang sama
X1 (kiri) = nilai Properties Left dari kontrol Image
X2 (kanan) = X1 + nilai Properties Width dari kontrol Image
Catatan : masing2 kontrol Image akan mempunyai koordinat X1 dan X2 sendiri

Jika sodara mau menggunaka TextBox Bantuan agar lebih presisi bikin kode berikut pada event UserForm_MouseMove

Setelah itu run UserFormnya dan coba gerakkan mousenya … catat angka yang ditunjukkan pada TextBox untuk titik2 yang berwarna biru dan merah berikut

Titik Merah menunjukkan koordinat Y1 dan Y2 dan ini berlaku sama untuk semua tombol karena sejajar horizontal … untuk Y1 dan Y2 saya dapat angka dari TextBox2 (warna pink) sebagai berikut :

Y1 (atas) = 125 , pada kode VBA yang nanti akan dibikin, nilai ini digunakan sebagai nilai konstanta Atas
Y2 (bawah) = 162 , digunakan untuk nilai konstanta Bawah

Titik Biru menunjukkan koordinat X yang untuk masing2 tombol berbeda … koordinat X akan digunakan sebagai nilai konstanta Kiri dan Kanan … karena koordinat X masing2 tombol berbeda maka konstantanya dibuat untuk masing2 tombol … nialai x bisa dilihat pada TextBox1 (warna kuning)

X1 (kiri) untuk T1 (tombol1) = 5 , digunakan untuk nilai konstanta Kiri1
X2(kanan) untuk T1 (tombol1) = 106 , digunakan untuk nilai konstanta Kanan1
X1 (kiri) untuk T2 (tombol2) = 124 , digunakan untuk nilai konstanta Kiri2
X2(kanan) untuk T2 (tombol2) = 225 , digunakan untuk nilai konstanta Kanan2
X1 (kiri) untuk T3 (tombol3) = 238 , digunakan untuk nilai konsanta Kiri3
X2(kanan) untuk T3 (tombol3) = 342 , digunakan untuk nilai konstanta Kanan3

➡ Bikin kode VBA

Awali kode VBAnya dengan mendeklarasikan semua konstanta yang digunakan dan kemudian bikin kode untuk event UserForm_MouseMove … kode yang sudah ada sebelumnya bisa dihapus kalau sekiranya sudah tidak diperlukan lagi

Coba diRun UserForm yang sudah dibikinkan kodenya tersebut … jika berhasil maka saat pointer mouse berada pada tombol yang dalam kondisi nonaktif maka tombol tersebut akan merubah menjadi berwarna (kondisi aktif) … selanjutnya tinggal bikin kode yang akan dijalankan untuk masing2 Tombol … silahkan bikin sesuai keperluan sOdara2 sekaliyan

Demikiyan sekedar sharing cara membuat tombol unik di UserForm VBA Excel … silahkan download contoh file TombolUnik.xlsm yang ada pada Folder 2016 >> 09SEP … sekiYan … semoga manpaat dan MDLMDL 😉