Definição de hiperlink do VBA

O hiperlink é comumente usado em sites para navegar de uma página para outra ou de um site para outro na Internet. De maneira semelhante, também podemos controlar os movimentos na planilha do Excel. As diferentes operações que podem ser executadas no Excel são:

  • Movendo para um local específico na pasta de trabalho atual.
  • Abrindo documentos diferentes e selecione uma área mencionada no documento.
  • Navegando para páginas da web a partir da planilha.
  • Enviando email para um endereço definido.

O hiperlink é fácil de reconhecer devido à sua alteração de cor, principalmente em azul. Existem diferentes métodos para criar um hiperlink no Excel e deixar o VBA.

Como criar um hiperlink no Excel usando o código VBA?

Você pode adicionar um hiperlink a um texto ou uma planilha a outra planilha no Excel usando a propriedade add do hiperlink. O formato precisa ser seguido, especificando onde o hiperlink deve ser criado e o URL de navegação etc.

Formato para hiperlink VBA Adicionar

O formato mostra que os parâmetros precisam ser fornecidos para adicionar um hiperlink a uma planilha.

  • Âncora: define a célula que você deseja criar o hiperlink.
  • Endereço: o URL para o qual a navegação deve se mover.
  • (SubAddress): sub-endereço da URL.
  • (Dica da tela): o valor do ponteiro do mouse a ser mostrado ao colocar um ponteiro do mouse.
  • (Texto a ser exibido ): o texto precisa ser exibido na célula.

Use a propriedade Active cell para adicionar um hiperlink.

Selecione o método de adição na lista

Exemplos para criar hiperlinks no Excel VBA

Abaixo estão os diferentes exemplos para criar hiperlinks no Excel usando o código VBA.

Você pode fazer o download deste modelo do VBA Hyperlink Excel aqui - Modelo do VBA Hyperlink Excel

Exemplo # 1 - Criando um hiperlink da Planilha para um site

Queremos criar um hiperlink da planilha denominada sub para um site usando o código VBA no excel.

Abaixo estão as etapas para criar um hiperlink no Excel VBA:

Etapa 1: Crie uma função chamada hiper para adicionar o hiperlink.

Código:

 Sub privado () Sub final

Etapa 2: use o objeto de célula ativa para abrir o método de adição de hiperlink.

Código:

 Privado Sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Etapa 3: forneça os valores dos parâmetros para o método de adição de hiperlink.

Código:

 Subiper privada () ActiveCell.Hyperlinks.Add Anchor: = Planilhas ("sub"). Intervalo ("A1"), Endereço: = "https://www.educba.com/", SubAddress: = "", Dica de tela : = "é um hiperlink", TextToDisplay: = "Treinamento do Excel" End Sub
  • Âncora: nome da planilha
  • Endereço: hiperlink para onde o controle deve ser navegado, dado o endereço do site
  • Dica: O texto do ponteiro do mouse
  • TextToDisplay: para qual texto o hiperlink deve ser atribuído

Etapa 4: Pressione F5 ou o botão Executar no VBE para executar este código e ver a saída.

O intervalo de células A1 é selecionado e o texto é atribuído com um hiperlink. Depois que você clicar no texto “Excel Training”, ele será redirecionado para o site https://www.educba.com/. Quando você move o ponteiro do mouse ao lado do texto, ele mostra o texto do ponteiro do mouse.

Exemplo # 2 - Hiperlink para conectar duas planilhas

Temos duas planilhas denominadas Início e Sub . Vamos tentar criar um hiperlink de sub para casa usando o código VBA.

Siga as etapas abaixo para criar um hiperlink de uma planilha para outra na mesma pasta de trabalho usando o código VBA.

Etapa 1: Crie uma função, onde escreveremos todos os códigos para executar a ação. Escreva o código para selecionar a planilha 'sub' usando o método de seleção da planilha.

Código:

 Sub Privado hyper1 () Planilhas ("sub"). Selecione End Sub

Como o controle se move dentro da planilha, é necessário selecionar a planilha na qual você está criando o hiperlink.

Etapa 2: selecione o intervalo de células na planilha em que o hiperlink deseja criar.

Código:

 Sub Privado hyper1 () Planilhas ("sub"). Selecione Intervalo ("A1"). Selecione End Sub

Etapa 3: Agora vamos adicionar o hiperlink usando a propriedade cell ativa.

Código:

 Sub-planilhas particulares hyper1 () ("sub"). Selecione Intervalo ("A1"). Selecione ActiveCell.Hyperlinks.Add Anchor: = Seleção, Endereço: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Clique para mover a página inicial" End Sub

Como a planilha já está selecionada, Anchor é fornecido como 'Seleção'. O hiperlink é especificado como planilha 'Home' e o intervalo A1.

Etapa 4: Execute o código e a sub-planilha será mostrada no hiperlink como abaixo.

Etapa 5: depois que o texto for clicado, o controle será movido para a planilha ' Início '. E a célula A1 será selecionada.

Exemplo # 3 - Hiperlink com várias planilhas

Se você deseja criar um hiperlink em várias planilhas, também é possível. Neste exemplo, temos várias planilhas na mesma pasta de trabalho. Existem diferentes tipos de funções do Excel, a partir da planilha principal 'Funções'. Vamos tentar criar um hiperlink para a planilha diferente nomeada com diferentes funções usando o código VBA:

As várias planilhas são nomeadas abaixo, com diferentes nomes de funções do Excel

Como queremos criar um hiperlink para cada planilha, é difícil repetir o código. Siga as etapas abaixo para criar um hiperlink usando o código VBA no Excel:

Etapa 1: Crie uma variável para lidar com a planilha facilmente.

Código:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Etapa 2: Agora queremos selecionar a página principal que atua como uma página de índice e selecionar o intervalo de células A1.

Código:

 Sub privado hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Selecione Range ("A1"). Selecione End Sub

Etapa 3: para percorrer várias planilhas e hiperlinks, estamos criando um para cada loop. A1 já está selecionado como célula ativa, portanto, criando um hiperlink a partir disso.

Código:

 Private Sub hyper2 () Dim ws As Worksheets Worksheet ("Functions"). Selecione Range ("A1"). Selecione para cada ws no ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Próxima ws End Sub

Etapa 4: forneça os valores dos parâmetros para criar um hiperlink para cada planilha. Como o hiperlink inicia na âncora da célula ativa = célula ativa, o endereço é fornecido como "" .

Código:

 Private sub hyper2 () Dim ws As Worksheets Worksheet ("Functions"). Selecione Range ("A1"). Selecione para cada ws no ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub

Etapa 5: o hiperlink é percorrido pela planilha, portanto, devemos fornecer o sub-endereço como nome da planilha. Para obter os nomes das planilhas, podemos usar a variável ws e o intervalo de células como A1. O nome da planilha terá se referido com uma única citação. O nome e o intervalo da folha serão especificados e também fechados com uma única cotação.

Código:

 Private sub hyper2 () Dim ws As Worksheets Worksheet ("Functions"). Selecione Range ("A1"). Selecione para cada ws no ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Próximo ws End Sub

Etapa 6: obter o hiperlink com o nome da planilha fornece TextToDisplay como ws.Name

Código:

 Private sub hyper2 () Dim ws As Worksheets Worksheet ("Functions"). Selecione Range ("A1"). Selecione para cada ws no ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Próximo ws End Sub

Esse código armazenará o hiperlink para cada planilha na mesma célula A1.

Etapa 7: Para alterar isso cada planilha para uma célula diferente, uma célula abaixo da célula ativa.

Código:

 Private sub hyper2 () Dim ws As Worksheets Worksheet ("Functions"). Selecione Range ("A1"). Selecione para cada ws no ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Selecione Próximo ws End Sub

Etapa 8: Execute o programa e cada nome de planilha será exibido na pasta 'Funções' e, enquanto clica nele, o controle passa para a planilha correspondente.

Coisas para lembrar

  • Propriedade de hiperlink da célula ativa usada para criar hiperlinks no VBA.
  • O hiperlink ajuda a se mover com facilidade na pasta de trabalho.

Artigos recomendados

Este é um guia para hiperlinks do VBA. Aqui, aprendemos como criar hiperlinks na planilha usando o código VBA para mover rapidamente de uma planilha para outra, juntamente com alguns exemplos práticos e o modelo do Excel para download. Você também pode consultar nossos outros artigos sugeridos -

  1. Introdução aos loops VBA
  2. Remover hiperlinks no Excel
  3. Intervalo de VBA para loop
  4. Encontre links externos no Excel

Categoria:

VBA