Восстановление форматирование гиперссылок

Гиперссылки

Если вы выделили ячейки с гиперссылками, и случайно изменили их форматирование (цвет шрифта и т.п.),
а теперь хотите вернуть все гиперссылки в книге к исходному виду (синие и подчеркнутые), — то вам поможет этот макрос.

ВНИМАНИЕ: макрос применяется ко всем листам, и всем ячейкам, содержащим гиперссылки.

Sub RestoreHyperlinksStyle()
    Dim cell As Range, sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets
        For Each cell In sh.UsedRange.SpecialCells(xlCellTypeConstants)
            If cell.Hyperlinks.Count Then cell.Style = "Hyperlink"
        Next cell
    Next sh
    Application.ScreenUpdating = True
    MsgBox "Стиль гиперссылок восстановлен", vbInformation
End Sub

2775 просмотров

Отправить комментарий

Ваше имя:

E-mail:

Содержание этого поля является приватным и не предназначено к показу.

Комментарий: *

Уведомлять меня о новых комментариях

CAPTCHA

Подтвердите, пожалуйста, что вы - человек:

  _               ___   __        __                   
 | |__     ___   / _ \  \ \      / /  _ __ ___     ___ 
 | '_ \   / _ \ | (_) |  \ \ /\ / /  | '_ ` _ \   / __|
 | |_) | |  __/  \__, |   \ V  V /   | | | | | | | (__ 
 |_.__/   \___|    /_/     \_/\_/    |_| |_| |_|  \___|

Введите код, указанный выше: *

Введите код, изображенный в стиле ASCII-арт.

Восстановление форматирование гиперссылок

Комментарии

Отправить комментарий

НАДСТРОЙКИ ДЛЯ EXCEL