Como criar um índice com os nomes de todos os separadores das folhas de cálculo, incluindo hiperligações, no Excel?
Um Pasta de trabalho do Excel torna-se bastante extenso à medida que são criadas mais e mais folhas de cálculo. Quanto mais folhas existirem, mais difícil se torna ter uma visão geral das mesmas. Por isso, necessita de um índice para navegar rapidamente entre as folhas de cálculo no Excel. Este artigo mostrar-lhe-á métodos para o conseguir.
Criar um índice com código VBA
Criar facilmente um índice com o Kutools para Excel
Criar um índice com código VBA
O código VBA seguinte permite-lhe criar um índice com hiperligações para todas as folhas de cálculo no Excel. Siga os passos abaixo.
1. Prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, de seguida, copie o código VBA abaixo para a janela de Código.
Código VBA: Criar um índice para todas as folhas de cálculo
Sub CreateTableofcontents()
'updateby Extendoffice 20180413
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("Table of contents").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Table of contents"
I = 1
Cells(1, 1).Value = "Table of contents"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Table of contents" Then
I = I + 1
xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
End If
Next
Application.DisplayAlerts = xAlerts
End Sub3. Prima a tecla F5 ou clique no botão Executar para executar o código.
Em seguida, é criada uma folha de cálculo «Índice» antes de todas as outras, listando todos os nomes das folhas. Pode navegar para qualquer folha clicando no respetivo nome no índice. Veja a imagem:
Criar facilmente um índice com o Kutools para Excel
A utilidade Criar Tabela de Vínculo do Kutools para Excel ajuda-o a criar rapidamente um índice no Livro de Trabalho Atual. Siga estes passos:
1. No livro onde pretende criar um índice, clique em KUTOOLS PLUS > Folha de Cálculo > Criar Tabela de Vínculo. Veja a imagem:
2. Na caixa de diálogo Criar Tabela de Vínculo, deverá:
É então criada uma folha de índice, conforme ilustrado na imagem seguinte. Navegue facilmente para qualquer folha bastando clicar no respetivo nome no índice.
Se selecionar a opção **Criar Botões e Macros** na secção **Selecionar Estilos de Índice**, obterá um índice como o apresentado na imagem seguinte.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
Artigos relacionados:
- Como referenciar o nome do separador numa célula no Excel?
- Como comparar o valor de uma célula com o nome do separador da folha, ou vice-versa, no Excel?
- Como abrir uma folha de cálculo específica com base no valor selecionado numa caixa de combinação no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos