Работа с гиперссылками в Excel?

Posted by Chas under Пост-обзор

1. Мне много приходится работать с ссылками открывать и просматривать. специальная программа формирует excel файл таким образом, что гиперссылки идут как текст и чтобы сделать каждую активной нужно дважды кликать мышью по каждой — долго и утомительно. Внимание вопрос: как сделать весь столбец с активными ссылками?

2. Как открыть в браузере сразу несколько ссылок столбца разом, а не поочередно нажимая на каждую? такое возможно?

EducatedFool:
1. Запустите этот макрос:

Sub test()

    Dim cell As Range, ra As Range: Application.ScreenUpdating = False

    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp))

    For Each cell In ra.Cells

       If Len(cell) Then cell.Hyperlinks.Add cell, cell

    Next cell

End Sub

2. Как открыть в браузере сразу несколько ссылок в столбце разом
Теперь выделяете диапазон ячеек — и запускаете макрос.
Откроются все гиперссылки только из видимых ячеек.

Sub test3()

    On Error Resume Next

    For Each cell In Selection.SpecialCells(xlCellTypeVisible)

        ThisWorkbook.FollowHyperlink cell

    Next cell

End Sub

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как сделать, чтобы значение предлагалось ввести пользователю?
• Как макросом брать данные с word документов в excel?
• Разделить файл на несколько частей с помощью макроса в excel
• Как определить путь к файлу (текущую папку) в excel?
• Как сделать, чтобы заполненные ячейки в excel считались с условием?
• Как скопировать с одного столбца через одну строку в другой столбец данные
• Создание выпадающего списка средствами VBA
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Как вернуть из функции 2 и более аргумента в VBA?