Como clicar duas vezes em uma célula para abrir uma planilha especificada no Excel?
Você deseja navegar rapidamente para uma planilha especificada em uma pasta de trabalho do Excel? Este artigo fornecerá um método VBA para abrir uma planilha especificada clicando duas vezes em uma determinada célula no Excel.
Clique duas vezes em uma célula para abrir uma planilha especificada com o código VBA
Clique duas vezes em uma célula para abrir uma planilha especificada com o código VBA
Faça o seguinte para abrir uma planilha específica clicando duas vezes em uma célula no Excel.
1. Clique com o botão direito na guia da planilha que contém a célula na qual deseja abrir a planilha, clicando nela. E então clique Ver código no menu de contexto. Veja a imagem:
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie o seguinte código VBA na janela Código.
Código VBA: clique duas vezes na célula para abrir uma planilha especificada 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
Note: No código VBA, "A1; Folha2""A12; Folha3""A4; Folha4""A100; Folha5"significa que clique duas vezes na célula A1 abrirá a Planilha2, clique duas vezes em A2 para abrir a Planilha3 ..., altere-os de acordo com suas necessidades.
3. aperte o outro + Q chaves juntas para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, ao clicar duas vezes na célula A1 da planilha atual, a planilha especificada será ativada imediatamente.
Artigos relacionados:
- Como clicar ou clicar duas vezes na célula para abrir um formulário de usuário especificado no Excel?
- Como adicionar marca de seleção em uma célula com duplo clique no Excel?
- Como adicionar / inserir automaticamente a data / hora atual em uma célula clicando duas vezes no Excel?
- Como clicar duas vezes em uma célula e adicionar 1 a esse valor de célula no Excel?
- Como abrir um calendário ao clicar em 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!