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

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
2 089
Реакции
145
Решила поделиться )))
Добавляем ссылки в Excel
Макрос работает с выделенными ячейками, в которых есть значения. Ячейки с формулами макрос не обрабатывает.

Код:
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 - это ячейка, из которой нужно взять текст для ячейки, в которой будет гиперссылка.
 
Последнее редактирование:
  • Спасибо
Реакции: mnemonix