Como abrir uma folha de cálculo ao selecionar o seu nome numa caixa de combinação no Excel?
Imagine que tem uma Caixa de Combinação no seu livro do Excel com uma lista de todos os nomes das folhas. Pretende abrir uma folha de cálculo específica ao selecionar o respetivo nome na Caixa de Combinação. Este guia mostra-lhe como alcançar este objetivo com código VBA, incluindo os passos para preencher a Caixa de Combinação com os nomes das folhas e ativar a funcionalidade pretendida.
Abrir uma folha de cálculo ao selecionar o respetivo nome numa caixa de combinação com código VBA
Abrir uma folha de cálculo ao selecionar o respetivo nome numa caixa de combinação com código VBA
O código VBA abaixo permite-lhe aceder a uma folha de cálculo específica com base na seleção efetuada na Caixa de Combinação do Excel. Siga os passos seguintes.
Nota: Se a Caixa de Combinação na sua folha de cálculo não contiver nenhum nome de folha, siga a dica abaixo para adicionar rapidamente todos os nomes das folhas a essa caixa. Caso já exista uma Caixa de Combinação com todos os nomes das folhas, avance diretamente para o passo 1.
Dica: Insira um Botão de Comando 1 na sua folha de cálculo, clique com o botão direito do rato e selecione Ver Código no menu de contexto. Em seguida, copie e cole o código VBA abaixo na janela Código e prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications. Clique no Botão de Comando inserido e todos os nomes das folhas do Livro de Trabalho Atual serão adicionados automaticamente à ComboBox1.
Código VBA: Adicionar facilmente todos os nomes das folhas a 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 SubSe já existir uma Caixa de Combinação com todos os nomes das folhas, siga os passos abaixo.
1. Ative o Modo de Estrutura no separador Programador.
2. Clique com o botão direito do rato na caixa de combinação com os nomes das folhas e, em seguida, clique em Ver Código no menu de contexto.
3. Em seguida, abre-se a janela do Microsoft Visual Basic for Applications; substitua o código VBA original na janela Código pelo código VBA abaixo.
Código VBA: Abrir uma folha de cálculo específica com base no valor selecionado na Caixa de Combinação
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End SubNota: no código, ComboBox1 é o nome da caixa de combinação que contém os nomes das folhas.
4. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications e desative o Modo de Estrutura no separador Programador.
Agora, ao selecionar qualquer nome de folha na caixa de combinação, a respetiva folha de cálculo abre-se automaticamente.
Listar facilmente todos os nomes das folhas do Livro de Trabalho Atual no Excel:
Utilizar um índice de folhas no seu livro ajuda-o a gerir as suas folhas de cálculo com facilidade. Com a utilidade Criar Tabela de Vínculo do Kutools para Excel, pode criar facilmente um índice com todos os nomes das folhas do Livro de Trabalho Atual. Depois, basta clicar no nome pretendido na folha Índice para mudar rapidamente para essa folha de cálculo. Veja a imagem abaixo:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Artigos relacionados:
- Como copiar o valor da Caixa de Combinação para a célula ativa no Excel?
- Como exibir o formato de data na saída da caixa de combinação no Excel?
- Como ocultar ou mostrar um botão de comando no Excel com base num valor específico de uma célula?
- Como impedir ou desativar a escrita numa caixa de combinação no Excel?
- Como sair da caixa de combinação utilizando a tecla Tab para selecionar uma célula específica no Excel?
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