Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Массовое добавление гиперссылок к тексту
 
#1
23.08.2017 16:07:16
Доброго дня.

Есть прайс-лист товаров в Excel, хочу его сделать в pdf. Для каждого товара указана ссылка на этот товар в интернет магазине.
Нужно поставить одинаковый текст для каждого товара, например, "Нажмите, чтобы узнать подробности о товаре", а для этого текста должны быть разные ссылки на сайт.

Делал с помощью формулы =гиперссылка, но в pdf такой вариант не работает, потому что ссылка фактически находится в другом столбце (скрытом)


Никак не могу догнать как это сделать верно.  :(  
 
 
 
#2
23.08.2017 21:55:51
Код
Sub www()
    Dim c As Range
    For Each c In Range([b5], [b5].End(xlDown))
        c.Hyperlinks.Add c, c(1, 2), c.Text
    Next
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#3
24.08.2017 10:48:31
kuklp,о да, спасибо огромное.

Маленький вопрос еще. Если данный скрип встречает пустую строку он перестает работать.
Можно как то игнорировать пустые ячейки и строки?
 
 
 
#4
24.08.2017 10:59:34
Код
Sub www()
    Dim c As Range
    For Each c In Range("B5:B" & Cells(Rows.Count, 2).End(xlUp).Row)
        If c <> Empty Then c.Hyperlinks.Add c, c(1, 2), c.Text
    Next
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх