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

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

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

Последние записи

made in programmersforum 10

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

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