Como abrir uma planilha específica pelo valor selecionado de um Combo Box no Excel?
Supondo que você tenha uma caixa de combinação que contém todos os nomes de planilhas da pasta de trabalho atual, conforme a imagem mostrada abaixo. E agora, você deseja abrir uma planilha específica ao selecionar o nome da planilha correspondente em uma caixa de combinação. Como conseguir isso? O método neste artigo pode ajudá-lo.
Abra uma planilha específica pelo valor selecionado de uma caixa de combinação com código VBA
Abra uma planilha específica pelo valor selecionado de 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 contém nenhum nome de planilha em sua planilha, siga a dica abaixo para adicionar rapidamente todos os nomes de planilha a essa caixa de combinação. E se já houver uma caixa de combinação contendo todos os nomes das planilhas, mude para o step 1 diretamente.
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 SubSe 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.
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 SubNote: 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, ao selecionar qualquer nome de planilha na caixa de combinação, a planilha correspondente será aberta automaticamente.
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:
Baixe e experimente agora! (trilha gratuita de 30 dias)
Artigos relacionados:
- Como copiar o valor da caixa de combinação para uma célula ativa no Excel?
- Como exibir o formato de data na saída da caixa de combinação no Excel?
- Como ocultar ou reexibir um botão de comando com base no valor da célula especificada no Excel?
- Como prevenir ou desabilitar a digitação em uma combo box no Excel?
- Como sair da caixa de combinação para selecionar uma célula específica no Excel?
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!
