Como contar rapidamente o número de folhas de cálculo ocultas no Excel?
Se tiver uma pasta de trabalho grande com centenas de folhas de cálculo — algumas delas ocultas — e precisar de saber, por motivos específicos, exatamente quantas folhas ocultas existem, como pode descobri-lo sem as contar manualmente, uma a uma? Apresento-lhe agora dois truques que lhe permitem obter imediatamente o número total de folhas ocultas.
Contar folhas ocultas/visíveis com Kutools para Excel
Eliminar folhas ocultas ou Mostrar todas as planilhas com Kutools para Excel
Contar folhas ocultas com VBA
Apresento um código VBA que abre uma caixa de diálogo para lhe mostrar o número de folhas de cálculo ocultas na sua pasta de trabalho.
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na nova janela do Módulo.
VBA: Contar as folhas ocultas.
Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
"Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub3. Prima a tecla F5 para executar o código; irá surgir uma caixa de diálogo com o número de folhas ocultas e o número de folhas visíveis.
Contar folhas ocultas/visíveis com Kutools para Excel
Se não estiver familiarizado com VBA, pode instalar gratuitamente o Kutools para Excel para visualizar imediatamente o número total de folhas, de folhas ocultas e de folhas visíveis.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Clique em Kutools > Navegação para exibir o painel. Veja a imagem:
2. Em seguida, clique no botão Pasta de Trabalho e Planilha para listar os livros e as folhas de cálculo; no fundo do painel, verá o número total de folhas, de folhas ocultas e de folhas visíveis.
Dica: Se já não precisar da Navegação, clique novamente em Kutools > Navegação para a ocultar.
Eliminar folhas ocultas ou tornar visíveis todas as folhas ocultas com Kutools para Excel
Com o Kutools para Excel, pode também eliminar todas as folhas ocultas com um único clique.
1. Se pretender mostrar todas as folhas de cálculo, basta clicar em Kutools > Mostrar & Ocultar > Mostrar todas as folhas de cálculo.
2. Se pretender eliminar todas as folhas de cálculo ocultas, basta clicar em KUTOOLS PLUS > Folha de Cálculo > Eliminar todas as folhas de cálculo ocultas. Veja a imagem:
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