Como navegar entre as planilhas usando a lista suspensa do Excel?
Supondo que você tenha uma pasta de trabalho que contém várias planilhas, agora, você precisa criar uma lista suspensa ou caixa de combinação que lista todos os nomes de planilha e quando você seleciona um nome de planilha na lista suspensa, ele irá pular para essa planilha imediatamente. Este artigo, vou apresentar como navegar entre as planilhas usando uma lista suspensa no Excel.
Navegue entre as planilhas usando a lista suspensa do Excel
Navegue entre as planilhas usando a lista suspensa do Excel
Para pular para cada folha selecionada usando uma lista suspensa, siga as seguintes etapas:
1. Clique Developer > inserção > 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, a seguir, clique com o botão direito do mouse e selecione Ver código no menu de contexto, veja a captura de tela:
3. No aberto Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código para substituir o código original, veja a captura de tela:
Código VBA: navegue entre as planilhas usando a 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. Em seguida, salve e feche esta janela de código e clique em Modo de design para desligar o modo de design, agora, ao selecionar um nome de folha da caixa de combinação, ele irá para essa folha de uma vez, veja a imagem:
Navegue entre as planilhas usando hiperlinks ou botões: Com Kutools for Excel's Criar lista de nomes de planilhas utilitário, você pode listar rapidamente todos os nomes de planilhas em uma nova planilha com hiperlinks ou botões de macro, então você pode navegar entre eles conforme sua necessidade. Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora! |
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!