Cara Membuat Menu di Userform Excel

Image
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

0