Compreender como editar URLs com macros VBA do Excel permite que você excluir ou adicionar caracteres para endereços da Web em suas pastas de trabalho . Você pode usar esse conhecimento para corrigir URLs quebradas, alterar o nome de exibição de um URL ou entrar completamente novas URLs . A " Fórmula " propriedade VBA faz com que essas edições possível. Você pode definir essa propriedade para o nome de qualquer uma das funções na guia " fórmulas" do Excel. Uma vez que o tipo de conteúdo de URLs é uma string , a familiaridade com funções de string do VBA , tais como "Substituir ", "Mid ", "Left ", eo operador de concatenação , "& ", irá ajudá-lo na edição de URLs . Instruções
substituir caracteres
1
Clique no menu " Arquivo", clique em "Opções " e clique em "Personalizar fita . " Clique na caixa de seleção "Developer" e clique em "OK" para fechar a janela "Opções" . Word exibirá a guia "Desenvolvedor" .
2
Digite a seguinte fórmula em qualquer célula na pasta de trabalho atual. Esta fórmula cria uma URL de hiperlink na célula ativa .
= HYPERLINK ( " http://www.whitehouse.net ", " Casa Branca " ),
3
Clique no botão " desenvolvedores" da aba " Visual Basic " para entrar no ambiente de programação Visual Basic for Applications , em seguida, cole o seguinte programa para a janela . Este programa edita uma URL usando a função VBA "Substituir" . O primeiro argumento desta função é a seqüência em que você quer fazer uma substituição. O segundo argumento é o texto que deseja substituir eo terceiro argumento é o próprio texto de substituição.
Public Sub editURL ()
Dim URL , url2
URL = ActiveCell . Fórmula
url2 = Replace ( URL , " Casa Branca ", " Salão Oval " )
ActiveCell.Formula = url2
End Sub
4
Clique em qualquer declaração no programa e clique em comando "Executar" do menu " Executar" para executar o programa.
5
Clique no ícone " Excel" na barra de tarefas para retornar ao Excel . Observe que o texto " Salão Oval " agora aparece no lugar do texto original "Casa Branca" , o que indica a edição do seu programa da URL foi bem sucedida.
Substituir URL Todo
6
Clique no botão " desenvolvedores" da aba " Visual Basic" para entrar no ambiente para a criação de programas VBA.
7
Use as instruções da Etapa 2 da seção anterior para entrar em qualquer URL em uma planilha célula . Por exemplo, digite "= hyperlink ( " http://www.whitehouse.gov "," O Salão Oval ")" .
8
Cole o seguinte programa para a janela . Este programa cria um completamente novo URL na célula ativa .
Public Sub editURL ()
ActiveCell.Formula = " = hyperlink (" " http://www.nea.gov " " , " " National Endowment for the Arts "") "
End Sub
9
Clique uma declaração no programa para selecionar o programa .
10
Clique no comando "Executar" do menu " Executar" para executar o programa. Retorne o Excel com a tecla " Alt + F11 ". A URL "Casa Branca" que escreveu no passo 2 é agora substituído por um link para a página inicial do National Endowment for the Arts.