Ir para o conteúdo principal

Como abrir uma planilha selecionando seu nome em uma caixa de combinação no Excel?

Autor: Siluvia Última modificação: 2024-11-25

Suponha que você tenha uma Caixa de Combinação na sua pasta de trabalho do Excel contendo uma lista de todos os nomes de planilhas. Você quer abrir uma planilha específica selecionando seu nome na Caixa de Combinação. Este guia demonstra como fazer isso usando código VBA, com etapas para preencher a Caixa de Combinação com nomes de planilhas e habilitar a funcionalidade desejada.

Uma captura de tela de uma caixa de combinação no Excel contendo nomes de planilhas

Abra uma planilha selecionando seu nome em uma caixa de combinação com código VBA


Abra uma planilha selecionando seu nome em uma caixa de combinação com código VBA

O código VBA abaixo pode ajudá-lo a ir para uma planilha específica com base na seleção da caixa de combinação no Excel. Faça o seguinte.

Note: Se a Caixa de combinação não contiver nenhum nome de planilha em sua planilha, siga a dica abaixo para adicionar rapidamente todos os nomes de planilhas a essa Caixa de combinação. Se uma Caixa de combinação contendo todos os nomes de planilhas já existir, prossiga diretamente para step 1.

Dica: Insira um Botão de Comando 1 em sua planilha, clique com o botão direito e selecione Ver código no menu do botão direito. Em seguida, copie e cole o código VBA abaixo no Code janela e pressione o outro + Q chaves para fechar o Microsoft Visual Basic para aplicativos janela. Clique no botão de comando inserido e todos os nomes de planilhas da pasta de trabalho atual serão adicionados ao ComboBox1 automaticamente.

Código VBA: adicione facilmente todos os nomes de planilhas em uma caixa de combinação

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

Se já houver uma caixa de combinação contendo todos os nomes das planilhas, faça o seguinte.

1. Ligar o Modo de design sob a Developer aba.

2. Clique com o botão direito na caixa de combinação com os nomes das planilhas e clique em Ver código no menu do botão direito.

Uma captura de tela do menu do botão direito para acessar o código da caixa de combinação no Excel

3. Então o Microsoft Visual Basic para Aplicações janela for exibida, substitua o código VBA original na janela Código pelo código VBA abaixo.

Código VBA: abre uma planilha específica pelo valor selecionado da caixa de combinação

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
End Sub

Note: no código, ComboBox1 é o nome da caixa de combinação que contém os nomes das folhas.

4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela e desligue o Modo de design sob a Developer aba.

Agora, selecionar qualquer nome de planilha na Caixa de Combinação abrirá automaticamente a planilha correspondente.


Liste facilmente todos os nomes de planilhas da pasta de trabalho atual no Excel:

Usar o índice de planilhas em sua pasta de trabalho ajuda a gerenciar suas planilhas com facilidade. Com o Criar lista de nomes de planilhas utilidade de Kutools for Excel, você pode criar facilmente um índice de planilha contendo todos os nomes de planilha na pasta de trabalho atual. Depois disso, você pode mudar rapidamente para uma determinada planilha clicando no nome da planilha na planilha Índice. Veja a imagem abaixo:

Uma captura de tela mostrando um índice de planilha criado com o Kutools para Excel

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Get It Now


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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!