Excel: как исправить неработающие ссылки
Иногда в рабочей книге вы можете создавать ссылки на другие рабочие книги для ссылки на некоторую соответствующую информацию. Но когда исходная книга переименовывается или перемещается в другое место, эти дополнительные ссылки не работают. В этом руководстве представлены два разных метода исправления неработающих ссылок в Excel.
Исправьте неработающие ссылки, применив Edit Links
Исправление неработающих ссылок с помощью кода VBA
В Excel вы можете перейти в диалоговое окно «Редактировать ссылки», чтобы исправить их одну за другой.
1. Включите книгу, содержащую неработающие ссылки, и щелкните Данные > Редактировать ссылки (в Запросы и связи группа).
2. в Редактировать ссылки диалоговое окно, нажмите Проверить состояние чтобы найти, какие ссылки не работают.
3. Затем нажмите на неработающие ссылки, затем нажмите Изменить источник кнопку в Изменить источник окно, выберите правильную исходную книгу и щелкните OK.
теперь вы можете видеть, что статус изменился с Ошибка в OK, затем повторите шаг 3, чтобы исправить другие неработающие ссылки.
Здесь представлен код VBA, который может вам помочь.
1. Включите книгу, в которой вы хотите исправить неработающие ссылки, и нажмите другой + F11 ключи.
2. Затем в всплывающем Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули для создания нового пустого модуля.
3. Скопируйте и вставьте приведенный ниже код в новый модуль.
VBA: исправить неработающие ссылки
Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
MsgBox "Select updated source"
Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
xStrLk = xLks(xFNum)
xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
If xStatus <> 0 And xStatus <> 3 Then
MsgBox xStrLk & " the link is broken, please select new source"
xF = Application.GetOpenFilename()
If xF <> "" Then
For Each xLk In ActiveSheet.UsedRange.Hyperlinks
xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
If InStr(xStrLk, GetAddress) <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
End If
Next
ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
End If
End If
Next
End Sub
4. Нажмите F5 ключа или Run кнопка для активации кода. Теперь он ищет, есть ли битые ссылки. Если это так, появится диалоговое окно с сообщением о том, какая ссылка не работает, выберите новый источник. Нажмите OK для продолжения.
5. в Откройте окно, выберите обновленный источник, нажмите OK.
Если в книге все еще есть неработающая ссылка, указанные выше диалоговые окна будут появляться снова, пока все неработающие ссылки не будут исправлены.
Примечание. Если в книге нет неработающих ссылок, VBA остановится после запуска.
Функции: если вы хотите просмотреть все лишние ссылки и сломать неработающие ссылки, Kutools for ExcelАвтора Найдите и сломайте неработающие ссылки функция будет хорошим помощником.
Для получения подробной информации об этой функции нажмите здесь.
Чтобы получить 30-дневную бесплатную пробную версию, загрузите ее с здесь.
Как исправить/заблокировать цвет фона на листе
Иногда, когда вы делитесь листом с другими для редактирования, вам может потребоваться заблокировать цвет фона в диапазоне ячеек и запретить их изменение.
Как уменьшить размер файла Excel?
Иногда для открытия или сохранения требуется несколько минут, если файл Excel слишком велик. Для решения этой проблемы здесь, в этом руководстве, рассказывается, как уменьшить размер файла Excel, удалив содержимое или форматы, которые не нужны или никогда не используются.
Excel: как создать или вставить закладку
Вы когда-нибудь представляли себе создание или вставку закладки для быстрого перехода к определенному диапазону данных, когда на листе или в книге много данных?
Как применить затенение к нечетным или четным (альтернативным) строкам / столбцам в Excel?
При разработке рабочего листа многие люди склонны применять затенение к нечетным или четным (альтернативным) строкам или столбцам, чтобы сделать рабочий лист более наглядным. В этой статье будут показаны два метода применения затенения к нечетным или четным строкам / столбцам в Excel.
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!