√ Ini Pola Coding Memilih Ukuran Form Dengan Vba

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

Nah, kali ini saya akan mencoba bagaimana cara menciptakan ukuran UserForm dalam VBA dengan memakai 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 mekanisme Initialize dengan object UserForm1. Untuk standar biasanya ukuran userform ialah 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 jikalau kita run akibatnya akan ibarat berikut

Namun dikala kita close userform yang sedang berjalan tersebut pada desain tetap ukurannya ialah ukuran standar ibarat gambar berikut ini

Nah, kemudian apa bedanya dengan merubah ukuran userform melalui properties?
Jika melalui coding userform akan berubah ukuran dikala dijalankan saja dan sanggup kita rubah atau manipulasi dengan banyak sekali ukuran yang diinginkan dan sifatnya dinamis tetapi jikalau perubahan ukuran userform melalui properties sifatnya statis.

Materi ini sanggup diaplikasikan contohnya dengan prosedure klik jikalau 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 kegiatan tersebut dan lakukan klik pada tombol "Rubah" maka secara otomatis dikala Anda klik tombol tersebut ukuran form akan berubah sesuai dengan ukuran diatas.

Demikian, biar bermanfaat.

Simak juga :

Cara Diasable dan Enable Commandbutton pada Userform

Sumber http://www.excel-id.com/