|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
31.08.2009, 11:40 | #1 |
Регистрация: 31.08.2009
Сообщений: 6
|
Подсветка работающих гиперссылок
Уважаемые специалисты, подскажите,
мне необходимо на листе Excel 2003 проверить все гиперссылки на прикрепленные файлы и подсветить красным фоном те из них, которые не открываются по причине отсутствия файла или неправильно указанного пути к файлу. Заранее премного благодарен. Устроит решение как VBA так и через условное форматирование. |
31.08.2009, 12:00 | #2 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Проверить можно, но надо знать каким образом у Вас записана гиперссылка. У Вас адрес гиперссылки совпадает со значением гиперссылки в ячейке? Набросайте пару строк в примере Excel.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
31.08.2009, 12:18 | #3 |
Регистрация: 31.08.2009
Сообщений: 6
|
Ответ
Гиперлинк к файлам D у меня рассчитывается исходя из значений 2х ячеек A,B.
|
31.08.2009, 12:40 | #4 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Смотрите.Так?
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
31.08.2009, 13:20 | #5 |
Регистрация: 31.08.2009
Сообщений: 6
|
Ответ №2
Не совсем :-( Макрос подсветил все непустые ячейки.
Файл, к которым указывает гиперссылка находится в папке August_09. Гиперссылки проверять нужно в столбцах 7 и 15. |
31.08.2009, 13:54 | #6 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Я ориентировался на выложенный Вами пример. Сравните выложенный Вами сначала файл и последний. Кажись они немного разные. Вторая попытка.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
31.08.2009, 15:40 | #7 |
Регистрация: 31.08.2009
Сообщений: 6
|
Пока не работает макрос
На мой взгляд, макрос не работает как бы мне хотелось.
Option Explicit Sub Check_HiperLincks() Dim rCell As Range For Each rCell In Union(Range(Cells(1, 7), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 7)), Range(Cells(1, 15), Cells(Cells(Rows.Count, 15).End(xlUp).Row, 15))) If IsError(rCell) Then rCell.Interior.Color = vbRed ElseIf rCell <> "" Then If Dir(rCell) = "" Then rCell.Interior.Color = vbRed End If Next rCell End Sub По-прежнему, подсвечиваются красным фоном все ячейки, независимо от того, открывается ли по указанной гиперссылке файл или нет. Внутри моей формулы по расчету гиперссылки не может быть ошибки, так как там простое "склеивание" текстовой информации. С функцией ISERROR я пробовал решить задачу условным форматированием, но безуспешно. Нужна какая-то функция, которая бы проверяла на ошибку "Cannot open the specified file" (см приложенный снимок) при попытке открытия файла по гиперссылке. Очень на Вас надеюсь! |
01.09.2009, 17:52 | #8 |
Регистрация: 31.08.2009
Сообщений: 6
|
Помогите довести дело до конца
Нашел в поиске аналогичный запрос : http://forum.developing.ru/archive/i...hp/t-4705.html
Но не могу разобраться как решить мой вариант. Помогите довести первоначальную задачу до решению. Спасибо заранее за помощь. |
25.01.2010, 14:17 | #9 |
Пользователь
Регистрация: 29.11.2008
Сообщений: 31
|
Добры.
У меня такая же задача появилась, что надо проверить на работоспособность гиперссылок. Во общем написал следующее: Код:
Код:
Может я не в ту сторону пошел ? Помогите пожалуйста разобраться. ЗЫ: Гиперсссылки на файлы все на компе и путь с название ссылки не совпадает. И заметил, что если путь будет на D:\ где и файл то проверяет с Hyperlinks(1).SubAddress, а вот если будет на C:\ то работает с просто Hyperlinks(1).Address Вообщем я окончательно запутался и не могу понять, что к чему... |
25.01.2010, 14:32 | #10 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Цитата:
(добавлено) Проблема в том, что после сохранения файла абсолютные гиперссылки (вида C:\Documents and Settings\August_09\images.jpg ) автоматически преобразуются в относительные (вида August_09/images.jpg) Я в подобных случаях использую такой код: Код:
В Вашем случае код быдет выглядеть так: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 25.01.2010 в 14:45. |
||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
несколько одновременно работающих копий программы - ? | Evgenii | Общие вопросы Delphi | 3 | 06.07.2009 09:38 |
объединение гиперссылок | petrov_ja | Microsoft Office Excel | 4 | 03.04.2009 20:22 |
несколько гиперссылок в ячейке | redfield | Microsoft Office Excel | 5 | 05.12.2008 13:06 |
Создание гиперссылок в Word | Hypermaster | Общие вопросы Delphi | 1 | 06.10.2008 11:39 |
удаление гиперссылок | Gambler | Microsoft Office Word | 0 | 30.10.2006 23:23 |