ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление гиперссылок
2 сообщений из 2, страница 1 из 1
Удаление гиперссылок
    #34917632
brzl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
brzl
Гость
Здравствуйте, все!
Недавно пришлось столкнуться с макросами в Excel.

Есть файл Программа.xls - в нем данные для работы с прайс-листом. Данные поставщиков, несколько десятков макросов для обработки прайс-листа и кнопочки для запуска макросов.

Проблема далее:
Иногда все ячейки файла становятся гиперссылками например: mailto:vasya@vasya.com (обычно это какой -либо мейл поставщика, который присутствует в файле Программа) Макросов которые бы могли бы повлиять на сам файл Программа нет, т.е. все макросы нацелены на работыу с файлом прайс-листа. Причину появления гиперссылок установить неудается.

Решил написать макрос, который удаляет все гиперссылки из данного файла

Код: plaintext
1.
2.
3.
4.
 Dim xlHyperlink As Hyperlink
 For Each xlHyperlink In ActiveSheet.Hyperlinks
      xlHyperlink.Delete
 Next

Но данный скрипт вместе с гиперссылкой удаляет и форматирование ячейки.
Они в файле раскрашены в определенные цвета, некоторые значения выделены курсивом, жирным и т.д.
1) Если кто-нибудь сталкивался с таким глюком(появление гиперссылок), хотя это маловероятно, подскажите как бороться.
2) Если не было подобных случаев, то: Можете подсказать как оставлять форматирование. но удалять гиперссылки.
Oracle 8.1.6, Delphi 7
...
Рейтинг: 0 / 0
06.11.2007, 08:47:06
| Ответить | Цитировать | Написать  
Удаление гиперссылок
    #34923326
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Сохранить формат можно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Sub RemoveHyperLinkPreserveFormat()
Dim xlHyperlink As Hyperlink
Dim TempRng As Range
Dim HLRng As Range
Dim TSh As Worksheet

    Set TSh = ActiveSheet
    Set TempRng = ActiveWorkbook.Worksheets.Add.Range("A1")
    
    TSh.Activate
    
    For Each xlHyperlink In ActiveSheet.Hyperlinks
        Set HLRng = xlHyperlink.Range
        HLRng.Copy
        TempRng.PasteSpecial Paste:=xlPasteFormats
        TempRng.Font.Underline = xlUnderlineStyleNone
        
        xlHyperlink.Delete
        
        TempRng.Copy
        HLRng.PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    Next
    Selection.Font.Underline = xlUnderlineStyleNone
    
    Set TSh = Nothing
    Set HLRng = Nothing
    
    Application.DisplayAlerts = False
    TempRng.Parent.Delete
    Application.DisplayAlerts = True
End Sub
Но, наверняка, можно сделать так, чтоб ссылки не появлялись - нужно посмотреть как данные попадают на лист
...
Рейтинг: 0 / 0
07.11.2007, 19:00:04
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление гиперссылок
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34923326&tid=2181952]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 55ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 217ms
total:  351ms
созд. / загр.: 351ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]