Как скрыть адреса гиперссылок в Excel? 

В Excel, когда вы наводите курсор мыши на ячейку, содержащую гиперссылку, адрес гиперссылки отображается немедленно. Однако в некоторых случаях вам может потребоваться скрыть или удалить адрес гиперссылки, как показано на следующем экране. Как можно решить эту задачу максимально просто?

Скрытие адреса гиперссылки путем редактирования гиперссылки

Скрытие всех адресов гиперссылок с помощью кода VBA

Скрытие адреса гиперссылки путем редактирования гиперссылки

На самом деле, вы можете скрыть или удалить адрес гиперссылки, отредактировав саму гиперссылку следующим образом:

1. Выберите ячейку с гиперссылкой, которую хотите скрыть.

b. Щелкните правой кнопкой мыши и выберите Изменить гиперссылку из контекстного меню, см. скриншот:

3. В диалоговом окне Изменить гиперссылку нажмите кнопку Подсказка на экране, см. скриншот:

4. Затем в появившемся диалоговом окне Установка подсказки для гиперссылки введите один символ пробела с клавиатуры в поле текста подсказки на экране, см. скриншот:

5. После этого нажмите ОК > ОК, чтобы закрыть диалоговые окна, и теперь, когда вы помещаете курсор на ячейку с гиперссылкой, адрес гиперссылки будет скрыт.

Примечание: Если в листе есть несколько адресов гиперссылок, которые нужно удалить, вам придется скрывать их по одному с помощью вышеуказанного метода.

Скрытие всех адресов гиперссылок с помощью кода VBA

Чтобы удалить все адреса гиперссылок из рабочего листа, вышеупомянутый метод будет утомительным и трудоемким. Здесь я могу рассказать о коде VBA для решения этой задачи.

1. Нажмите клавиши ALT + F11 вместе, и откроется окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Скрытие всех адресов гиперссылок

Sub ClearHyperlinksTip()
'Update 20140923
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Hyperlinks(1).ScreenTip = " "
    End If
Next
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, появится всплывающее окно с запросом выбрать диапазон, содержащий гиперссылки, см. скриншот:

4. После этого нажмите ОК, и все выбранные адреса гиперссылок будут удалены из подсказки на экране сразу.

Примечание: Хотя адреса гиперссылок не отображаются в подсказке на экране при использовании двух вышеуказанных методов, сами гиперссылки продолжают работать корректно.

Связанные статьи:

Как вставить несколько гиперссылок в одну ячейку в Excel?

Как предотвратить изменение цвета гиперссылок в Excel?

Как изменить несколько путей гиперссылок одновременно в Excel?

Как удалить / стереть все или несколько гиперссылок в Excel?