Работа с гиперссылками в Excel

[hoodjke]

Здраствуйте! Подскажите пожалуйста можно ли сделать макрос на массовое удаление гиперссылко в Excel и если можно покажите этот макрос, так же хотел поинтересоваться если общим методом удаления гиперссылок с помощью копирования в ячейке "1"(единицы) далее правка умножить исчезают эти самые гиперссылки то как избавиться от того что цыфры меняются?

[EducatedFool]

http://skobki.com/2009/01/17/link/

Sub УдалениеГиперссылок()
    For Each sh In ThisWorkbook.Worksheets
        sh.Hyperlinks.Delete
    Next
End Sub

[hoodjke]

Сообщение от EducatedFool

http://skobki.com/2009/01/17/link/

Sub УдалениеГиперссылок()
    For Each sh In ThisWorkbook.Worksheets
        sh.Hyperlinks.Delete
    Next
End Sub

Спасибо!
Быстро и своевременно то что нужно=)\

[hoodjke]

не пойму почему меняются цифры при удалении гиперссылок

[EducatedFool]

не пойму почему меняются цифры при удалении гиперссылок

Я тоже не пойму...
А если Вы не выложите файл - скорее всего, вообще никто не поймёт...

[hoodjke]

Вот пожалуйста->

[EducatedFool]

Попробуйте такой вариант:

Sub УдалениеГиперссылок()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Hyperlinks.Delete
        [c:c].NumberFormat = "m/d/yyyy"
    Next
    Application.ScreenUpdating = True
End Sub

Проблема в том, что при удалении гиперссылки Excel сбрасывает форматирование ячеек, ранее содержавших гиперссылки.
Как с этим бороться - не знаю... (может, кто подскажет?)
Я в таких случаях тем же макросом восстанавливаю форматирование ячеек "с нуля"...

[hoodjke]

Сообщение от EducatedFool

Попробуйте такой вариант:

Sub УдалениеГиперссылок()
    Dim sh As Worksheet: Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Hyperlinks.Delete
        [c:c].NumberFormat = "m/d/yyyy"
    Next
    Application.ScreenUpdating = True
End Sub

Проблема в том, что при удалении гиперссылки Excel сбрасывает форматирование ячеек, ранее содержавших гиперссылки.
Как с этим бороться - не знаю... (может, кто подскажет?)
Я в таких случаях тем же макросом восстанавливаю форматирование ячеек "с нуля"...

в любом случае спасибо за помощь!

[SAS888]

при удалении гиперссылки Excel сбрасывает форматирование ячеек, ранее содержавших гиперссылки.
Как с этим бороться...

Никак. В Excel разработчики заложили автоматическое изменение формата ячейки при назначении ей гиперссылки (цвет шрифта, подчеркивание и пр.). Соответственно, при удалении гиперссылки формат сбрасывается.
Аналогичная задача - это назначить ячейке гиперссылку и при этом не изменить формат ячейки. Поэтому, после назначения (удаления) гиперссылки, требуемый формат нужно устанавливать вновь.

[Xstroy]

Сообщение от EducatedFool

http://skobki.com/2009/01/17/link/

Sub УдалениеГиперссылок()
    For Each sh In ThisWorkbook.Worksheets
        sh.Hyperlinks.Delete
    Next
End Sub

Это работает прекрасно, но как сделать то же самое, но только в пределах активного листа?