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

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

Скрыть адрес гиперссылки, отредактировав гиперссылку

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

Скрыть адрес гиперссылки, отредактировав гиперссылку

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

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

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

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

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

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

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

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

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

1, нажмите ALT + F11 вместе, и он открывает Окно Microsoft Visual Basic для приложений.

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, Затем нажмите OK, все выбранные вами адреса гиперссылок были сразу удалены из подсказки на экране.

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

Статьи по теме:

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

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

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

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