Como listar todas as planilhas visíveis ou ocultas da pasta de trabalho?
Se você tem uma pasta de trabalho grande que contém algumas planilhas ocultas, agora você precisa listar todas as planilhas visíveis e ocultas separadamente em uma planilha, conforme mostrado na captura de tela a seguir. Neste artigo, vou falar sobre como listar todas as planilhas visíveis e ocultas no Excel.
Listar todas as planilhas visíveis e ocultas separadamente com código VBA
Listar todas as planilhas visíveis no Excel com o Kutools para Excel
Listar todas as planilhas visíveis e ocultas separadamente com código VBA
Para listar os nomes das abas visíveis e ocultas em uma planilha, o seguinte código VBA pode ajudá-lo, por favor, faça o seguinte:
1. Pressione e segure 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 todas as planilhas visíveis e ocultas separadamente:
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, pressione a tecla F5 para executar este código; todas as planilhas visíveis, ocultas e muito ocultas serão listadas em uma nova planilha separadamente, conforme mostrado na captura de tela a seguir:
Listar todas as planilhas visíveis no Excel com o Kutools para Excel
Se você possui o Kutools para Excel, com seu recurso Criar Tabela de Vínculo, você pode listar rapidamente todas as planilhas visíveis da pasta de trabalho atual com hiperlinks para cada aba.
Após instalar o Kutools para Excel, faça o seguinte:
1. Clique em Kutools Plus > Planilha > Criar Tabela de Vínculo, veja a captura de tela:
2. Na caixa de diálogo Criar Tabela de Vínculo:
(1.) Selecione Criar Hiperlinks na seção Estilo.
(2.) Insira um nome de planilha para o índice da planilha.
(3.) Especifique a localização do índice da planilha.
(4.) Especifique quantas colunas deseja exibir os nomes das planilhas no índice da planilha.
3. E então clique no botão Ok; todas as planilhas visíveis foram listadas em uma nova planilha, excluindo as planilhas ocultas, veja a captura de tela:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
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