Como navegar entre folhas de cálculo no Excel utilizando uma lista pendente?
Imagine que tem um livro com várias folhas de cálculo e precisa criar uma lista pendente ou uma caixa de combinação que mostre todos os nomes das folhas — ao selecionar um nome na lista, salta imediatamente para essa folha. Neste artigo, explico como navegar entre folhas de cálculo utilizando uma lista pendente no Excel.
Navegue entre folhas de cálculo utilizando uma lista pendente no Excel
Navegue entre folhas de cálculo utilizando uma lista pendente no Excel
Para saltar para cada folha selecionada utilizando uma lista pendente, siga os passos seguintes:
1. Clique em Programador > Inserir > Caixa de Combinação (Controlo ActiveX). Veja a captura de ecrã:
2. Em seguida, arraste o rato para desenhar uma caixa de combinação, clique com o botão direito do rato e selecione Ver Código no menu de contexto. Veja a captura de ecrã:
3. Na janela aberta do Microsoft Visual Basic para Aplicações, copie e cole o código seguinte para substituir o código original. Veja a captura de ecrã:
Código VBA: Navegue entre folhas de cálculo utilizando uma lista pendente
Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub
4. Depois, guarde e feche esta janela de código e, em seguida, clique em Modo de Estrutura para desativar o modo de estrutura. Agora, ao selecionar um nome de folha na caixa de combinação, irá diretamente para essa folha. Veja a captura de ecrã:
Navegue entre folhas de cálculo utilizando hiperligações ou botões: Com a funcionalidade Kutools para Excel's Criar Tabela de Vínculo, pode listar rapidamente todos os nomes das folhas numa nova folha com hiperligações ou botões de macro e navegar entre elas conforme necessário.
Kutools para Excel: com mais de 300 complementos úteis para o Excel, gratuitos para experimentar sem limitações durante 30 dias.Transfira e experimente gratuitamente agora! |
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