Como abrir uma planilha específica no Excel com um duplo clique em uma célula?

Você deseja navegar rapidamente até uma planilha específica em uma pasta de trabalho do Excel? Este artigo fornecerá um método VBA para abrir uma planilha específica ao dar um duplo clique em uma determinada célula no Excel.

Duplo clique em uma célula para abrir uma planilha específica com código VBA

Duplo clique em uma célula para abrir uma planilha específica com código VBA

Por favor, siga os passos abaixo para abrir uma planilha específica ao dar um duplo clique em uma célula no Excel.

1. Clique com o botão direito na aba da planilha que contém a célula na qual você deseja abrir a planilha ao clicar nela. Em seguida, clique em Visualizar Código no menu de contexto. Veja a captura de tela:

2. Na janela Microsoft Visual Basic for Applications que se abre, copie o seguinte código VBA na janela Código.

Código VBA: duplo clique na célula para abrir uma planilha específica no Excel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20180822
Dim xArray, xAValue As Variant
Dim xFNum As Long
Dim xStr, xStrRg, xStrSheetName As String
xRgArray = Array("A1;Sheet2", "A12;Sheet3", "A4;Sheet4", "A100;Sheet5")
On Error Resume Next
For xFNum = LBound(xRgArray) To UBound(xRgArray)
xStr = ""
xStr = xRgArray(xFNum)
xAValue = ""
xAValue = Split(xStr, ";")
xStrRg = ""
xStrRg = xAValue(0)
xStrSheetName = ""
xStrSheetName = xAValue(1)
If Not Intersect(Target, Range(xStrRg)) Is Nothing Then
Sheets(xStrSheetName).Activate
End If
Next
End Sub

Observação: No código VBA, "A1;Planilha2", "A12;Planilha3", "A4;Planilha4", "A100;Planilha5" significam que ao dar um duplo clique na célula A1 abrirá a Planilha2, ao dar um duplo clique em A12 abrirá a Planilha3..., altere-os conforme suas necessidades.

3. Pressione as teclas Alt + Q juntas para fechar a janela Microsoft Visual Basic for Applications.

A partir de agora, ao dar um duplo clique na célula A1 na planilha atual, a planilha especificada será ativada imediatamente.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Artigos Relacionados:

• Como clicar ou dar um duplo clique em uma célula para abrir um formulário de usuário específico no Excel?
• Como adicionar uma marca de verificação em uma célula com um duplo clique no Excel?
• Como adicionar/entrar automaticamente a data/hora atual em uma célula com um duplo clique no Excel?
• Como dar um duplo clique em uma célula e somar 1 ao valor dessa célula no Excel?
• Como fazer aparecer um calendário ao clicar em uma célula específica no Excel?