Membuat Sub Menu

Posted: Friday, 10 December 2010 in Microsoft Office

Ini dia, lanjutan tutorial “Membuat Menu Sendiri”.

Pada tutorial yang pertama dari “Membuat Menu Sendiri” yg ada di :

https://cauciu.wordpress.com/2010/12/08/menubar/

Telah dibahas bagaimana cara membuat menu tambahan disebelah menu HELP pada Microsoft Excel (pada contoh tersebut membuat menu “Blog”)

Pada kesempatan kali ini, kita akan membahas bagaimana cara membuat “Sub Menu” dari menu yang telah kita buat sebelumnya. Berikut Langkah – langkahnya :

1.  Seperti pada tutorial pertama, Ubah Security Macro menjadi Low, kemudian restart Microsoft Excel.
2.  Aktivkan Jendela Visual Basic for Application dengan menekan tombol ALT+F11.
3.  Klik dua kali “Module1” yang berada di panel sebelah kiri.
4.  Penulisan code pada panel sebelah kanan.

Pada tutorial sebelumnya, code yang kita gunakan adalah :

‘——————————————————————

Sub Auto_Open()
Dim MenuBlog As CommandBar

On Error Resume Next

‘Jika menu blog belum ada
If Application.CommandBars(“Worksheet Menu Bar”). _
Controls(“Blog”) Is Nothing Then

‘Membuat menu Blog
Set MenuBlog = Application. _
CommandBars(“Worksheet Menu Bar”)
Set cbcCutomMainMenu = MenuBlog.Controls. _
Add(Type:=msoControlPopup)
cbcCutomMainMenu.Caption = “Blog”

End If

End Sub

‘——————————————————————

Misalkan, kita akan membuat Sub Menu “Link” dari Menu “Blog”, yang mana menu ini apabila di klik akan menuju ke Sheet “Sheet2”.

Maka langkah – langkahnya sebagai berikut :

a.  Buat prosedur perintah untuk menuju ke Sheet “Sheet2” dengan cara berikut :

‘——————————————————————

Sub GoMenuLink()

Sheets(“Sheet2”).Select

End Sub

‘——————————————————————

b.  Deklarasikan Sub Menu dengan perintah berikut :

‘——————————————————————

Dim MenuLink As CommandBarControl

‘——————————————————————

Tempatkan perintah tersebut dibawah perintah :

‘——————————————————————

Dim MenuBlog As CommandBar

‘——————————————————————

c.  Ketik Kode Berikut ini untuk membuat Sub Menu “Link” (letakkan di atas baris “End If” pada tutorial sebelumnya

‘——————————————————————

‘Membuat menu Link
Set MenuLink = cbcCutomMainMenu.Controls. _
Add(Type:=msoControlButton)
‘Nama menu = Link
MenuLink.Caption = “Link”
‘Kode icon menu Login Kasir = 327
MenuLink.FaceId = 327
‘Macro yang dikaitkan = LoadFormKasir
MenuLink.OnAction = “GoMenuLink”

‘——————————————————————

Buat Prosedur perintah untuk menghapus Menu Blog ketika file ditutup dengan cara mengetik perintah berikut :

‘——————————————————————

Sub auto_close()
Application.CommandBars(“Worksheet Menu Bar”). _
Controls(“Blog”).Delete
End Sub

‘——————————————————————

d.  Sehingga akan tampak code lengkapnya seperti dibawah ini :

‘——————————————————————

Sub Auto_Open()

Dim MenuBlog As CommandBar
Dim MenuLink As CommandBarControl

On Error Resume Next

‘Jika menu blog belum ada
If Application.CommandBars(“Worksheet Menu Bar”). _
Controls(“Blog”) Is Nothing Then

‘Membuat menu Blog
Set MenuBlog = Application. _
CommandBars(“Worksheet Menu Bar”)
Set cbcCutomMainMenu = MenuBlog.Controls. _
Add(Type:=msoControlPopup)
cbcCutomMainMenu.Caption = “Blog”

‘Membuat menu Link
Set MenuLink = cbcCutomMainMenu.Controls. _
Add(Type:=msoControlButton)
‘Nama menu = Link
MenuLink.Caption = “Link”
‘Kode icon menu Login Kasir = 327
MenuLink.FaceId = 327
‘Macro yang dikaitkan = LoadFormKasir
MenuLink.OnAction = “GoMenuLink”
End If
End Sub

Sub GoMenuLink()
Sheets(“Sheet2”).Select
End Sub

Sub auto_close()
Application.CommandBars(“Worksheet Menu Bar”). _
Controls(“Blog”).Delete
End Sub

‘——————————————————————

5.  Selamat Mencoba

Untuk Contoh File Yang Sudah Jadi Silakan Klik Di Sini

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s