Como criar uma lista com os nomes de todas as folhas de um livro?

Imagine que tem um livro com várias folhas de cálculo e pretende listar automaticamente todos os nomes das folhas, incluindo hiperligações clicáveis para navegar diretamente até cada uma. Este tutorial apresenta métodos rápidos e eficazes para gerar uma lista de nomes de folhas no Excel.

Obtenha uma lista de todos os Nome da Planilha de um livro dinamicamente com fórmulas

Obtenha uma lista de todos os Nome da Planilha de um livro com Kutools para Excel

Obtenha uma lista de todos os Nome da Planilha de um livro com código VBA

Obtenha uma lista de todos os Nome da Planilha de um livro dinamicamente com fórmulas

No Excel, pode atribuir um nome a uma célula e, de seguida, aplicar uma fórmula para listar todos os nomes das folhas do Livro de Trabalho Atual. Siga os passos seguintes:

1. Clique em «Fórmulas» > «Gerenciador de Nomes», conforme ilustrado na imagem:

2. Na caixa de diálogo «Gerenciador de Nomes», clique no botão «Novo», conforme ilustrado na imagem:

3. Na caixa de diálogo «Novo Nome» que surge, introduza um nome na caixa de texto «Nome» e, de seguida, copie a fórmula abaixo para a caixa de texto «Refere-se a», tal como ilustrado na imagem:

=GET.WORKBOOK(1)&T(NOW())

4. Em seguida, clique em «OK» > «Fechar» para fechar as caixas de diálogo. Aceda agora à folha onde pretende listar todos os nomes das folhas e introduza a seguinte fórmula numa célula vazia:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Nota: Na fórmula acima, «Sheetnames» é o nome da célula que criou no passo 3.

5. Em seguida, arraste a alça de preenchimento para baixo até aparecerem células vazias. Nesse momento, todos os nomes das folhas do Livro de Trabalho Atual já estarão listados, conforme ilustrado na imagem seguinte:

6. Se pretender criar uma hiperligação para cada folha, utilize a fórmula abaixo:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Nota: Na fórmula acima, «A2» é a célula que contém o nome da folha e «A1» é a célula onde pretende posicionar a célula ativa. Por exemplo, ao clicar na hiperligação, será redirecionado diretamente para a célula A1 dessa folha.

7. Agora, ao clicar no texto da hiperligação, será redirecionado para essa folha, tal como ilustrado abaixo:

Obtenha uma lista de todos os Nome da Planilha de um livro com Kutools para Excel

Com a funcionalidade «Criar Tabela de Vínculo» do extra de terceiros «Kutools para Excel», pode gerar uma lista com os nomes das folhas de cálculo com um único clique e aceder a cada uma delas através de hiperligações.

1. Clique em «KUTOOLS PLUS» > «Folha de cálculo» > «Criar Tabela de Vínculo», conforme ilustrado na imagem:

2. Na caixa de diálogo «Criar Tabela de Vínculo», configure as seguintes opções:

(1.) Escolha o «Estilo» que preferir; poderá criar o nome da folha com hiperligações ou com botões de macro. (2.) Introduza o nome da folha para o índice de folhas. (3.) Indique a localização do índice da folha de cálculo. (4.) Indique quantas colunas pretende utilizar na nova folha para apresentar o nome da folha.

3. Após concluir as definições, clique em «OK». Todos os nomes das folhas foram listados com ligações numa nova folha do livro de trabalho atual. Veja a imagem:

Nome da Planilha com hiperligações	Nome da Planilha com botões de macro

Obtenha uma lista de todos os Nome da Planilha de um livro com código VBA

1. Prima as teclas «ALT» + «F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do módulo.

VBA: Listar todos os Nome da Planilha com hiperligações numa Nova planilha:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Prima a tecla «F5» para executar esta macro. Todos os nomes das folhas do livro atual são agora listados numa nova folha chamada «Índice», com hiperligações que permitem navegar diretamente para cada folha respetiva. Veja a imagem abaixo:

Artigos relacionados