Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление гиперссылок / 2 сообщений из 2, страница 1 из 1
06.11.2007, 08:47:06
    #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
| Ответить | Цитировать | Написать  
07.11.2007, 19:00:04
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление гиперссылок / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 405ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2181952]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 91ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 237ms
total:  405ms
x
x
Закрыть


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