La conversión de un rango de direcciones URL de hipervínculos

April 8

John tiene un libro que tiene más de un mil URLs en él, todo en la columna A. Estos no son hipervínculos; son texto directamente de URLs individuales. Juan quiere convertir las URL en hipervínculos activos, pero haciendo la conversión individual es muy tedioso, sobre todo para que muchas URL.

Como es el caso con la mayoría de tedio en Excel, la solución es utilizar una macro para hacer la conversión. Para ser eficaz, la macro tendría que pasar por cada celda de un rango seleccionado y, si la celda no está en blanco, convertir el contenido de un hipervínculo. A continuación se hará el truco:

Sub url_list ()
Para cada celda de Selección
Si Celda.Value <> "" Entonces,
Si Izquierda (Celda.Value, 7) = "http: //" Entonces
URL = Celda.Value
Más
URL = "http: //" + Celda.Value
End If
ActiveSheet.Hyperlinks.Add Ancla: = célula, _
Dirección: = URL, TextToDisplay: = Celda.Value
End If
Siguiente celular
End Sub

La macro no es infalible; se supone que si una celda contiene nada en absoluto es una URL válida. Lo que hace es para comprobar el contenido de células y, si el contenido no están precedidos por el "http: //" texto, entonces se añade. Se crea entonces el hipervínculo en base a los contenidos de la celda.

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (3110) se aplica a Microsoft Excel 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Conversión de un rango de direcciones URL de hipervínculos.