Как в excel проверить гиперссылки
Здравствуйте! Подскажите, как проверить каие ссылки рабочие, какие нет?
дана таблица каждому наименованию соответсвует ссылка, но некоторые ссылки "битые", как бы их вычислить не открывая все 5000 ссылок.
пример файла прилагаю.
спасибо!
Здравствуйте! Подскажите, как проверить каие ссылки рабочие, какие нет?
дана таблица каждому наименованию соответсвует ссылка, но некоторые ссылки "битые", как бы их вычислить не открывая все 5000 ссылок.
пример файла прилагаю.
спасибо! ram
пример файла прилагаю.
спасибо! Автор - ram
Дата добавления - 07.08.2014 в 13:38
Sub CheckUpHyperlinks(target As Range)
'Проверка гиперссылок в заданном диапазоне
'ставит ОК справа от рабочих ссылок
Dim one As Range
On Error Resume Next
For Each one In target.Cells
one.Hyperlinks(1).Follow
If Err.Number = 0 Then one.Cells(1, 2) = "OK"
Next one
On Error GoTo 0
End Sub
PS: Открытые ссылки не закрываются и накапливаются в браузере. Доброкачественные ссылки могут не открыться из-за переполнения.
Поэтому 5000, видимо, нужно проверять кусками, каждый раз закрывая браузер.
Sub CheckUpHyperlinks(target As Range)
'Проверка гиперссылок в заданном диапазоне
'ставит ОК справа от рабочих ссылок
Dim one As Range
On Error Resume Next
For Each one In target.Cells
one.Hyperlinks(1).Follow
If Err.Number = 0 Then one.Cells(1, 2) = "OK"
Next one
On Error GoTo 0
End Sub
PS: Открытые ссылки не закрываются и накапливаются в браузере. Доброкачественные ссылки могут не открыться из-за переполнения.
Поэтому 5000, видимо, нужно проверять кусками, каждый раз закрывая браузер. Формуляр
Excel 2003 EN, 2013 EN
Sub CheckUpHyperlinks(target As Range)
'Проверка гиперссылок в заданном диапазоне
'ставит ОК справа от рабочих ссылок
Dim one As Range
On Error Resume Next
For Each one In target.Cells
one.Hyperlinks(1).Follow
If Err.Number = 0 Then one.Cells(1, 2) = "OK"
Next one
On Error GoTo 0
End Sub
PS: Открытые ссылки не закрываются и накапливаются в браузере. Доброкачественные ссылки могут не открыться из-за переполнения.
Поэтому 5000, видимо, нужно проверять кусками, каждый раз закрывая браузер. Автор - Формуляр
Дата добавления - 07.08.2014 в 14:48
Sub check()
With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
Dim rng As Range
Dim cell As Range
Set rng = Selection
For Each cell In rng.Cells
Select Case GetURLstatus(cell.Hyperlinks(1).Address)
Case 200: cell.Offset(0, 1) = "OK"
Case Else: cell.Offset(0, 1) = GetURLstatus(cell.Hyperlinks(1).Address)
End Select
Next
With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
Sub check()
With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
Dim rng As Range
Dim cell As Range
Set rng = Selection
For Each cell In rng.Cells
Select Case GetURLstatus(cell.Hyperlinks(1).Address)
Case 200: cell.Offset(0, 1) = "OK"
Case Else: cell.Offset(0, 1) = GetURLstatus(cell.Hyperlinks(1).Address)
End Select
Next
With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
Sub check()
With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
Dim rng As Range
Dim cell As Range
Set rng = Selection
For Each cell In rng.Cells
Select Case GetURLstatus(cell.Hyperlinks(1).Address)
Case 200: cell.Offset(0, 1) = "OK"
Case Else: cell.Offset(0, 1) = GetURLstatus(cell.Hyperlinks(1).Address)
End Select
Next
With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
Связывание с другими книгами — очень распространенная задача в Excel, но иногда вы можете найти книгу, которая ссылок не может найти, хотя Excel сообщает о том, что она существует. Нет способа автоматического поиска всех внешних ссылок, используемых в книге, однако существует несколько способов, используемых вручную. Вам нужно искать формулы, определенные имена, объекты (например, текстовые поля или фигуры), названия диаграмм и ряды данных диаграммы.
Имя любой Excel книги, с помощью ссылки на которую вы ссылались, будет связана с расширением XL* (например, .xls, .xlsx, XLSM), поэтому рекомендуемый способ — найти все ссылки на частичное расширение XL. Если вы ссылались на другой источник, необходимо определить оптимальный поисковый запрос.
Поиск ссылок, используемых в формулах
Нажмите CTRL+F, чтобы запустить диалоговое окно Найти и заменить.
В поле Найти введите.xl.
В поле В пределах выберите книга.
В поле Искать в выберите формулы.
В отображемом списке наймем в столбце Формула формул, содержащих XL. В этом случае Excel найдено несколько экземпляров функции бюджетного Master.xlsx.
Чтобы выбрать ячейку с внешней ссылкой, щелкните ссылку на эту строку в списке.
Совет: Щелкните любой за колонок, чтобы отсортировать столбец и сгруппировать все внешние ссылки.
На вкладке Формулы в группе Определенные имена выберите пункт Диспетчер имен.
Проверьте каждую запись в списке и проверьте, нет ли в столбце Ссылка внешних ссылок. Внешние ссылки содержат ссылку на другую книгу, например [Budget.xlsx].
Щелкните любой за колонок, чтобы отсортировать столбец и сгруппировать все внешние ссылки.
Если вы хотите удалить сразу несколько элементов, можно сгруппнуть несколько элементов, нажав клавишу SHIFT или CTRL и щелкнув левой кнопкой мыши.
Нажмите клавиши CTRL+G, нажмите клавиши CTRL+G, чтобы перейти в диалоговое окно Перейти, а затем выберите специальные > объекты > ОК. При этом будут выбраны все объекты на активном сайте.
Нажимая клавишу TAB, переходить между выбранными объектами, а затем искать в строка формул ссылку на другую книгу, например [Budget.xlsx].
Щелкните название диаграммы, которую вы хотите проверить.
В строка формул наймем ссылку на другую книгу, например [Budget.xls].
Выберите диаграмму, которую нужно проверить.
На вкладке Макет в группе Текущий выделение щелкните стрелку рядом с полем Элементы диаграммы и выберите ряд данных, которые нужно проверить.
На строка формул , наймем ссылку на другую книгу, например [Budget.xls] в функции РЯД.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Здравствуйте. Подскажите пожалуйста, у меня перестали открываться гиперссылки в экселе 2003. Раньше эти же гиперссылки работали и открывались. Браузер по умолчанию стоит Опера. При нажатии на гиперссылку пишет "Не удается загрузить нужные данные".
Документы .doc / .xls не открываются под локальной учетной записью на Office 2010. Под админом открываются
Подскажите знающие люди, куда копать? Добавлено через 5 минут ОС Windows XP Добавлено через.
Гиперссылки в
Здравствуйте! У меня стоит excel 2013. Не открываются ссылки. "Не удается загрузить нужные данные".
гиперссылки столбца
Здравствуйте! Поскажите пожалуйста, имеется Книга Excel с несколькими листами. На одном листе.
Отключить гиперссылки
Можно ли отключить эффект гиперссылки так, чтобы если пользователь введет в ячейку Email-адрес -.
что именно должно быть в строке "база гиперссылки"? у меня сейчас там ничего нету.
сами гиперссылки нормальные. они открываются когда копируешь и в браузере вставляешь, просто не очень удобно постоянно копиравить и вставлять. и раньше этиже ссылки работали, открывались. я сама видать что-то где-то понажимала, что теперь не открываются.
пробовала, тоже не работает
Добавлено через 4 минуты
все заработало. я в браузерах в настройках намудрила.
Здравствуйте!
У меня такая же ситуация, только Excel 2007.
Казанский, и яндекс тоже не открывается, в новой не сохранённой книге.
Подскажите, пожалуйста, в чём проблема, сама найти не могу.
Заранее спасибо за ответы!
Проблема, в моём случае, оказалась весьма банальной… слетели настройки браузера. Установила галочку в браузере на «использовать по умолчанию», и проблемы, как и не бывало.
Ни каких переустановок не потребовалось.
Всем удачи!
gznak, Возникла та же ситуация, расскажите какие настройки браузера изменяли. Пробовал ставить IE по умолчанию, потом наза Opera не помогло. Office переустанавливал не помогает. На другом ноутбуке такой же офис и всё ок. У меня Windows 7 x32, Office 2007. Браузеры Opera, IE, Firefox.
Решил сам таким образом. Открываем Excel - нажимаем кнопку в верхнем левом углу "лого офиса" - параметры excel - центр управления безопастностью - параметры центра управления безопастностью - параметры Activex - включить все элементы управления без ограничения и запросов.
Здравствуйте!
Тема мною прочитана, но свою проблему я так и не смог решить с помощью вышеуказанных рекомендаций. Кратко о сути вопроса. Ссылка, забиваемая в Опере, без проблем открывает нужную страницу. Эта же ссылка, но забитая в Excel 2003 (прямая, активная или же в виде гиперссылки), при щелчке мышкой на соответствующей ячейке даёт окно с текстом: "Не удаётся открыть: (адрес веб-страницы). Не удаётся загрузить нужные данные." Изменение ячейки, страницы, файла, браузера по умолчанию (на Хром) ни к чему не привели. При этом по-прежнему работают как часы десятки других гиперссылок, в т.ч. и на головную страницу ''проблемного'' сайта. Что же надо сделать, чтобы наконец удалось ''загрузить нужные данные''?. Заранее благодарю за помощь!
Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 for Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Excel Starter 2010 Еще. Меньше
В этой статье описаны синтаксис формулы и использование функции ГИПЕРССЫЛКА в Microsoft Excel.
Описание
Функция ГИПЕРССЫЛКА создает ярлык для перехода в другое место в текущей книге или открытия документа, сохраненного на сетевом сервере, в интрасеть или в Интернете. Если щелкнуть ячейку с функцией ГИПЕРССЫЛКА, Excel к указанному расположению или откроется указанный документ.
Синтаксис
ГИПЕРССЫЛКА(адрес;[имя])
Аргументы функции ГИПЕРССЫЛКА описаны ниже.
адрес — обязательный аргумент. Путь к документу и имя файла, который нужно открыть. Адрес может ссылаться на определенное место в документе, например на ячейку или именованный диапазон листа или книги Excel либо на закладку в документе Microsoft Word. Путь может быть к файлу, который хранится на жестком диске. Путь также может быть универсальным соглашением об именовке (UNC) на сервере (в Microsoft Excel для Windows) или URL-адресом в Интернете или интрасети.
Обратите Excel в Интернете что функция ГИПЕРССЫЛКА действительна только для веб-адресов (URL-адресов). Link_location может быть текстовая строка, заключенная в кавычка, или ссылка на ячейку, содержаную ссылку в виде текстовой строки.
Понятное_имя — необязательный аргумент. Текст ссылки или числовое значение, отображаемое в ячейке. Имя отображается синим цветом с подчеркиванием. Если этот аргумент опущен, в ячейке в качестве текста ссылки отображается аргумент "адрес".
Аргумент "имя" может быть представлен значением, текстовой строкой, именем или ячейкой, содержащей текст или значение для перехода.
Замечания
Чтобы в Excel приложении выбрать ячейку с гиперссылкой, не переходя по ней, щелкните ячейку и удерживайте кнопку мыши, пока указатель не , а затем отпустите кнопку мыши. В Excel в Интернете выберите ячейку, щелкнув ее, когда указатель является стрелкой; перейти к пункту назначения гиперссылки, щелкнув, когда указатель является указателем руки.
Примеры
=ГИПЕРССЫЛКА("http://example.microsoft.com/report/budget report.xlsx", "Щелкните, чтобы просмотреть отчет")
Открывает книгу, сохраненную по адресу http://example.microsoft.com/report. В ячейке отображается текст "Щелкните, чтобы просмотреть отчет" в качестве текста ссылки.
=ГИПЕРССЫЛКА("[http://example.microsoft.com/report/budget report.xlsx]Годовой!F10"; D1)
=ГИПЕРССЫЛКА("[http://example.microsoft.com/report/budget report.xlsx]'Первый квартал'!ИтогиОтдел", "Щелкните, чтобы просмотреть итоги по отделу за первый квартал")
Создает гиперссылку на диапазон ИтогиОтдел на листе Первый квартал книги, сохраненной по адресу http://example.microsoft.com/report. В ячейке листа, содержащей гиперссылку, в качестве текста ссылки отобразится "Щелкните, чтобы вывести итоги по отделу за первый квартал".
=ГИПЕРССЫЛКА("http://example.microsoft.com/Annual Report.docx]КвартПриб", "Квартальный отчет о прибыли")
Отображает содержимое ячейки D5 в качестве текста ссылки и открывает книгу, сохраненную на сервере FINANCE в общей папке Statements. В данном примере используется путь в формате UNC.
Открывает книгу 1stqtr.xlsx, которая находится в каталоге Finance на жестком диске D. После этого выводится число, которое содержится в ячейке H10.
Создает гиперссылку на область Totals в другой (внешней) книге Mybook.xlsx.
=ГИПЕРССЫЛКА("[Книга1.xlsx]Лист1!A10";"Перейти на Лист1 > A10")
Чтобы перейти в другое место на текущем листе, укажите имя книги и имя листа, как в этом примере, где "Лист1" — текущий лист.
=ГИПЕРССЫЛКА("[Книга1.xlsx]Январь!A10";"Перейти на лист Январь > A10")
Чтобы перейти в место на другом листе, укажите имя книги и имя листа, как в этом примере, где "Январь" — другой лист в книге.
=ГИПЕРССЫЛКА(ЯЧЕЙКА("адрес",Январь!A1";"Перейти на лист Январь > A1")
Чтобы перейти в другое место на текущем листе без использования полной ссылки на лист ([Книга1.xlsx]), вы можете воспользоваться этой формулой, где ЯЧЕЙКА("адрес") возвращает текущее имя книги.
Чтобы быстро обновить все формулы на листе, использующие функцию ГИПЕРССЫЛКА с теми же аргументами, можно поместить целевой объект ссылки на тот же или другой лист, а затем использовать абсолютную ссылку на эту ячейку в качестве аргумента "адрес" в формулах с функцией ГИПЕРССЫЛКА. Изменения целевого объекта ссылки при этом будут немедленно отражаться в формулах.
Имеем две таблицы на разных листах одной книги: таблицу с заказами от клиентов (на листе Заказы) и таблицу с клиентской базой (лист Клиенты). Работая с таблицей заказов, хочется иметь возможность быстро переходить на таблицу с клиентами, чтобы просмотреть подробные данные по клиенту (адрес, ФИО директора и т.д.). То есть, другими словами, хочется в таблице заказов иметь гиперссылку в каждой строке, при щелчке мышью по которой будет происходить переход на лист Клиенты, причем именно на ту строчку где упоминается данный клиент:
Что-то типа типа функции ВПР (VLOOKUP), но не ради подстановки данных, а для быстрой ссылки из одной таблицы в другую.
Шаг 1. Создаем переменную с именем листа
Для создания гиперссылок в будущем нам понадобится каждый раз прописывать имя текущего файла и имя листа Клиенты, на который пойдут ссылки. Поэтому проще один раз создать переменную в памяти Excel с нужным значением и обращаться к ней потом по мере надобности.
В Excel 2007/2010 для этого можно воспользоваться вкладкой Формулы (Formulas) и кнопкой Диспетчер имен (Name Manager) . В более старых версиях выбрать в меню Вставка - Имя - Присвоить (Insert - Name - Define) . В открывшемся окне нажмите кнопку Создать (New) и введите туда имя переменной (я назвал ее для примера Мой_Лист) и формулу в строку Диапазон (Reference) :
=ПСТР(ЯЧЕЙКА("имяфайла";Клиенты!$A$1); ПОИСК("[";ЯЧЕЙКА("имяфайла";Клиенты!$A$1)) ;256) &"!"
Разберем эту конструкцию на составляющие для понятности:
- ЯЧЕЙКА("имяфайла";Клиенты!$A$1) - функция, которая по адресу заданной ячейки (А1 с листа Клиенты) выдает любые нужные данные по листу и файлу. В данном случае - полный путь к текущему файлу до листа в виде D:\Рабочие документы\Договоры[Бюджет.xls]Клиенты
- Из этой строки нам нужна только часть с именем файла и листа (без диска и папок), поэтому мы ищем первое вхождение квадратной открывающей скобки в строку с помощью функции ПОИСК (FIND) и затем вырезаем из строки все, начиная с этого символа и до конца (256 символов) с помощью функции ПСТР (MID) .
- В конце, к вырезанному фрагменту с именем файла и листа приклеиваем восклицательный знак - стандартный разделитель имен листов и адресов ячеек в формулах, т.к. дальше должны будут идти адреса ячеек.
Таким образом эта формула выдает на выходе имя текущего файла в квадратных скобках с расширением с приклееным к нему именем листа и восклицательным знаком. Работу формулы легко проверить - просто введите в любую пустую ячейку =Мой_Лист и нажмите клавишу Enter.
Шаг 2. Создаем гиперссылки
Выделите пустую ячейку в строке напротив первого заказа и введите туда вот такую формулу:
Разберем ее на составляющие аналогичным образом:
- Функция ПОИСКПОЗ(B2;Клиенты!$A$1:$A$7;0) - ищет порядковый номер ячейки в диапазоне А1:А7 на листе Клиенты, где встречается название текущего клиента из B2 (последний аргумент =0 означает поиск точного совпадения, аналогично функции ВПР)
- Функция АДРЕС формирует адрес ячейки (в виде текстовой строки) по номеру строки и столбца, т.е. адрес ячейки с нужным клиентом, куда должна потом ссылаться гиперссылка
- Затем мы приклеиваем к адресу ссылку на файл и лист (переменную Мой_Лист) и используем это в качестве аргумента для функции ГИПЕРССЫЛКА (HYPERLINK) , которая, собственно, и создает нужную нам ссылку.
При желании, можно заменить внешнее представление гиперссылки с банальных символов ">>" на что-нибудь поинтереснее с помощью функции СИМВОЛ (CHAR) , которая умеет выводить нестандартные символы по их кодам:
=ГИПЕРССЫЛКА(Мой_Лист&АДРЕС(ПОИСКПОЗ(B2;Клиенты!$A$1:$A$7;0);1);СИМВОЛ(117))
Так, например, если использовать шрифт Wingdings 3 и символ с кодом 117, то можно получить вот такие симпатичные значки гиперссылок:
Читайте также: