Как да скрия адресите на хипервръзки в Excel?
В Excel, когато поставите курсора на мишката върху клетката, която съдържа хипервръзка, адресът на хипервръзката ще се покаже веднага. Но в някои случаи бихте искали да скриете или премахнете адреса на хипервръзката, както е показано на следващия екран. Как бихте могли да разрешите тази задача възможно най-лесно?
Скрийте адреса на хипервръзката чрез редактиране на хипервръзка
Скрийте всички адреси на хипервръзки с VBA код
Скрийте адреса на хипервръзката чрез редактиране на хипервръзка
Всъщност можете да скриете или премахнете адреса на хипервръзката, като редактирате хипервръзката, както следва:
1. Изберете клетката с хипервръзка, която искате да скриете.
b. Щракнете с десния бутон и изберете Редактиране на хипервръзка от контекстното меню вижте екранната снимка:
3. В Редактиране на хипервръзка кликнете върху Екранна подсказка бутон, вижте екранната снимка:
4. След това изскочи Задаване на екранна подсказка за хипервръзка диалогов прозорец, моля, въведете един знак за интервал от клавиатурата в Екранна подсказка текстово поле, вижте екранната снимка:
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?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!