Diskusi tentang Excel

Ini Contoh Coding Menentukan Ukuran Form dengan VBA

Ada banyak cara untuk menentukan ukuran form dalam Ms. Excel tentunya cara-cara tersebut tergantung si pembuat ada yang menggunakan DRAG atau menarik node UserForm dan menentukan ukuran sesuai keinginan tetapi ada juga yang menggunakan properties dari userform tersebut.

Nah, kali ini saya akan mencoba bagaimana cara membuat ukuran UserForm dalam VBA dengan menggunakan coding. Langkah pertama silakan sisipkan satu buah userform Anda tentu sudah mengetahui bagaimana cara menambahkan userform

Simak :
Cara Membuat UserForm untuk Pemula
Langkah berikutnya silakan klik kanan untuk menampilkan Code / ViewCode kemudian buat prosedur Initialize dengan object UserForm1. Untuk standar biasanya ukuran userform adalah Heigh: 180 dan Width: 240 kita akan merubah ini dengan coding dan silakan ketikkan coding VBA berikut ini

Private Sub UserForm_Initialize()
With UserForm1
    .Height = 300
    .Width = 100
End With
End Sub

Perhatikan jika kita run hasilnya akan seperti berikut


Namun ketika kita close userform yang sedang berjalan tersebut pada desain tetap ukurannya adalah ukuran standar seperti gambar berikut ini



Nah, lalu apa bedanya dengan merubah ukuran userform melalui properties?
Jika melalui coding userform akan berubah ukuran ketika dijalankan saja dan dapat kita rubah atau manipulasi dengan berbagai ukuran yang diinginkan dan sifatnya dinamis tetapi jika perubahan ukuran userform melalui properties sifatnya statis.

Materi ini bisa diaplikasikan misalnya dengan prosedure klik jika Anda klik maja userform akan  berubah ukuran. Misalnya kita tambahkan satu buah commandbutton untuk merubah ukuran maka script atau coding diatas ditempatkan pada object commandbutton.         


Langkah berikutnya silakan ganti atau pindahkan coding pada object Userform Initialize ke Commandbutton

Private Sub CommandButton1_Click()
With UserForm1
    .Height = 300
    .Width = 100
End With
End Sub

Silakan jalankan atau run program tersebut dan lakukan klik pada tombol "Rubah" maka secara otomatis ketika Anda klik tombol tersebut ukuran form akan berubah sesuai dengan ukuran diatas.

Demikian, semoga bermanfaat.

Simak juga :
Cara Diasable dan Enable Commandbutton pada Userform



Related

UserForm 2895949793438338388

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item