Замена текста в ячейке гиперссылкой

[NatalieRedFox_333]

Решила поделиться )))
Добавляем ссылки в Excel

Форум по VBA и MS Office - Главная страница

Форум по VBA и MS Office - Главная страница

forumvba.ru

Макрос работает с выделенными ячейками, в которых есть значения. Ячейки с формулами макрос не обрабатывает.

Sub Макрос1()
 
    ' Использование функции "гиперссылка".
 
    Dim sel As Range, cel As Range
 
    '1. Отключение монитора (для ускорения макроса).
    Application.ScreenUpdating = False
    '2. Vba-именование выделенных ячеек, в которых есть значения (то есть не формулы).
        ' Чтобы не просматривать пустые ячейки.
    Set sel = Selection.SpecialCells(xlCellTypeConstants)
    '3. Вставка функции "гиперссылка".
    For Each cel In sel.Cells
        cel.Formula = "=HYPERLINK(""" & cel.Value & """," & """ФОТО"")"
    Next cel
    '4. Включение монитора.
    Application.ScreenUpdating = True
 
End Sub

Sub Макрос2()

    ' Использование гиперссылки.

    Dim sel As Range, cel As Range
 
    '1. Отключение монитора (для ускорения макроса).
    Application.ScreenUpdating = False
    '2. Vba-именование выделенных ячеек, в которых есть значения (то есть не формулы).
        ' Чтобы не просматривать пустые ячейки.
    Set sel = Selection.SpecialCells(xlCellTypeConstants)
    '3. Вставка гиперссылки.
    For Each cel In sel.Cells
        cel.Hyperlinks.Add Anchor:=cel, Address:=cel.Value, TextToDisplay:="ФОТО"
    Next cel
    '4. Включение монитора.
    Application.ScreenUpdating = True
 
End Sub

"Заголовок " выделен а столбец "URL статьи" находится справа.

'3. Вставка гиперссылки.
For Each cel In sel.Cells
    cel.Hyperlinks.Add Anchor:=cel, Address:=cel.Offset(0, 1).Value, TextToDisplay:=cel.Value
Next cel

Anchor:=cel - это ячейка, в которую надо вставить гиперссылку.
cel.Offset(0, 1).Value - это ячейка, из которой нужно взять урл (адрес веб-страницы).
TextToDisplay:=cel.Value - это ячейка, из которой нужно взять текст для ячейки, в которой будет гиперссылка.