Jeg har et Excel ark (Excel 2000) med ca. 30 faner i. Det er svært at overskue alle arkene når jeg navngiver fanerne med forklarende navne. Er det muligt at den ene "linie" hvor fanerne står på kan øges til 2, 3 eller 4 linier så alle fanerne kan ses på samme tid?
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Der kan konstrueres en userform (dialogboks), der viser alle ark-fanenavne - uanset hvilket der er det aktuelle. Ved klik på et navn i userformen - vises det pågældende ark. Alt via VBA - var det noget?
ThisWorkbook: Sub workbook_activate() Load UserForm1 UserForm1.Show 0 End Sub
I Userform1 (1 listbox, 3 commandbuttons) Dim normH Dim miniH Private Sub CommandButton1_Click() 'ok Dim arkNavn If Me.ListBox1.ListIndex <> -1 Then arkNavn = Me.ListBox1 ActiveWorkbook.Sheets(arkNavn).Activate End If End Sub Private Sub CommandButton2_Click() 'luk Unload UserForm1 End Sub Private Sub CommandButton3_Click() 'Minimer If Me.CommandButton3.Caption = "Minimer" Then Me.CommandButton3.Caption = "Gendan" Me.CommandButton3.Accelerator = "G" UserForm1.Height = miniH Else Me.CommandButton3.Caption = "Minimer" Me.CommandButton3.Accelerator = "M" UserForm1.Height = normH End If End Sub Private Sub ListBox1_Click() Me.CommandButton1.SetFocus End Sub Private Sub UserForm_activate() normH = UserForm1.Height miniH = 50
For Each sh In ActiveWorkbook.Sheets Me.ListBox1.AddItem sh.Name Next sh End Sub
Eller send en mail til pb@supertekst-it.dk - så sender fil m/kode...
Måske en brugbar løsning for en hurtig oversigt - hvis du ikke kender den i forvejen: højreklik på de fire sorte pile til venstre for fanenavnene, så får du en liste op over alle fanenavne og kan pege på den du vil gå til. Hvis over femten fanenavne; klik i listen på "more sheets" og du får alle fanenavne i en scroll down liste og kan pege på den du vil gå til. Hilsen Leif
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.