Cara Membuat Menu di Userform Excel

Ingin tampilan aplikasi vba kamu jauh lebih menarik? coba gunakan cara ini untuk membuat aplikasi kamu tidak membosankan. Mari kita belajar bersama.. Saya akan menggunakan cara color  dan hover atau kalau di excel vba namanya mouse move. Saya hanya membuat menu saja ya.. untuk yang lain kamu bisa cari di kolom pencarian atau silahkan request jika tidak ada, apabila saya bisa nanti akan saya buatkan tutorialnya. Seperti biasa silahkan masuk ke window VBA dengan cara tekan Alt+F11 atau fn+Alt+F11

Oiya.. Jangan lupa aktifkan macronya dulu ya.. kalau kamu belum bisa silahkan lihat di sini.

Sebelum perhatikan komponen berikut : 

Tools	Keterangan
Userform	Jumlah 1
Frame	Jumlah 1
Label	Jumlah 2 untuk Layer
Label	Jumlah 4 untuk Menu

Setelah itu silahkan kamu buat dari komponen diatas dan susun seperti contoh berikut ini:

Jika sudah kamu bisa masuk kedalam form codingnya.. silahkan klik 2x pada userform nanti akan muncul form seperti ini

Sekarang kamu ubah Private Sub UserForm_Click() menjadi Private Sub UserForm_Initialize()

Nah sekarang kita akan bikin warna komponen diatas terlebih dulu. Perlu diingat saya tidak membuatnya warnanya manual ya tapi melalui system coding. Ada beberapa cara mewarnainya, kamu bisa menggunakan warna yang sudah ada yang ada di properties, tapi saya tidak menggunakan itu karena kamu pasti sudah bisa. Saya akan menggunakan warna dari RGB, kamu bisa cari code RGB nya di google atau di Colorhexa.com , berikut ini warna dan code yang saya gunakan

Warna	Code	Keterangan
Warna 1	(52, 73, 94)	Untuk Userform
Warna 2	(29, 209, 161)	Untuk Frame
Warna 3	(16, 172, 132)	Untuk Label Menu
Warna 4	(255, 255, 255)	Untuk Caption

Selanjutnya kita akan membuat design warna awal, kita akan buat warna Userform, label dan frame terlebih dahulu, kamu bisa ketik code dibawah ini pada form coding dibawah Private Sub UserForm_Initialize() tapi sebelumnya hapus caption label1 dan label2 lalu buat label3 sampai label6 menjadi transparent dan ubah captionnya dulu ya..

Private Sub UserForm_Initialize()
    With Me
        .BackColor = RGB(52, 73, 94)
        .Frame1.BackColor = RGB(29, 209, 161)
        .Label1.BackColor = RGB(16, 172, 132)
        .Label2.BackColor = RGB(16, 172, 132)
        .Label3.ForeColor = RGB(255, 255, 255)
        .Label4.ForeColor = RGB(255, 255, 255)
        .Label5.ForeColor = RGB(255, 255, 255)
        .Label6.ForeColor = RGB(255, 255, 255)
        .Frame1.Height = 36
    End With
End Sub

Selanjutnya buat hover pada menu, coba kamu klik 2x pada label3 akan muncul 

Private Sub Label3_Click() 

masukkan kode berikut di dalamnya

Private Sub Label3_Click()
  	With Me
        .Label1.Top = .Label3.Top
        .Label1.Left = .Label3.Left
        .Label1.Width = .Label3.Width
        .Label1.Height = .Label3.Height
    End With
        With Me
        .Label1.Top = .Label3.Top
        .Label1.Left = .Label3.Left
        .Label1.Width = .Label3.Width
        .Label1.Height = .Label3.Height
    End With
        With Me
        .Label1.Top = .Label3.Top
        .Label1.Left = .Label3.Left
        .Label1.Width = .Label3.Width
        .Label1.Height = .Label3.Height
    End With
End Sub

setelah itu masih di label3 buat kodenya menjadi MoseMove seperti ini 

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Selanjutnya ketikkan code berikut di dalamnya

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
	With Me
        .Label2.Top = .Label3.Top
        .Label2.Left = .Label3.Left
        .Label2.Width = .Label3.Width
        .Label2.Height = .Label3.Height
    End With
End Sub

Lakukan cara yang sama di label4, label5 dan label6, dan ubah label3 mengikuti label yang kamu masukkan codenya, misalnya label3.top ubah menjadi label4.top begitu seterusnya
Yang terakhir tambahkan kode hover di userform agar ada efek menghilangkan hover di menu

	Me.Label2.Top = 96

Jika kesulitan silahkan kamu download file dibawah ini

Contoh Menu VBA.zip 1.0.1 Windows | File Size : 14kb

Download

4shared Mediafire Zippyshare Tusfiles

✕

Cara Membuat Menu di Userform Excel

Harga : *Free Ongkir, dikirim melalui Whatsapp

BCA - 3220 341 185 BRI - 508 601 032 577 535 BUKOPIN - 5101 001 476 DANA OVO Paypal

Pesan via whatsapp Pesan via Email

Tags

VBA

Previous article

Next Post

Next article

Previous Post