Два вопроса про гиперссылки в Excel

[Apos_med]

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

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

[EducatedFool]

как сделать весь столбец с активными ссылками?

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

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

Как открыть в браузере сразу несколько ссылок в столбце разом

Тоже разве что макросом:

Sub test2()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp))
    i = 0: On Error Resume Next
    For Each cell In ra.Cells
        ThisWorkbook.FollowHyperlink cell
        i = i + 1: If i Mod 15 = 0 Then Stop
    Next cell
End Sub

Этот макрос будет открывать по 15 гиперссылок, и останавливаться до следующего нажатия F5 в редакторе VBA
(F5 - продолжение работы макроса)

Можете, конечно, и так попробовать:

Sub test3()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp))
    On Error Resume Next
    For Each cell In ra.Cells
        ThisWorkbook.FollowHyperlink cell
    Next cell
End Sub

Но вряд ли ваш браузер обрадуется открытию сотен гиперссылок за один раз...

[Apos_med]

спасибо большое

[Apos_med]

На счет второго, который открывает 15 ссылок. Макрос начинает их открывать с 1-й строчки и далее, даже если строчка скрыта фильтром. Не могли бы дать код чтобы он(макрос) начинал открывать ссылки не с верху, а снизу, например - с последней строчки или лучше начинал с указанной мной ячейки в редакторе VB

[EducatedFool]

Попробуйте этот макрос:

Sub test3()
    On Error Resume Next
    For Each cell In Selection.SpecialCells(xlCellTypeVisible)
        ThisWorkbook.FollowHyperlink cell
    Next cell
End Sub

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

[Apos_med]

спасибо! отлично работает. весь офис рад)

[Apos_med]

Хотел бы еще узнать, а можно ли сделать так, чтобы макрос встречая битую ссылку не подвешивал мне весь excel, так что его приходится перезапускать, а, например выжидал 5-7 секунд и переходил к обработке следующей ссылке.

Проблема в том что если макросу дать открыть 10 ссылок и он на пути следования натыкается на ссылку сайт которой недоступен или неотвечает, то он разом подвешивает всю систему и требуется перезапуск.

Спасибо

[vadimko4]

Последний макрос чудесно работал до вчерашнего дня. У меня в эксель ссылки на профили вконтакте. Я так понял возникновение проблемы связано с рестайлингом ВК. Теперь открывает все ссылки одинаково по адресу: https://new.vk.com/badbrowser.php
Пишет какую-то хрень про устаревшие браузеры (хотя все новые), про ява и кукис, хотя всё по-прежнему включено.
И это независимо через Хром я открываю или через Оперу.
Ссылки в Эксель такого вида http://vk.com/id35779264
если вручную открывать из эксель - такая же фигня. Если копи пастить - открывается нормально.

Что делать? помогите

[Serge_Bliznykov]

подтверждаю.

а если так попробовать?

Sub FollowHyperlinkAlt(ByVal URL As String)
    Shell "CMD.EXE /C START """" """ & URL & """"
End Sub

Sub test3()
    On Error Resume Next
    For Each cell In Selection.SpecialCells(xlCellTypeVisible)
        'стандартная процедура не работает: ThisWorkbook.FollowHyperlink cell
        FollowHyperlinkAlt (cell)
    Next cell
End Sub

[ilia.belyaev]

Сообщение от vadimko4

Последний макрос чудесно работал до вчерашнего дня. У меня в эксель ссылки на профили вконтакте. Я так понял возникновение проблемы связано с рестайлингом ВК. Теперь открывает все ссылки одинаково по адресу: https://new.vk.com/badbrowser.php
Пишет какую-то хрень про устаревшие браузеры (хотя все новые), про ява и кукис, хотя всё по-прежнему включено.
И это независимо через Хром я открываю или через Оперу.
Ссылки в Эксель такого вида http://vk.com/id35779264
если вручную открывать из эксель - такая же фигня. Если копи пастить - открывается нормально.

Что делать? помогите

Тоже самое, что у тебя получилось открыть через openoffice calc. Хотя на работе на компе тот же firefox, office и java стоит и там все открывается нормально....