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

Гиперссылки

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

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

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

2872 просмотра

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

Ваше имя:

E-mail:

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

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

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

CAPTCHA

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

              ____    _____  _  _     ____          
  _ __ ___   |  _ \  |__  / | || |   |___ \   _ __  
 | '_ ` _ \  | |_) |   / /  | || |_    __) | | '_ \ 
 | | | | | | |  _ <   / /_  |__   _|  / __/  | |_) |
 |_| |_| |_| |_| \_\ /____|    |_|   |_____| | .__/ 
                                             |_|

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

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

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

Комментарии

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

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