Если вы выделили ячейки с гиперссылками, и случайно изменили их форматирование (цвет шрифта и т.п.),
а теперь хотите вернуть все гиперссылки в книге к исходному виду (синие и подчеркнутые), — то вам поможет этот макрос.
ВНИМАНИЕ: макрос применяется ко всем листам, и всем ячейкам, содержащим гиперссылки.
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
Комментарии
Отправить комментарий