Como listar todas as folhas visíveis ou ocultas do livro?
Se tiver um livro grande com algumas folhas de cálculo ocultas, agora precisa de listar separadamente todas as folhas visíveis e ocultas numa única folha, tal como ilustrado na imagem seguinte. Neste artigo, explico-lhe como listar todas as folhas visíveis e ocultas no Excel.
Listar separadamente todas as folhas visíveis e ocultas com código VBA
Listar todas as folhas visíveis no Excel com Kutools para Excel
Listar separadamente todas as folhas visíveis e ocultas com código VBA
Para listar os nomes dos separadores visíveis e ocultos numa folha de cálculo, o seguinte código VBA pode ajudá-lo. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Listar separadamente todas as folhas visíveis e ocultas:
Sub NameSheets()
'Updateby Extendoffice
Dim x As Long, y As Long, z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
x = 1
y = 1
z = 1
shtCnt = ThisWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To shtCnt
If Sheets(i).Visible = xlSheetHidden Then
Cells(x, 2) = Sheets(i).Name
x = x + 1
End If
If Sheets(i).Visible = xlSheetVisible Then
Cells(y, 1) = Sheets(i).Name
y = y + 1
End If
If Sheets(i).Visible = xlSheetVeryHidden Then
Cells(z, 3) = Sheets(i).Name
z = z + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Todas as folhas — visíveis, ocultas e muito ocultas — são listadas separadamente numa nova folha, conforme ilustrado na imagem seguinte:
Listar todas as folhas visíveis no Excel com Kutools para Excel
Se tiver o Kutools para Excel, com a sua funcionalidade Criar Tabela de Vínculo, pode listar rapidamente todas as folhas visíveis do Livro de Trabalho Atual com hiperligações para cada separador.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em KUTOOLS PLUS > Folha de cálculo > Criar Tabela de Vínculo, conforme ilustrado:
2. Na caixa de diálogo Criar Tabela de Vínculo:
(1.) Selecione Criar Hiperlinksna secção Estilo;
(2.) Introduza um nome para a planilha do índice de folhas.
(3.) Especifique a localização do índice da folha de cálculo.
(4.) Indique o número de colunas que pretende utilizar para apresentar o Nome da Planilha no índice de folhas.
3. Em seguida, clique no botão Ok e todas as folhas visíveis serão listadas numa nova folha, excluindo as ocultas, conforme ilustrado:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
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