Skapa bladindex

Här demonstreras en teknik för att skapa ett bladindex, vilket finns att tillgå när vi högerklickar i ett arbetsblad. Det kan i vissa sammanhang vara en bra lösning för att växla arbetsblad.

Följande bild visar det nya menyalternativet Bladindex (längst ned):

 

När kommandot Bladindex väljs visas följande bladindex:

 

Följande kod och händelse skapas i modulen ThisWorkbook:

Option Explicit  

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

   '© 2003 Alla rättighter XL-Dennis

   Dim cbCont As CommandBarButton  

   On Error Resume Next

   Application.CommandBars("Cell").Controls("Bladindex").Delete

   On Error GoTo 0

 

   Set cbCont = Application.CommandBars("Cell").Controls.Add _

         (Type:=msoControlButton, Temporary:=True)

 

   With cbCont

      .Caption = "Bladindex"

      .OnAction = "Index"

   End With

 

End Sub

 

Följande kod placeras i en standardmodul:

Option Explicit  

Sub Index()

   Application.CommandBars("Workbook Tabs").ShowPopup

End Sub