Navigering bland dolda arbetsblad

I detta tips demonstreras hur vi, trots förekomsten av dolda arbetsblad, kan växla mellan synliga arbetsblad.

Se också Bladnavigering.

Några reflektioner:

• Instruktionen "Activesheet.Next.Activate" saknar sin motsvarighet vid aktivering av föregående arbetsblad!
• Instruktionen "Activesheet.Next.Select" fungerar endast när vi har synliga arbetsblad i arbetsböcker!

 

Option Explicit Sub Nasta_Arbetsblad()    '© 2003 Alla rättigheter XL-Dennis    On Error Resume Next    ActiveSheet.Next.Activate End Sub   Sub Foregaende_Arbetsblad()    '© 2003 Alla rättigheter XL-Dennis    Dim lnIndex As Long, i As Long      lnIndex = ActiveSheet.Index      i = 1    Do Until lnIndex = 1       If Worksheets(lnIndex - i).Visible Then          Worksheets(lnIndex - i).Activate          Exit Do       Else          i = i + 1       End If    Loop   End Sub