Membuat main menu dengan macro - Membuat menu hyperlink sebagai pengganti tab sheets, bagaimana caranya? main menu memudahkan kita untuk berpindah dari sheet satu kesheet lainya dengan menggunakan fungsi hyperlink yang telah disediakan microsoft excel, dan pada kesempatan kali ini saya akan mengajak anda membuat main menu dengan bantuan macro.
Kode ThisWOrkbook
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cCont As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell").Controls("Daftar Isi").Delete
On Error GoTo 0
Set cCont = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
With cCont
.Caption = "Daftar Isi"
.OnAction = "IndexCode"
End With
End Sub
Kode Module
Sub IndexCode()
Application.CommandBars("workbook Tabs").ShowPopup
End Sub
Untuk tutorialnya lihat di youtube Excel Home
