Кликабельные ссылки в excel

[alexhao]

Здравствуйте.

Не могу никак решить проблему:

C помощью ZP добавляю ссылки в таблицу excel.
К сожалению, она получается не кликабельная. При наведении на ссылку не получается на нее кликнуть.

Сейчас приходится заходить в каждую ячейку, курсор переводить на конец ссылки и нажимать ENTER.
Или с помощью создания еще одной колонки и прописывания в ней формулы =ГИПЕРСЫЛКА(ячейка с ссылкой:ячейка с ссылкой)

Возможно, кто-нибудь знает решение данной проблемы?

Заранее спасибо

 

[Hannes]

Руками, без зенки, можно сделать с помощью макроса.

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

замените в строке:
Set ra = Range([c2], Range("c" & Rows.Count).End(xlUp))
Range([c2] - с это столбец (заменить букву при необходимости), 2 номер строки с которой начинается ссылка.

Range("c" & Rows.Count).End(xlUp))
так же вместо c ставим букву своего столбца.

Макрос создается через alt+f8. Создаёте новый и запускаете. Он сделает все ссылки активными в указанном столбце.

 

[alexhao]

Руками, без зенки, можно сделать с помощью макроса.

Спасибо большое. Макрос работает. Это намного лучше, чем в ручную делать

Хотя, конечно, хотелось бы реализовать кликабельность с помощью зенки