UI design embuat menu drop down

Biasanya kalau ada kalimat atau kata Drop down itu identik dengan kontrol combobox, karena memang kontrol combobox satu satunya kontrol yang mempunyai value secara drop down, untuk melihat bagaimana cara membuat kontrol dengan combobox silahkan anda ikuti link tautan dibawah ini

UI design embuat menu drop down

 Hadirkan userform, ubah ukuran userform sesuai selera yang anda butuhkan
 Pada userform hadirkan dua kontrol frame, lihat tabel dibawah ini

Pengaturan properties UI design embuat menu drop down
-	Properties
Kontrol	Name	Width	Height	Left	Top
Userform	Userform1	300	500	0	0
Frame	Frame1	300	30	0	0
Frame	Frame2	100	250	0	28

 Oh ya untuk membedakan kasih warna biru untuk frame1 dan warna kuning untuk frame2
 Nah sekarang masukan seluruh kode macro dibawah in kedalam userform

Dim lbl() As New Class1

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

For a = 4 To 10

Controls("label" & a).BackColor = &HE0E0E0

Controls("label" & a).ForeColor = &H80000006

Next

End Sub

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

Label11.BackColor = &HE0E0E0

Label11.ForeColor = &H80000006

Label12.BackColor = &HE0E0E0

Label12.ForeColor = &H80000006

End Sub

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

Label1.Font.Bold = True

Label1.Font.Size = 11

Label2.Font.Bold = False

Label2.Font.Size = 11

Frame2.Visible = True

Frame3.Visible = False

End Sub

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

Label2.Font.Bold = True

Label2.Font.Size = 11

Label1.Font.Bold = False

Label1.Font.Size = 11

Frame3.Visible = True

Frame2.Visible = False

End Sub

Private Sub UserForm_Initialize()

Frame2.Visible = False

Frame3.Visible = False

ReDim Preserve lbl(8)

For a = 4 To 12

Set lbl(a - 4).lbl = Controls("label" & a)

Next

End Sub

 

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

Frame2.Visible = False

Frame3.Visible = False

Label1.Font.Bold = False

Label2.Font.Bold = False

End Sub

 Dan modul

Public WithEvents lbl As MSForms.Label

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

lbl.BackColor = &HC0C0FF

lbl.ForeColor = vbWhite

End Sub

 Coba sekarang tekan F5 keyboard komputer anda
 Mainkan mouse komputer anda

Begitulah kira kira cara membuat menu drop down excel vba, berikut ini adalah sampel menu drop down yang lebih kompleks permasalahanya, yang diatas hanya gambaran besar saja

• Download
• Download