Como criar um sumário para todos os nomes de abas de planilhas com hiperlinks no Excel?
Uma pasta de trabalho do Excel fica bastante grande à medida que mais e mais planilhas são criadas dentro dela. Quanto mais planilhas existirem, mais difícil será manter uma visão geral das planilhas. Portanto, você precisa de um sumário para navegar rapidamente entre as planilhas no Excel. Este artigo mostrará métodos para alcançar isso.
Criar um sumário usando código VBA
Crie facilmente um sumário com o Kutools para Excel
Criar um sumário usando código VBA
O seguinte código VBA pode ajudá-lo a criar um sumário para todas as planilhas com hiperlinks no Excel. Por favor, siga os passos abaixo.
1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie o código VBA abaixo na janela de Código.
Código VBA: Criar um sumário para todas as planilhas
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. Pressione a tecla F5 ou clique no botão Executar para rodar o código.
Então, uma planilha de sumário é criada na frente de todas as planilhas com todos os nomes das planilhas listados dentro. Você pode navegar para qualquer planilha clicando no nome da aba no sumário. Veja a captura de tela:
Crie facilmente um sumário com o Kutools para Excel
A ferramenta Criar Tabela de Vínculo do Kutools para Excel pode ajudá-lo a criar rapidamente um sumário na pasta de trabalho atual. Por favor, siga os passos abaixo.
1. Na pasta de trabalho onde você precisa criar um sumário, clique em Kutools Plus > Planilha > Criar Tabela de Vínculo. Veja a captura de tela:
2. No diálogo Criar Tabela de Vínculo, você precisa:
Então, uma planilha de sumário é criada conforme mostrado na captura de tela abaixo. Você pode navegar para qualquer planilha clicando no nome da aba no sumário.
Se você selecionar a opção Criar Botões e Macros na seção Selecionar Estilos de Índice, obterá um sumário como mostrado na captura de tela abaixo.
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Artigos relacionados:
- Como referenciar o nome da aba em uma célula no Excel?
- Como corresponder o valor da célula ao nome da aba ou vice-versa no Excel?
- Como abrir uma planilha específica pelo valor selecionado de uma Caixa de Combinação no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins