Como navegar entre planilhas usando uma lista suspensa no Excel?
Suponha que você tenha uma pasta de trabalho que contém várias planilhas e agora precisa criar uma lista suspensa ou caixa de combinação que liste todos os nomes das planilhas. Quando você selecionar um nome de planilha na lista suspensa, será direcionado imediatamente para essa planilha. Neste artigo, vou apresentar como navegar entre planilhas usando uma lista suspensa no Excel.
Navegue entre planilhas usando uma lista suspensa no Excel
Navegue entre planilhas usando uma lista suspensa no Excel
Para pular para cada planilha selecionada usando uma lista suspensa, siga as etapas abaixo:
1. Clique em Desenvolvedor > Inserir > Caixa de Combinação (Controle ActiveX), veja a captura de tela:
2. Em seguida, arraste o mouse para desenhar uma caixa de combinação e, depois, clique com o botão direito nela e selecione Visualizar Código no menu de contexto, veja a captura de tela:
3. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código para substituir o código original, veja a captura de tela:
Código VBA: Navegue entre planilhas usando uma lista suspensa
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, salve e feche esta janela de código e, em seguida, clique em Modo de Design para desativar o modo de design. Agora, ao selecionar um nome de planilha na caixa de combinação, você será direcionado para essa planilha imediatamente, veja a captura de tela:
Navegue entre planilhas usando hiperlinks ou botões: Com o utilitário Criar Tabela de Vínculo do Kutools para Excel, você pode listar rapidamente todos os nomes das planilhas em uma nova planilha com hiperlinks ou botões de macro e, assim, navegar entre elas conforme necessário.
Kutools para Excel: com mais de 300 complementos úteis para o Excel, grátis para experimentar sem limitação por 30 dias. Baixe e experimente grátis 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