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

Гиперссылки

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

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

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

3290 просмотров

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

Ваше имя:

E-mail:

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

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

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

CAPTCHA

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

   ____              _  _     _____   _       _  __
  / ___| __      __ | || |   |___  | | |__   | |/ /
 | |     \ \ /\ / / | || |_     / /  | '_ \  | ' / 
 | |___   \ V  V /  |__   _|   / /   | | | | | . \ 
  \____|   \_/\_/      |_|    /_/    |_| |_| |_|\_\

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

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

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

Комментарии

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

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